例子:         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; 

解决方案 »

  1.   

    补充:
    var
       blob: TBlobStream;
       msGly: TMemoryStream;
       jpg: TJpegImage;
       i: integer;另外:
       imgDb 是一个TImage;
      

  2.   

    因为TGraphicField继承自TPersist.
    用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或今年的《电脑编程与维护》的?期讲过。
      

  3.   

    to xiaogq:
    屎哥,搞定了没有啊?