Ich starre schon zu lange drauf ... sieht jemand den Fehler ?
Delphi-Quellcode:
{
Satz = record
bild : TBitmap;
end;
TestInsertSQL = 'INSERT INTO :table ' +
' VALUES(' +
' null, ' +
' :bild ' +
');';
}
function Insert(tname : string; DataSet : Satz): boolean;
var PicStream : TMemoryStream;
begin
Result := true ;
DBQuery.SQLQuery.Close ;
DBQuery.SQLQuery.SQL.Clear ;
DBQuery.SQLQuery.Sql.Text := TestInsertSQL ;
DBQuery.SQLQuery.Sql.Text := stringReplace (DBQuery.SQLQuery.Sql.Text,
':table',tname,
[rfReplaceAll,rfIgnoreCase]);
PicStream := TMemoryStream.Create;
try
DataSet.bild.SaveToStream(PicStream);
except
end;
with DBQuery.SQLQuery.Params do
begin
createparam(ftblob,'bild',ptInput);
ParamByName('bild').LoadFromStream(PicStream,ftblob);
end;
DBQuery.SQLQuery.ExecSQL;
PicStream.Free;
end;
Also ich lade im im Forumal das Bild .. klappt
Dann übergebe ich es lade is in den Memory Stream .. klappt
Mein
SQL Execute fliegt er auf die Nase mit der Execption ....
EDatabaseError 'unrecognized token "'BMb´ "'
Hat jemand ne idee ... finde den Fehler nicht
*args*
Danke und liebe Grüsse,
Andre