//
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;