Delphi는 그림을 저장하고 읽는 방법을 구현합니다.

이 기사의 예제에서는 델파이에서 그림을 저장하고 읽는 방법을 설명하는데, 이는 매우 실용적인 기술입니다. 참고할 수 있도록 모든 사람과 공유하세요. 구체적인 구현 방법은 다음과 같습니다.

첫 번째 인용문 JPEG

1. 사진 표시:

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

2. 사진을 저장합니다:

 varStream:TMemoryStream;Stream := TMemoryStream.Create; // 메모리 스트림 생성 // 메모리 스트림에 그림 저장 img1.Picture.Graphic.SaveToStream(Stream);ParamByName('picture').LoadFromStream(Stream,ftBlob) ; ParamByName('IsSavePicture').Value:='1';Stream.Free; //사용 후 즉시 해제;

3. 그림을 읽어보세요:

 varStream:TMemoryStream;Jpg:TjpegImage;if fieldbyname('IsSavePicture').Value='1' thenbegin Stream:=TMemoryStream.Create Jpg:=TjpegImage.Create; TBlobField(FieldByName('picture')).SaveToStream(Stream) ; 표시된 콘텐츠는 BlobField로 변환되어 메모리 스트림에 저장됩니다. Stream.Position :=0; jpg.LoadFromStream(Stream); // 사진 로드 img1.Picture.Assign(Jpg) Stream.Free; img1.사진: =nil;

나는 이 기사에 설명된 내용이 모든 사람의 Delphi 프로그래밍에 대한 특정 참조 가치를 갖고 있다고 믿습니다.