Hab jetzt bisschen was zusammen gebastelt, wovon ich eigentlich keine Ahnung habe.
Er fügt einen neuen Datensatz hinzu, aber das Feld (BLOB) Beschreibung2 bleibt leer.
Der untenstehende Teil ist fehlerhaft. Vielleicht kann ihn gerade jemand korriegieren bzw. mir etwas dazu erklären.
Danke
Sql.Text := 'INSERT INTO DBFilme (Beschreibung2,Beschreibung2) VALUES (100,:Memo)';
Delphi-Quellcode:
var Stream: TMemoryStream;
begin
Stream := TMemoryStream.Create;
try
Memo1.Lines.SaveToStream(Stream);
with Query2
do begin
Sql.Text := '
INSERT INTO DBFilme (Beschreibung2,Beschreibung2) VALUES (100,:Memo)';
Params.Clear;
Params.CreateParam(ftBlob, '
Memo', ptInput);
ParamByName('
Memo').LoadfromStream(Stream, ftBlob);
ExecSQL;
end;
finally
Stream.Free;
end;
end;