uses Jpeg;procedure XXXXXXXX.XXXX(XXXXXX:XXXXX);
var
MS: TMemoryStream;
JpegImage: TJpegImage;
begin
MS := TMemoryStream.Create;
TBlobField(AdoQuery.FieldByName('xxxx')).SaveToStream;
MS.Posotion := 0;
if 是JPEG格式的 then
begin
JpegImage := TJpegImage.Create;
JpegImage.LoadFromStream(MS);
Image1.Picture.Graphic := MS:
JpegImage.Free;
end
else if 位图 then
Image1.Picture.Bitmap.LoadFromStream(MS)
else if 图标 then
Image1.Picture.Icon.LoadFromStream(MS);
MS.Free;
end;
var
MS: TMemoryStream;
JpegImage: TJpegImage;
begin
MS := TMemoryStream.Create;
TBlobField(AdoQuery.FieldByName('xxxx')).SaveToStream;
MS.Posotion := 0;
if 是JPEG格式的 then
begin
JpegImage := TJpegImage.Create;
JpegImage.LoadFromStream(MS);
Image1.Picture.Graphic := MS:
JpegImage.Free;
end
else if 位图 then
Image1.Picture.Bitmap.LoadFromStream(MS)
else if 图标 then
Image1.Picture.Icon.LoadFromStream(MS);
MS.Free;
end;
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货