Hallo zusammen,
ich habe ein bestehendes Programm welches unterschiedliche Anbindungen zu unterschiedlichen Datenbanken ermöglicht. Nun habe ich eine DB2 Anbindung. Das läuft soweit ganz gut.
Mein Problem ist, ich kann zwar Bilder aus der Datenbank lesen und als File auf der Festplatte abspeichern, aber ich kann keine Bilder von der Festplatte in die Blobfelder schreiben.
Das Schreiben erfolgt folgendermaßen:
vorher mache ich eine
SQL Anweisung auf einen bestimmten Datensatz. Wenn der Recordcount dann 0 ist, wird ein Append + Edit ausgeführt, ansonsten der folgende Code:
Delphi-Quellcode:
var BF : TBlobField
F : String;
begin
...
my.Table.Edit;
BF := mytable.FieldByName(myField) As TBlobField;
if FileExists(F) then // Datei wird vorher geholt und abgefragt
begin
BF.LoadFromFile(F);
try
mytable.Post;
except
Showmessage('Error while saving blob!');
end;
end
else begin
myTable.Cancel;
Showmessage('File not found: ' + F);
end;
So, das ist es im groben. Die Datenbank kommt weder mit einem Fehler noch mit was anderem zurück. Aber das Bild wird nicht dort gespeichert. Die geladene Blobgröße ist auf jeden Fall richtig und das Bild existiert auch in dem Verzeichnis.
Hoffe mir kann da jemand weiterhelfen.
Gruß, Moony