Delphi存取图片，

来源：互联网发布：书体坊米芾体 mac 编辑：程序博客网时间：2024/04/30 22:51

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;