delphi 그림을 저장하고 읽는 방법

본고는델파이가 그림을 저장하고 읽는 방법을 실현하는 실례를 설명하여 매우 실용적인 기교이다.여러분에게 참고할 수 있도록 나누어 드리겠습니다.구체적인 실현 방법은 다음과 같다.
우선 jpeg 인용
1. 그림 보이기:

if  OpenPictureDialog.Execute then
begin
   img1.Picture.LoadFromFile(OpenPictureDialog.FileName);
   btnPicture.Text:=OpenPictureDialog.FileName;
end;

2. 그림 저장:

var
Stream:TMemoryStream;
Stream := TMemoryStream.Create; //  
//  
img1.Picture.Graphic.SaveToStream(Stream);
ParamByName('picture').LoadFromStream(Stream,ftBlob);
ParamByName('IsSavePicture').Value:='1';
Stream.Free;  // Free 

3. 그림 읽기:

var

Stream:TMemoryStream;
Jpg:TjpegImage;

if fieldbyname('IsSavePicture').Value='1' then
begin
 Stream:=TMemoryStream.Create ;
 Jpg:=TjpegImage.Create ;
 TBlobField(FieldByName('picture')).SaveToStream(Stream);  //  BlobField 
 Stream.Position :=0;
 jpg.LoadFromStream(Stream);  //  
 img1.Picture.Assign(Jpg);
 Stream.Free;
 Jpg.Free;
end
else
begin
 img1.Picture :=nil;

본고에서 기술한 것이 여러분의 델파이 프로그램 설계에 어느 정도 참고 가치가 있다고 믿습니다.