if not (fieldbyname('F_syt').IsNull) then begin try Ms:=TmemoryStream.Create; MyJPEG:=TJpegimage.Create; TBlobField(FieldByName('F_syt')).SaveToStream(MS); MS.Position:=0; MyJPEG.LoadFromStream(MS); image1.Picture.Bitmap.Assign(MyJPEG); finally MS.Free; MyJPEG.Free; end; end else image1.Picture:=nil;
begin
try
Ms:=TmemoryStream.Create;
MyJPEG:=TJpegimage.Create;
TBlobField(FieldByName('F_syt')).SaveToStream(MS);
MS.Position:=0;
MyJPEG.LoadFromStream(MS);
image1.Picture.Bitmap.Assign(MyJPEG);
finally
MS.Free;
MyJPEG.Free;
end;
end
else
image1.Picture:=nil;
Spqk005(渐近死亡) :你说的方法很慢,我也是用这种方法的!