안녕하세요..

DB는 MS-SQL을 사용하고있습니다.. 테이블에는 pk_no(CHAR형),Image(Image형)의

필드를 가지고 있고 Image필드는 JPEG 이미지를 저장하고 있습니다..

이 이미지 필드의 JPEG를 TImage 컴포넌트에 나타낼려고 하는데...

실행시 계속해서 아래와 같은 Error가 발생합니다...



Porject Project2.exe raised exception class EJPEG with message 'JPEG error #41'



위의 error가 무엇이며 해결방법을 가르켜 주세요...

델파이에서 이미지 처리가 이렇게 힘이들줄이야....흑흑~~

불러오기을 소스는 아래에 있습니다..





procedure TForm1.BitBtn1Click(Sender: TObject);

var

BitmapImage : TJPEGImage;

MS : TMemoryStream;

begin

with Table1 do begin

Open;

First;

Edit1.Text := FieldByName('pk_no').AsString;

if FieldByName('Image').IsNull then begin

Image1.Picture.Assign(nil);

end

else begin

BitmapImage := TJPEGImage.Create;

MS := TMemoryStream.Create;

(FieldByName('Image') As TBlobField).SaveToStream(MS);

BitmapImage.LoadFromStream(MS);

Image1.Picture.Assign(BitmapImage);

BitmapImage.free;

MS.free;

end;

end;