아래 소스를 참고하세요..

필드에디터를 이용해서 필드를 등록해서 사용하는 것이..

퍼포먼스에 좋다고 해서 그렇게 했습니다..

지난 번 Jpeg에 대해서 물어본 것에 대한 답변입니다..

화일 포멧만 틀리니 충분히 참고가 되실 듯..





From 류..



* 다운로드는 어디서 어디로 다운로드하는 건지 몰라서 답변 생략^^



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;



// JPeg 화일을 데이타베이스에 저장

procedure TForm1.Button1Click(Sender: TObject);

Var

fsJPeg : TFileStream;

Begin

If OD.Execute then

Begin

fsJPeg:= TFileStream.Create(OD.FileName, fmOpenRead);

Table1.Edit;

Table1Image.LoadFromStream(fsJPeg);

Table1.Post;

fsJPeg.Free;

Table1AfterScroll(Nil);

End;

end;



// 데이타베이스에서 Jpeg을 추출 화밀로 저장

procedure TForm1.Table1AfterScroll(DataSet: TDataSet);

Var

fsJPeg : TFileStream;

begin

Try

fsJPeg:= TFileStream.Create(GetExecPath+'Image.jpg', fmCreate);

Table1Image.SaveToStream(fsJPeg);

fsJPeg.Free;

LoadJPegToBitmap(GetExecPath+'Image.jpg', Image1.Picture.Bitmap);

Except

End;

end;





김성진 wrote:

> 안녕하십니까?

>

> 현재 컴에 있는 tif파일(G3 type)을 db로 올리고 싶습니다.

> stream 형식으로 바꾸어서 하는것 같은 데 모르겠습니다.

> 추가로 DB에 있는 이미지를 DownLoad 하는 방법도 가르쳐 주시면

> 더욱 고맙구요.

> 아시는 분 계시면 빠른 답변 부탁드립니다.