Blobfeld in DB schreiben mit INSERT-Befehl

[marabu]

Vielleicht so:

Delphi-Quellcode:

var
  s: TMemoryStream;
  fn: TFileName;
begin
  with ADOQuery do
  begin
    SQL.Text := 'SELECT myBlob FROM myTable WHERE id = 1';
    Open;
    Edit;
    TBlobField(Fields[0]).LoadFromStream(s); // Daten intern?
    TBlobField(Fields[0]).LoadFromFile(fn);  // Daten extern?
    Post;
    Close;
  end;
end;

marabu