MySQL에 연결하기 위한 드라이버는 무엇을 사용했나요?

이동안 님이 쓰신 글 :
: 저도 여러 경우로  수정을 하였는데 첨부파일에 보면 에라가 발생하네요
: 감사합니다.
: 또 bmp파일인경우는 처음에 완벽하지는 않지만 저장은 되네요 그리고 2번째 이미지파일을 저장할 경우 검정색으로
: 변합니다.
: 첨부파일의 경우는 확장자가 jpg일 경우입니다.
: 다른방법이나 에라 해결책은 없는지요
:
:         With P_a_DataF.Q1 Do Begin
:              SQL.Clear;
:              SQL.Text :=' Update Pan41                    '+#13+
:                                '      Set H_Jpeg = :A_Jpeg   '+#13+
:                                ' Where H_Hyun = :A_Hyun  '+#13;
:              aMs := TMemoryStream.Create;
:              A_Jpeg.Picture.Graphic.SaveToStream(aMs);
:              ParamByName('A_Hyun').AsString := A_Hyun.Text;
:              ParamByName('A_Jpeg').LoadFromStream(aMs, ftblob);
:              aMs.Free;
:              ExecSQL;
:         end;
:
:
:
:
:
:
: 박진수 님이 쓰신 글 :
: : 도움이 되실런지요..
: :
: :           Screen.Cursor := crSQLWait;
: :           with aqryBLRM_USERD1 do
: :           begin
: :                if(Active) then Close;
: :                SQL.Clear;
: :                SQL.Text :=
: :                ' DELETE FROM BLRM_USERD1  '+#13+
: :                '  WHERE USERD1_NO = 0'+ txtUSER_NO.Text +'   ';
: :                ExecSQL;
: :                //-----
: :                if(imgUSERD1_STAMPIMG.Picture.Graphic <> nil) then
: :                begin
: :                     if(Active) then Close;
: :                     SQL.Clear;
: :                     SQL.Text :=
: :                     ' INSERT INTO BLRM_USERD1 (     '+#13+
: :                     '    USERD1_NO,                 '+#13+
: :                     '    USERD1_CLASS,              '+#13+
: :                     '    USERD1_STAMPIMG ) VALUES ( '+#13+
: :                     '    0'+ txtUSER_NO.Text +',    '+#13+
: :                     '    0'+ IntToStr(cmbGRCLASS.ItemIndex) +',    '+#13+
: :                     '    :USERD1_STAMPIMG )    '+#13;
: :                     MemoryStream := TMemoryStream.Create;
: :                     imgUSERD1_STAMPIMG.Picture.Graphic.SaveToStream(MemoryStream);
: :                     Parameters[0].LoadFromStream(MemoryStream, ftBlob);
: :                     MemoryStream.Free;
: :                     ExecSQL;
: :                end;
: :           end;
: :           Screen.Cursor := crDefault;
: :
: :
: :
: : 이동안 님이 쓰신 글 :
: : : 소스는 아래와 같습니다.
: : : 확인 해보니 저장자체가 깨진상태로 저장됩니다.
: : : 도움좀 부탁합니다.
: : : 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;