Bilder in die Paradoxtabelle speichern ?

[mkinzler]

In deiner Projekt wird Bezug auf einige nicht vorhanden Kompoenenten genomme. Es fehlt die TQuery-Komponente welche im Code SQLTable heißt. Die Tabelle im Query muß bilder heißen. Die Tabelle besteht ja nur aus einem Feld und ist leer deshalb:

Insert into Bilder( foto) values( :Bild); Es wird auch Bezug auf eine nichvorhandenes Datenmodul genommen.

Vader: Auch wenn du stolz bist, ohne ein Buch nun mit ein "klein wenig Hilfe" einige Testprogramme erstellt zu haben, solltest du doch langsam gemerkt haben, das dir gewisse Grundlagen über Datenbanken fehlen.
Das ist nicht böse gemeint aber du solltest den Code den dir wir hier zeigen, oder den du von woanderst her hast, nicht nur eintippen/kopieren, sondern versuchen zu verstehen. dann hättest du gesehen das wenn deine Tabelle Bilder heißt und in der Abfrage Tabelle steht nicht funktionieren kann.

[Vader]

hallo,

hab den code jetzt auf mein projekt abgeändert

mußte aber eine neue tabelle anlegen !

meine datenbankdatei heißt losch.db und der feldname wo die Fotos rein sollen heißt jetzt Tennis!

die jpeg habe ich auskommentiert da schreit er gleich fehler
[Fehler] Unit1.pas(44): Undefinierter Bezeichner: 'TJPEGImage' bitte schau noch mal drüber , habe mir mühe gegeben !

wenn ich jetzt auf speichern gehe in der laufzeit kommt der fehler: siehe anhang

[Vader]

hab in der eile was vergessen zum ausbessern

die datenbankdatei heißt jetzt losch statt bilder !!!

query1.SQL.Text := 'Insert into losch Set Tennis= :Bild '; mfg vader

[mkinzler]

Delphi-Quellcode:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Grids, DBGrids, DBCtrls, DBTables, DB, ExtDlgs;

type
  TForm1 = class(TForm)
    Query1: TQuery;
    DataSource1: TDataSource;
    UpdateSQL1: TUpdateSQL;
    DBImage1: TDBImage;
    DBGrid1: TDBGrid;
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    OpenPictureDialog1: TOpenPictureDialog;
    SavePictureDialog1: TSavePictureDialog;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
query1.append;
end;

procedure TForm1.Button2Click(Sender: TObject);
var 
   blob : TMemoryStream; 
  // jpeg : TJPEGImage;
   bmp : TBitmap; 
   s: String; 
begin 
    blob :=  TMemoryStream.Create(); 
  //  jpeg := TJPEGImage.Create;
    bmp := TBitmap.Create; 
   TRY 
     if OpenpictureDialog1.Execute then 
     begin 
          s :=ExtractFileExt(OpenPictureDialog1.FileName); 
          if uppercase(s) = '.BMP' then 
          begin 
             bmp.loadfromfile(OpenPictureDialog1.FileName); 
             blob.Clear; 
             bmp.saveToStream(blob); 
          end else 
          begin 
         //    jpeg.LoadFromFile(OpenPictureDialog1.FileName);
             blob.Clear; 
         //    jpeg.SaveToStream(blob);
          end; 
        //  query1.SQL.Text := 'Update Tabelle Set Foto = :Bild  where ID = :id';
          query1.SQL.Text := 'Insert into losch( Tennis) values( :Bild);';

          query1.ParamByName('bild').LoadFromStream(blob,ftGraphic);
        //  query1.ParamByName('id').AsInteger := DM.FahrerID.AsInteger;
          query1.ExecSQL;
     end;
   Finally
      freeandnil(blob); 
    //  freeandnil(jpeg);
      freeandnil(bmp);
      DBImage1.LoadPicture; 
   END 
end;



end.

[Vader]

super danke,

das funktoniert, aber es wäre nicht schlecht auch mit den jpeg's

die fehlermeldung :
[Fehler] Unit1.pas(44): Undefinierter Bezeichner: 'TJPEGImage' warum erkennt er 'TJPEGImage' nicht ?
mfg vader

[mkinzler]

Dazu mußt du die Unit jpegimage von der Delphi-CD nachinstallieren.

[Vader]

du schreibst:

Zitat:

Dazu mußt du die Unit jpegimage von der Delphi-CD nachinstallieren.

wie nachinstallieren,mit benutzerdefinerter installation oder wie ?
mfg vader

[mkinzler]

Nein, das Package befindet sich auf der CD. Suche mal auf der Inst-Cd nach jpg oder jpeg

[Vader]

hallo,
das habe ich gefunden,siehe anhang !
wie muß ich das installieren ?
mfg vader

[mkinzler]

Am besten kopierst du die .bpl .dcp und .map-datei in dein bpl-Verzeichnis und fügst die bpl deinen Packages hinzu.