exe startet nur auf Entwickler-PC

[nahpets]

Hallo,

schau bitte mal in der Entwicklungsumgebung, ob Du irgendwelche Datenbankobjekte dort geöffnet hast (im Objektinspektor prüfen).

Wenn ja: Alles schließen und die entsprechenden Aufrufe für das Öffnen/Verbinden in das FormCreate packen.

Delphi-Quellcode:

procedure TMenue.FormCreate(Sender: TObject); 
var 

IniFile, log                  : TextFile; 
zeile                    : String; 

label M10; 
begin 
  // Damit hier nicht nur der letzte Fehler drinne steht, sondern ggfls. auch mehrere, bestenfalls alle ;-)
  AssignFile(log,'log.txt'); 
  ReWrite(log); 
  //ini Datei einlesen 
  try 
     b_gestartet:=False; 
     if not b_gestartet then 
     begin 
          AssignFile(IniFile,'bilder.ini'); 
          Reset(IniFile); 
M10:      ReadLn(IniFile,zeile); 
          if copy(zeile,1,6)='[Pfad]' then 
              ReadLn(IniFile,zeile) 
          else 
              goto M10; 
          StOrdner:=copy(zeile,1,Length(zeile)); 
          b_Gestartet := True; 
          CloseFile(IniFile); 
     end; 
  except 
    on e : Exception do begin
      WriteLn(log,e.Message);  // Damit Du sehen kannst, was für ein Fehler aufgetreten ist.
    end;
  end; 
  // Hier alle Datenbankkomponenten ihre Verbindungen aufbauen lassen und dann Tabellen, Abfragen... öffnen.
  // Jeweils in etwa dieser Form:
  Try
    Connection1.Connected := True;
  Except
    on e : Exception do begin
      WriteLn(Log,Connection1.Name + ': ' + e.Message);
    end;
  end;
  Try
    Table12345.Open
  Except
    on e : Exception do begin
      WriteLn(Log,Table12345.Name + ': ' + e.Message);
    end;
  end;
  ...
  CloseFile(log); 
end;