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