Announcement

Collapse
No announcement yet.

MySQLDirect, Blobfield auslesen

Collapse
X
  • Filter
  • Time
  • Show
Clear All
new posts

  • MySQLDirect, Blobfield auslesen

    Hallo und guten Morgen,

    ich habe hier im Forum nach einer Loesung gesucht, aber leider kein Ergebnis erhalten. So hier meine Frage:

    Ich habe in einer MySQL-Datenbank PNG-Bilder in einem Blob-Feld abgelegt. Diese Bilder moechte ich nun wieder auslesen und als Grafikdatei speichern.
    Z.B. so:

    //try to write the blobfields entry
    if assigned(FResult) then
    begin
    FResult.First;
    //Bild in Datei schreiben
    myStream := TFileStream.Create(dateiname,fmCreate);
    j := FResult.FieldIndexByName('Bild_vom_Schild');
    // myStream.Write(FResult.FieldValue(j)[0]FResult.FieldLenght(j));
    myStream.Write(FResult.FieldValueByName('Bild_vom_ Schild')[0],50000);
    myStream.Free;
    end;

    Irgendwie funktioniert das aber nicht. Die Datei hat immer eine Groesse von 0.

    Hat jemand eine Idee, was ich falsch mache und mir ggf. mit etwas Code 'aushelfen'?

    Viele Gruesse

    Juergen
Working...
X