Forum: Multimedia
Delphi
by DeddyH,
31. Okt 2009
Sehr dubios, das Ganze :gruebel: Aber wenn es jetzt tut, belassen wir es dabei.
Forum: Multimedia
Delphi
by DeddyH,
31. Okt 2009
Und das soll jetzt die Erklärung für die ungültige Grafik sein?
Forum: Multimedia
Delphi
by DeddyH,
31. Okt 2009
Ach stimmt ja. Nun, man könnte ja alle Dateien einmal mit IrfanView o.ä. öffnen und explizit als Bitmap abspeichern.
Forum: Multimedia
Delphi
by DeddyH,
31. Okt 2009
if not FileExists(Pfad + bildarray) then
ShowMessage('Datei existiert nicht: "' + Pfad + bildarray + '"')
else
Image1.Picture.LoadFromFile(Pfad + bildarray);
Was kommt hierbei heraus?
Forum: Multimedia
Delphi
by DeddyH,
31. Okt 2009
Jetzt nimmst Du einmal den Code von hier und schaust, ob damit der Fehler immer noch auftritt.
Forum: Multimedia
Delphi
by DeddyH,
31. Okt 2009
Lad mal eine der Bilddateien hoch. Und Du benutzt immer noch relative Pfade. Drücken wir uns so undeutlich aus, oder willst Du unsere Hilfe gar nicht?
Forum: Multimedia
Delphi
by DeddyH,
31. Okt 2009
Zusammenfassung der Vorschläge:
//Pfad zu den Bildern als Konstante hinterlegen, spart Schreibarbeit
const Bildpfad = 'data\Black Jack Karten\';
//der Einfachheit halber globale Variablen, normalerweise würde man private Felder deklarieren
var
bildarray: array of string;
Pfad: string;
procedure TForm1.FormCreate(Sender: TObject);
Forum: Multimedia
Delphi
by DeddyH,
31. Okt 2009
Und relative Pfade sind auch "böse", verwende absolute. Den Pfad zum eigenen Programm bekommst Du mit ExtractFilePath(ParamStr(0)).