Delphi-PRAXiS

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Datenbanken (https://www.delphipraxis.net/15-datenbanken/)
-   -   Delphi bild als BLOB Exception (https://www.delphipraxis.net/81549-bild-als-blob-exception.html)

Shadow 29. Nov 2006 09:58

Datenbank: sqlite • Version: 3 • Zugriff über: aducom

bild als BLOB Exception
 
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


Alle Zeitangaben in WEZ +1. Es ist jetzt 10:56 Uhr.

Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024-2025 by Thomas Breitkreuz