Auf Form keine Bilder anzeigen ?

[Urba]

Hallo Leute,

Ich habe eine DLL geschrieben, in der sich ein Formblatt namens "Load" befindet. Hinzu habe ich eine Funktion geschrieben, die extern aufrufbar ist und das Form laden soll :

Code:

procedure ShowLoadForm; stdcall;
begin
  //Form anzeigen
  Load := TLoad.Create(nil);
  Load.BorderIcons := [];
  Load.BorderStyle := bsNone;
  Load.WindowState := wsMaximized;
  Load.IHinter.Picture.LoadFromFile('Menu.bmp');

  try
    Load.ShowModal;
  finally
    Load.Release;
  end;
end;

Nun kommt es aber zu einem Fehler wenn ich diese Funktion aufrufe. Und zwar bezieht sich der Fehler auf das Image ("IHinter") in welches ein Bild geladen werden soll. Der Fehler lautet "Exception EFOpenError". Ich weiss dass diese Exception bei dem fehlerhaften Laden einer Datei auftritt, allerdings weiss ich ganz genau, dass die Datei existiert und auch ladbar ist. Daher verstehe ich das nicht. Muss man dabei irgendeinen Trick anwenden ?

Hoffe ihr könnt mir helfen !

Gruss
Urba

[trifid]

Hallo,

existiert nun die Bild-Datei oder nicht ?

Delphi-Quellcode:

  Load.BorderStyle := bsNone; 
  Load.WindowState := wsMaximized; 
  if FileExists ('Menu.bmp') = True then
  begin
     Load.IHinter.Picture.LoadFromFile('Menu.bmp'); 
  end else begin
     // irgend eine meldung das was fehlt
  end;

  try

oder Du bindest die "menu.bmp" als Resource in Deine EXE mit ein ...
dann geht sie auch nicht verloren :wink:

[neolithos]

Versuch mal das um den Fehler einzugrenzen....

Delphi-Quellcode:

var picMenu : TPicture;

  picMenu := TPicture.Create;
  try
    picMenu.LoadFromFile('Menu.bmp');
    Load.IHinter.Picture := picMenu);
  finally
    picMenu.Free;
  end;

[Urba]

Danke Leute aber es kann und liegt auch nicht daran, dass das Bild nicht gefunden wurde. Es ist eine sichere Tatsache, dass das Bild vorhanden ist

[trifid]

Hallo,

wo liegt die DLL, auch dort wo das Bild ist ?
versuche es mal mit einen absoluten Pfad
<c:\temp\menu.bmp>

[Urba]

habe ich vielleicht vergessen zu erwähnen : Der eigentliche Pfad ist auch absolut - ich habe ihn nur für das Beispiel weggemacht :?

[SirThornberry]

eventuell noch eine pfadangabe machen, als ich mal den pfad weg gelassen hab wurde nicht im verzeichnis des programms etwas angelegt sondern im windos verzeichnis... Um wirklich sicher zu gehen das deine datei auch gefunden bin mach mal FileExist

[Edit]Naja, da hat sich der punkt mit dem pfad schon erledigt, aba trotzdem mal schauen ob die datei vorhanden ist, vielleicht ist nen buchstaben dreher oder sowas drin[/Edit]

[trifid]

Hallo,

mach mal aus den
Load := TLoad.Create(nil);
ein
Load := TLoad.Create(Application);

[Urba]

Danke klappt jetzt - das Problem war wegen einer meiner Klassen, dort wurden die Daten nicht richtig geladen.

[choose]

Hallo Urba,

mich verwirrt ein wenig die Art Deiner Objekterzeugung/-freigabe:

Delphi-Quellcode:

Load := TLoad.Create(nil); 
//...
try 
  Load.ShowModal; 
finally 
  Load.Release; 
end;

was genau verbirgt sich hinter Release bzw von welchem Typ ist Load?