HILFE! Fehler im "Bild"-Zufallsgenerator

[alleinherrscher]

Zitat:

Zitat von DeddyH

Delphi-Quellcode:

if not FileExists(Pfad + bildarray[zufall1]) then
  ShowMessage('Datei existiert nicht: "' + Pfad + bildarray[zufall1] + '"')
else
  Image1.Picture.LoadFromFile(Pfad + bildarray[zufall1]);

Was kommt hierbei heraus?

Warum sollte denn der Fehler EInvalidGraphic angezeigt werden, wenn der Dateiname nicht stimmt?

[DeddyH]

Ach stimmt ja. Nun, man könnte ja alle Dateien einmal mit IrfanView o.ä. öffnen und explizit als Bitmap abspeichern.

[KING_OF_BONGO]

Ok ich werde es mal mit iranview versuchen.

[alleinherrscher]

Zitat:

Zitat von DeddyH

Ach stimmt ja. Nun, man könnte ja alle Dateien einmal mit IrfanView o.ä. öffnen und explizit als Bitmap abspeichern.

Was mich wundert ist, dass Karte_Verdeckt.bmp (die ja laut Debugger den Fehler verursacht) ein gültiges 32-Bit Bitmap ist (habs mit Irfanview getestet, und mir den Fileheader angesehen) und dass ich es (in Delphi 2005) ohne Probleme per LoadfromFile laden kann. Was mich noch mehr wundert ist, dass es scheinbar vor dem Codeumbau funktionierte. Das kann ich mir alles noch nicht so recht erklären. Magst du uns vielleicht den ganzen Code inkl. Bildern verzippen und hochlanden?

[KING_OF_BONGO]

So hier ist das "Programm".
(ExtractFilePath(ParamStr(0))muss noch eingetragen werden)

[alleinherrscher]

Die wichtigste Datei, die Unit1.pas, ist nicht mit dabei :(

[KING_OF_BONGO]

oh sry :oops: :oops: :oops:

[alleinherrscher]

Seht ihr, das habt ihr jetzt davon, dass ihr ihm die tollen, sauber programmierten Funktionen geschrieben habt: Wenn er sie nicht richtig einbinden kann, bringen sie ihm nix.

Pass auf dein Problem ist ganz einfach: Du hast die FormCreate Prozedur aus dem Forum hier kopiert aber du hast sie im Objekt Inspektor nicht mit dem Ereignis OnCreate verbunden. Daher wird FormCreate nie aufgerufen und dein Bildarray bleibt leer.

Wähle bitte im Objekt Inspektor Form1 aus, klicke dann auf den Karteireiter "Ereignisse" und dann klicke bitte doppelt in den leeren Eintrag rechts neben "OnCreate", dann sollte er an dieser stelle automatisch den Text "FormCreate" reinschreiben.

Anschließend ist die Prozedur "FormCreate" mit dem Ereignis "OnCreate" verknüpft und du dein Programm läuft wunderbar.

[KING_OF_BONGO]

Vielen Dank alleinherrscher, jetzt klappt es wunderbar! :thumb: :thumb: :thumb:

[DeddyH]

Und das soll jetzt die Erklärung für die ungültige Grafik sein?