Thema: Delphi bild als BLOB Exception

Einzelnen Beitrag anzeigen

Shadow
(Gast)

n/a Beiträge
 
#1

bild als BLOB Exception

  Alt 29. Nov 2006, 09:58
Datenbank: sqlite • Version: 3 • Zugriff über: aducom
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
  Mit Zitat antworten Zitat