楼
taxi (
当时明月在,曾照彩云归)
回复于
2001-11-30 09:04:24 得分
0
//保存图片
TBlobField(Table1.FieldByName('picture')).LoadFromFile('xxxx.jpg');
//读取图片
uses Jpeg;
procedure TForm1.ShowPicture;
var
MS: TMemoryStream;
JpegImage: TJpegImage;
begin
MS := TMemoryStream.Create;
TBlobField(AdoTable1.FieldByName('picture')).SaveToStream(MS);
MS.Position := 0;
if 是JPEG格式图像 then
begin
JpegImage := TJpegImage.Create;
JpegImage.LoadFromStream(MS);
Image1.Picture.Graphic := JPegImage;
JpegImage.Free;
end
else if 是位图 then
Image1.Picture.Bitmap.LoadFromStream(MS)
else if 是图标 then
Image1.Picture.Icon.LoadFromStream(MS);
MS.Free;
end;
//保存图片
TBlobField(Table1.FieldByName('picture')).LoadFromFile('xxxx.jpg');
//读取图片
uses Jpeg;
procedure TForm1.ShowPicture;
var
MS: TMemoryStream;
JpegImage: TJpegImage;
begin
MS := TMemoryStream.Create;
TBlobField(AdoTable1.FieldByName('picture')).SaveToStream(MS);
MS.Position := 0;
if 是JPEG格式图像 then
begin
JpegImage := TJpegImage.Create;
JpegImage.LoadFromStream(MS);
Image1.Picture.Graphic := JPegImage;
JpegImage.Free;
end
else if 是位图 then
Image1.Picture.Bitmap.LoadFromStream(MS)
else if 是图标 then
Image1.Picture.Icon.LoadFromStream(MS);
MS.Free;
end;