JPG in MySQL DB

[mgapski]

Einen schönen Guten Morgäääähn,

ich hab ein Problem damit, ein Bild (egal ob bmp oder jpg) in
meiner DB zu speichern.
Es gibt hier zwar eine Menge Beispiele, jedoch beziehen die sich
alle auf IB oder andere DBs... hab leider keins für mySQL gesehn :(
(Sollte ich das übersehn haben, dann würd ich mich über nen Link zum
Thema freuen)

Also, ich bin so weit:

Delphi-Quellcode:

procedure SaveImage(Bild: TImage; Feldname: String);
begin
    qrMain.SqL.Text:='INSERT INTO `test` (`Image`)'+
                                               'VALUES (:as0);';
               qrMain.ParamByName('as0').AsBlob := Bild;
    qrMain.ExecSql;
end;

Das hab ich mir aus den ganzen Beiträgen zusammen gebaut...
Ist das wenigstens ansatzweise richtig.. oder liege ich total
daneben?

Würde mich über ein bisl Hilfe freuen :thumb:

MfG,cYa usw. Ich

[alcaeus]

Hallo mgapski,

hast du den Code probiert? Funktioniert er? Wenn nicht, was fuer Fehler treten auf?
Ohne diese Infos ist es schwer eine Loesung zu finden.
Ausserdem weiss ich im Moment nicht ob es bei MySQL3 schon BLOBs gab. Beim 4er gibts die, ueberpruef das evtl.

Greetz
alcaeus

[mgapski]

Ich hab den code probiert und er tut´s nicht... wird wohl daran liegen:

Delphi-Quellcode:

  qrMain.ParamByName('as0').AsBlob := Bild;

Der fehler ist der, das ich "Bild" nicht asBlob speichern kann (AsBlob will nen String)...
Kann natürlich auch sein das mein Ansatz total daneben ist.. ich
hab keine Ahnung ob ich das überhaupt richtig angehe...

Ich hab in meiner DB natürlich ein Feld om typ Blob (Image) erstellt

MfG,cYa usw. Ich

[Sharky]

Hai mgapski,

leider habe keine Zeit für ein Beispiel :cry:
Aber suche mal im Forum nach CreateBlobStream. Ich glaube das könnte dein Problem lösen.

[SubData]

Vielleicht hilft dir das hier:

Delphi-Quellcode:

 (Tbl.FieldByName('BIN') as TBlobField).LoadFromFile(Datei);

[franktron]

Guck lieber mal in die MySQL Doku da wahr nämlich was mit MySQL 3.xx und Blobs leider weis ich nicht mehr was

Ansonsten geht das so (habs mit MySQL 4.xx Versucht)

Delphi-Quellcode:

Stream:=TMemoryStream.Create;
SQL.TEXT='UPDATE xxx SET blob=:bild';
Stream.LoadFormFile('Bild.bmp');
SQL.ParamByName('bild').LoadFromStream(Stream,ftBlob);
Stream.Free;

P.S. der Code ist stark vereinfacht

[mgapski]

Danke für die Antworten...
ich werde das heute ma ausprobieren...
konnte leider net früher drauf zugreifen, weil bei mir @ home
das i-net net geht (arcor sei dank :evil: )

MfG,cYa usw. Ich