Pfad verloren.

[Starzyrific]

Hallo,

ich habe da folgendes Problem. Wenn ich versuche mein Programm von einem anderen Rechner zu starten kriege ich eine Fehlermeldung, die mir sagt, dass der Pfad zu irgendeiner Datei falsch ist oder so. Wie kann ich herausfinden, welche Datei das ist, die dem Programm fehlt, damit ich sie auf meinem Rechner finden und mit in den Exeordner tun kann.

Bin dankbar für alle Antworten.

Starzy

[Matze]

Hallo,

steht in der Fehlermeldung kein Pfad / keine Datei? Im Normalfall ist das doch immer angegeben. Wie lautet denn die Meldung genau?

[Starzyrific]

-----------------------------------------------------------
"Exception EMCIDeviceErrorin Modul Project2.exe bei 0053290.
Die angeforderte Datei wurde nicht gefunden. Stellen Sie sicher,
dass Pfad-und Dateiname richtig sind."
----------------------------------------------------------

Das ist die Fehlermeldung.

[Starzyrific]

Und das wir blau makiert, wenn ich noch in Delphi drin bin. Keine Ahnung, was das sein soll. In Form3 ist eigentlich nichts importiert.
---------------------------------------
Application.CreateForm(TForm3, Form3);
-----------------------------------------

[Daniel G]

Zitat:

Zitat von Starzyrific

-----------------------------------------------------------
"Exception EMCIDeviceErrorin Modul Project2.exe bei 0053290.
Die angeforderte Datei wurde nicht gefunden. Stellen Sie sicher,
dass Pfad-und Dateiname richtig sind."
----------------------------------------------------------

Das ist die Fehlermeldung.

Du öffnest irgendwas Soundmäßiges, was nicht da ist...irgendwie nen bissel Code für uns?

[Cyberbob]

Das Problem hatte ich auch mal. Damals hatte ich einen MediaPlayer, in dem eine Sounddatei abgespielt werden sollte. Als ich die Echse auf einem anderen PC öffnen wollte, habe ich eine Fehlermeldung erhlten.
Schau mal, ob du auf irgendwelche externen Dateien zugreifst, die nicht vorhanden sind.

[Starzyrific]

Also ich weiss nicht wieviel oder welches Stück genau ihr braucht, aber hier ist alles was in der Unit 3 drin ist. Sound ist jetzt draußen. Problem besteht immernoch.

Delphi-Quellcode:

unit Unit3;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls;

type
  TForm3 = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Timer1: TTimer;
    Label6: TLabel;
    Label8: TLabel;
    Label7: TLabel;
    Label9: TLabel;
    Label10: TLabel;
    Label11: TLabel;
    Timer2: TTimer;
    Timer3: TTimer;
    Timer4: TTimer;
    Label12: TLabel;
    Label13: TLabel;
    Label14: TLabel;
    Label15: TLabel;
    Label16: TLabel;
    Label17: TLabel;
    Button1: TButton;
    procedure FormCreate(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
    procedure Timer2Timer(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Timer3Timer(Sender: TObject);
    procedure Timer4Timer(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form3: TForm3;

implementation

uses Unit2, Unit1;

{$R *.dfm}

procedure TForm3.FormCreate(Sender: TObject);
begin
windowstate:=wsmaximized;
form3.enabled:=false;
end;

procedure TForm3.Timer1Timer(Sender: TObject);
begin
Form3.label6.Visible:=true;
Form3.label7.Visible:=true;
Form3.label8.Visible:=true;
end;

procedure TForm3.Timer2Timer(Sender: TObject);
begin
Form3.label9.Visible:=true;
Form3.label10.Visible:=true;
Form3.label11.Visible:=true;
end;

procedure TForm3.Button1Click(Sender: TObject);
begin
form3.Close;
form2.Show;
end;

procedure TForm3.Timer3Timer(Sender: TObject);
begin
form3.close;
end;

procedure TForm3.Timer4Timer(Sender: TObject);
begin

Form3.label1.Visible:=false;
Form3.label2.Visible:=false;
Form3.label3.Visible:=false;
Form3.label3.Visible:=false;
Form3.label4.Visible:=false;
Form3.label5.Visible:=false;
Form3.label6.Visible:=false;
Form3.label7.Visible:=false;
Form3.label8.Visible:=false;
Form3.label9.Visible:=false;
Form3.label10.Visible:=false;
Form3.label11.Visible:=false;

Form3.label12.Visible:=true;
Form3.label13.Visible:=true;
Form3.label13.Visible:=true;
Form3.label14.Visible:=true;
Form3.label15.Visible:=true;
Form3.label16.Visible:=true;
Form3.label17.Visible:=true;

end;

end.

[edit=SirThornberry]Delphi-Tags gesetzt. Mfg, SirThornberry[/edit]

[Starzyrific]

ich habe jettzt alle externen datein, die ich zwischenzeitlich mal benutz habe und die irgenwie in das programm gelangt sein könnten aufgesammelt und testweise in einen anderen ordner gepackt. all die, die hundertprozentig im programm gebraucht werden (und noch n paar andere) sind im exeordner. der exe ordner ist auf dem desktop und es läuft. verschiebe ich den ordner oder benenne ihn um->läuft nix.
ich habe auch die meisten anderen ordner auf dem rechner durchgetestet, indem ich sie umbenannt und das programm gestartet habe, aber ich finde den orner nicht, dessen inhalt den fehler verursacht.
verdammt. :wall:

[Daniel G]

Zitat:

Zitat von Starzyrific

Also ich weiss nicht wieviel oder welches Stück genau ihr braucht, aber hier ist alles was in der Unit 3 drin ist.

Tja..äh...dann is' das wohl nich die richtige...

[SirThornberry]

Es muss irgendein Programmteil sein der beim Start des Programmes aufgerufen wrid. Schau also am besten mal in das OnCreate des Formulars ob du dort irgendwo einen Dateinamen setzt. Oder verwendest du eine Komponente wo du einen Dateinamen zugewiesen hast?
Eventuell hast du ja die TMediaPlayer Komponente verwendet und im Objectinspector einen Dateinamen zugewiesen.

[Starzyrific]

Ich bins wieder. Danke für eure Hilfe bis jetzt.
Ich habe jetzt eine Unit rausgelöscht und nun wird in diesem "Project2" Bereich ganz unten "Application.Run;" blau markiert.
Was ist nun das Problem?

Delphi-Quellcode:

program Project2;

uses
  Forms,
  Unit1 in 'Unit1.pas' {Form1},
  Unit2 in 'Unit2.pas' {Form2},
  Unit4 in 'Unit4.pas' {Form4};

{$R *.res}

begin
  Application.Initialize;
  Application.CreateForm(TForm2, Form2);
  Application.CreateForm(TForm4, Form4);
  Application.CreateForm(TForm1, Form1);
  Application.Run;     <-----blau
end.

[ichbins]

Manchmal ist die Fehlerzeile auch die Zeile über der markierten.

Schau mal wo überall in deiner Unit1 ein Sound aufgerufen wird (v.a. Create) und poste den Code. Welchen mediaplayer verwendest du?

[Starzyrific]

also mit Form.Create wird da nichts erstellt.

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject);
begin

end;

end.

gar nix.

[SirThornberry]

und hast du schon geprüft das du im Objectinspektor keinen Filename angegeben hast? Laut deiner Beschreibung (nichts steht im Create aber der Fehler tritt beim creiren auf) scheint dies der fall zu sein.