Zitat:
Habe schon einiges hier und dort gelesen
Hättest du mal nur die Erbgeschichte von TIBQuery studiert. Was mit TTable funktioniert, funktioniert auch mit TIBQuery, da beide mit TFields arbeiten. Na ja, du bist zu faul zum Lesen und ich bin zu faul zum Testen - ich denke wir sind quitt.
Delphi-Quellcode:
function LoadJpeg(dbField: TField; jpeg: TJPegImage): boolean;
var
s: TStream;
begin
s := dbField.DataSet.CreateBlobStream(dbField, bmRead);
Result := false;
try
jpeg.LoadFromStream(s);
Result := true;
finally
s.Free;
end;
end;
function SaveJpeg(dbField: TField; jpeg: TJPegImage): boolean;
var
s: TStream;
begin
s := dbField.DataSet.CreateBlobStream(dbField, bmWrite);
Result := false;
try
jpeg.SaveToStream(s);
Result := true;
finally
s.Free;
end;
end;
Grüße vom marabu