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

1312 단어
본고의 실례는델파이가 그림을 보존하고 읽는 방법을 실현하는 매우 실용적인 기교이다.여러분에게 참고하도록 공유하다.구체적인 실현 방법은 다음과 같다.
먼저 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;


본고에서 말한 바와 같이 여러분의 Delphi 프로그램 설계에 대해 어느 정도 참고 가치가 있다고 믿습니다.

좋은 웹페이지 즐겨찾기