Delphi存取图片，

Delphi实现图片存取与读取

转载于 2004-12-02 18:48:00 发布 · 1.2k 阅读

文章标签：

#delphi #image

Delphi 专栏收录该内容

1 篇文章

订阅专栏

博客展示了在Delphi中进行图片存取和读取的代码。存取图片时，将图片保存到流并存储到数据库；读取图片时，从数据库中提取图片流并显示。涉及TJPEGImage、TMemoryStream等对象操作。

1）存取图片
procedure TMainForm.btnYesClick(Sender: TObject);
var
MyJPEG: TJPEGImage;
MS: TMemoryStream;
begin
MyJpeg := TJpegImage.Create;
try
    MyJpeg.Assign(image1.Picture.Graphic)
    Ms := TMeMoryStream.Create;
    MyJpeg.SaveToStream(Ms);
    Ms.Position := 0;

    adoqrytest.Edit;
    adoqrytest['id'] := '1';
    TBlobField(adoqrytest.FieldByName('picture')).LoadFromStream(MS);
    adoqrytest.Post;
finally
    MyJpeg.Free;
    Ms.Free;
end;
end;
2）读取图片
procedure TMainForm.FormShow(Sender: TObject);
var
tempStream: TStringStream;
tempJpeg: TJpegImage;
begin
try
    tempStream := TStringStream.Create('');
    TBlobField(adoqrytest.FieldByName('picture')).SaveToStream(tempStream);
    tempJpeg := TJpegImage.Create;
    tempJpeg.LoadFromStream(tempStream);
    tempstream.position:=0
    DBImage1.Picture.Bitmap.Assign(tempJpeg);
finally
    tempStream.Free;
    tempJpeg.Free;
end;
end;