답변감사합니다.

A_Jpeg는 이미지 콤포넌트입니다.(image1)





: : Zeos Database 5.3.4입니다.
: : //
: : 저 소스를 아래와 같이 수정하였으나 마찬가지로 첨부파일에 올립니다. 도움좀 부탁합니다.
: : 정상적인 그림은 bmp입니다.
: : 파일로 저장시 깨진 그림입니다.
: : //
: : ///////////////////////////////////////////////////////////////////////////////////////
: :         TheStream := TMemoryStream.Create;
: :         try
: :            A_Jpeg.Picture.Bitmap.SaveToStream(TheStream);
: :            With P_a_DataF.Q1 Do Begin
: :                 SQL.Text :='Update Pan41             '+
: :                            '   Set H_Jpeg = :A_Jpeg  '+
: :                            ' Where H_Hyun = :A_Hyun  ';
: :                 Params.Clear;
: :                 Params.CreateParam(ftString,'A_Hyun', ptInput);
: :                 Params.CreateParam(ftBlob  ,'A_Jpeg', ptInput);
: :                 ParamByName('A_Hyun').AsString := A_Hyun.Text;
: :                 ParamByName('A_Jpeg').LoadfromStream(TheStream, ftBlob);
: :                 ExecSQL;
: :            end;
: :         finally
: :            TheStream.Free;
: :         end;