Speichern
Delphi-Quellcode:
Stream := TMemoryStream.Create;
Stream.Clear;
Stream.LoadFromFile('C:\bild.jpg');
try
aqTmp.CreateBlobStream(aqTmp.FieldByName('pic'),bmWrite) := Stream;
finally
Stream.Free;
End;
hier bei speichern blick ich nicht durch
Laden
Delphi-Quellcode:
Stream := TMemoryStream.Create;
Stream.Clear;
try
Stream := aqTmp.CreateBlobStream(aqTmp.FieldByName('pic'),bmRead);
finally
Stream.Free;
End;