JPeg를 DB에 저장하는 간단한 예입니다..
델파이로 작성했는데..
참고하세요..
From 류..
---------
implementation
Uses
JPeg;
// JPeg화일을 읽어서 TBitmap으로 옮기는 함수
Procedure LoadJPegToBitmap(FileName:String; Bitmap:TBitmap);
Var
JPEGImage : TJPEGImage;
Begin
JPEGImage:= TJPEGImage.Create;
With JPEGImage do
Begin
LoadFromFile(FileName);
With Bitmap do
Begin
Width:= JPEGImage.Width;
Height:= JPEGImage.Height;
Canvas.Draw(0, 0, JPEGImage);
End;
Free;
End;
End;
{$R *.DFM}
procedure TForm1.Button1Click(Sender: TObject);
Var
fsJPeg : TFileStream;
Begin
If OD.Execute then
Begin
fsJPeg:= TFileStream.Create(OD.FileName, fmOpenRead);
Table1.Edit;
Table1BMP.LoadFromStream(fsJPeg);
Table1.Post;
fsJPeg.Free;
End;
end;
|