Einzelnen Beitrag anzeigen

Benutzerbild von foxy
foxy

Registriert seit: 4. Nov 2002
Ort: Saarbrücken
62 Beiträge
 
Delphi 6 Enterprise
 
#1

Probelme mit Datein in Datenbanken

  Alt 20. Jan 2003, 09:57
Guden all .... habe folgendes Problem ....
also
ich habe Paradox7 DB mit verschiedenen Datensätz.
Dann habe ich 2 Spalten, in denen Datei eingelagert werden sollten, die eine Grafikdateien(Graphic) die andere alle anderen Arten von Datein (Blob)...
so nur hab ich ein problem ich füge einem Datensatz so die datei zu
Delphi-Quellcode:
if opendialog1.Execute then
   begin
     pfad:=opendialog1.FileName;
     if (ExtractFileExt(OpenDialog1.FileName)='.bmp') then
       begin
        Table1.Edit;
        Table1File.AsString:=pfad;
        Table1BMP.LoadFromFile(pfad);
        DBlistbox1.Items.Add(pfad);
        Table1.Post;
        Pagecontrol1.ActivePageIndex:=2;
       end
     else
      begin
        Table1.Edit;
        Table1File.AsString:=pfad;
        Table1Datei.LoadFromFile(pfad);
        DbListbox1.Items.Add(Pfad);
        Table1.Post;
        Pagecontrol1.ActivePageIndex:=2;
      end;
     end;
alles schön und gut dann steht da auch der pfadname und anscheinend ist auch die Datei in dem entsprechenden feld.
dann kommt das erste Probelm .. schliess ich delphi und öffne es nochaml, dann sind die datensätze noch da nur die dateien nicht mehr.
2. Problem
ich will dann mit doppelklick auf den DBgrid die Dateien öffnen das mache ich so
Delphi-Quellcode:
 if FileExists(Table1.FieldbyName('BMP').AsString) then
      Begin
        Form4.Show;
      end
  else If FileExists(Table1.FieldByName('Datei').AsString) then
       Begin
          GetExe(ExtractFileExt(OpenDialog1.FileName));
       end;
aber wenn ich überprüfe ob eine datei da iss findet er keine ... bitte um hilfe was amche ich falsch???
Kein Plan von nix
MFG Heiko aka Foxy
  Mit Zitat antworten Zitat