بازیابی ودیدن فیلد از نوع ایمیج

[shervin farzin]

سلام
ميتونين از كد زير استفاده كنين :

var

  pic:TJPEGImage;

  stream:Tstream;

begin

With ADOQuery1 do

  begin

    sql.text:='select * from picsample';

    Open;

  end;

stream:=ADOQuery1.CreateBlobStream(ADOQuery1.Field  ByName('pic'),bmRead);

if stream.Size<>0 then

  begin

    if copy(ADOQuery1.FieldByName('pic').AsString,1,1)='B  ' then

      image1.Picture.Bitmap.LoadFromStream(x)

    else

      begin

        pic:=TJPEGImage.Create;

        pic.LoadFromStream(x);

        image1.Picture.Assign(pic);

        pic.Free;

      end;

  end

else image1.Picture.Graphic:=nil;

stream.Free;

يه نكته اي كه بايد توجه كنين اينه كه كلاس JPEG رو حتما در بالاي فرمتون در قسمت Uses بنويسيد . براي مواقعي كه عكستون از نوع JPG باشه.
موفق باشيد