소스는 아래와 같습니다.
확인 해보니 저장자체가 깨진상태로 저장됩니다.
도움좀 부탁합니다.
delphi 6.0
mysql 3.23.53
myisam file
c/s환경
field type은 blob 또는 longblob으로 하였습니다.

/////////////////////////////////////////////////////////////////////////////////
procedure TP_i_HyunJangiF.PictureToSave;
Var  aBmp : TBitmap;
       aR      : TRect;
       aMS   : TMemoryStream;
Begin
     if Not (A_Jpeg.Picture.Graphic = Nil) Then Begin
        Try
           aBmp := TBitmap.Create;
           aBmp.FreeImage;
           aBmp.PixelFormat := pf24bit;
           aBmp.Height      := A_Jpeg.Picture.Height; //120;
           aBmp.Width       := A_Jpeg.Picture.Width ; //120;
           aR := Rect(0, 0, aBmp.Width, aBmp.Height);
           aBmp.Canvas.StretchDraw(aR, A_Jpeg.Picture.Graphic);
           With P_a_DataF.Q1 Do Begin
                SQL.Clear;
                SQL.Add('Update Pan41                     ');
                SQL.Add('   Set H_Jpeg = :A_Jpeg      ');
                SQL.Add(' Where H_Hyun = :A_Hyun  ');
                aMS := TMemoryStream.Create;
                aMS.Position := 0;
                aBmp.SaveToStream(aMS);
                Try
                   ParamByName('A_Hyun').AsString := A_Hyun.Text;
                   ParamByName('A_Jpeg').LoadFromStream(aMS, ftblob); //ftblob를 ftGraphic로 변경도 시도 똑같음
                   ExecSQL;
                Finally
                   aMS.Free;
                End;
                Close;
           End;
        Finally
           aBmp.Free;
        End;
     End;
end;