jpeg를 불러와서 table(query)에 저장하려고 합니다.

Q&A에 올라와 있는 방법은 다해본것 같은데....^^;



delphi 5.0

ms sql 7.0 이고요.



field는 image - sql

ftBlob - delphi

입니다.





소스입니다.

var

m_JPEG : TJPEGImage;

begin

try

m_JPEG := TJPEGImage.Create;

if self.opd_loadPic.Execute then

m_JPEG.loadFromFile(opd_loadPic.FileName);



dbi_pic.picture.Graphic := m_JPEG;

-------> 여기 까지 하면 화면에 그림이 잘보입니다.

그런데 여기서 저장버튼(네비게이션)을 누르면 그림이 싹 없어집니다.

참고로 bmp 화일일때는

--> query1['pic'].loadFromFile(opd_loadPic.FileName); 해서 저장이 잘됩니다.

--> 이문장 그대로 jpeg화일을 불러오면 "Bitmap image is not vaild"에러가

발생합니다.



finally

m_JPEG.free;

end;

end;