例子: blob := TBlobStream.Create( TBlobField( FieldByName( 'b_image' ) ),
bmRead );
blob.Position := 0;
msGly.LoadFromStream( blob );
msGly.Position := 0;
if msGly.Size > 0 then
begin
jpg := TJpegImage.Create;
// Note: The Height or the Width of The Jpeg Image
// Can't be changed ;
// But the size of the Image object can be changed
//jpg.Height := 600;
//jpg.Width := 800;
try
jpg.LoadFromStream( msGly );
imgDb.Picture.Assign( jpg );
except
NotifyBox( '错误的图片格式', 1 );
end;
jpg.Free;
end;
blob.Free;
解决方案 »
- [高分送]哪位大虾用过Audio Components Suite(BASS组件?)有分要送!
- 放分200——强力支持WGYKING(修罗是谁?!)做VCL组件开发及应用版版主!
- 100分求代码翻译(vba—delphi)!!
- 版主:这个系统有问题可以将分全给自己!!!!!快看!!!
- 请问如何能将strtoint引发的异常屏蔽掉!!
- 一则书评,你认为呢?
- 如何动态插入一个数据表的字段?
- 关于ado的小问题,请指点
- 我没有其他编程语言基础,但我想学开发语言
- 如何用Delphi实现PB下拉数据窗口的功能?我送20分!
- 如何取得数据库中的视图列表?
- 在DBGrid(或DBGridEH)中,怎样使相邻的两行不同颜色,而选中的那行有总是固定的那种色。
var
blob: TBlobStream;
msGly: TMemoryStream;
jpg: TJpegImage;
i: integer;另外:
imgDb 是一个TImage;
用TImage.Assign(TGraphicField)可以。
也可以用TImage.Picture.Bitmap.Assign(TGraphicField)
推荐用后一种。
我查过MSDN,没说CreateToolHelp32Snapshot只能在WIN9X下用。NT下也应可以!
只说在WIN CE上不能用。
但EnumProcesses这个函数也能列举所有的进程,不过只能在WINNT4.0 OR LATER或2000上用。
这个函数在PASPAI.H中定义。
function EnumProcesses(lpidProcess: LPDWORD; cb: DWORD; var cbNeeded: DWORD): BOOL;
具体帮助可看MSDN或今年的《电脑编程与维护》的?期讲过。
屎哥,搞定了没有啊?