Fotos load from file

[Fussel9]

Du kannst dir in dem Programm auch deine Bilder anzeigen lassen nimm einfach die dat.txt und setz an der gegebenen Stelle statt Testbild2.jpg oder den anderen Testbildern mal den dateinamen deiner datei ein... die datei muss dazu nur im selben verzeichniss liegen

[khh]

Zitat:

Zitat von Fussel9

Delphi-Quellcode:

procedure TFMain.Label1Click(Sender: TObject);
begin
//ShowMessage(ExtractFilePath(ParamStr(0)));
PB.StepBy(10);
while PB.Position < 100 do
  begin
    PB.StepBy(10);
  end;
//IShow.Picture.LoadFromFile(ExtractFilePath(ParamStr(0))+'lemontree.jpg');
IShow.Picture.LoadFromFile(Pfad+Liste.gibElement.GibBild);
MOutline.Clear;
MOutline.Lines.add(Liste.gibElement.GibName);
Liste.zumnaechsten;
TProgress.Enabled:=True;

das ist aus nem programm das ich mal geschrieben habe

habs ausprobiert und da hab ich das problem nicht

€D$T:
habs dir mal als zip angehäng ;)

danke dir, werd ich mir anschauen

[jus]

Hallo khh,

wenn das Programm unter Windows laufen soll, dann könntest du unter Umständen probieren, das Bild über GDI+ reinzuladen. Es sein kann, dass die Jpeg Komponente nicht mit allen Jpg Dateien zurecht kommt. Schaue dir die den folgenden Beitrag an:

Error beim Laden von JPG-Dateien

:)

Lg,
jus

[nahpets]

Hallo,

meines wissens sind die ersten 10 Byte eines JPegs immer

Code:

FF D8 FF E0 00 10 4A 46 49 46

oder wenn Du es als Text prüfen willst:

Die Bytes 6 bis 9 sind die Zeichenfolge JFIF (Zählung bei 0 beginnend)

[khh]

ich danke euch


gruss KH

[khh]

Zitat:

Zitat von nahpets

Hallo,

meines wissens sind die ersten 10 Byte eines JPegs immer

Code:

FF D8 FF E0 00 10 4A 46 49 46

oder wenn Du es als Text prüfen willst:

Die Bytes 6 bis 9 sind die Zeichenfolge JFIF (Zählung bei 0 beginnend)

hab grad mal mit nem Hex-editor in ein file reingeschaut.

die Bytes 6-9 zu prüfen sollte dann eigentlich reichen, oder?
ich danke dir

Gruss KH

[jus]

Zitat:

Zitat von khh

Zitat:

Zitat von mkinzler

JPeg-Error hört sich aber eher nicht nach einem falschen Dateinamen, sondern eher nach einem nicht unterstützten Format an

eben, deshalb meine Vermutung dass die Endung nicht mit dem Format übereinstimmt.

in diesem Fall stellt sich die Frage, ob ich das Dateiformat irgendwie auf Richtigkeit prüfen kann.

Oder einfach nur den Fehler abfangen und eine globale Meldung bringen?

Wenn es darum geht eine Datei auf ein Format zu überprüfen, so könntest du z.B. die Vampyre Imaging Lib verwenden. Mit dieser Lib ist die Formaterkennung ein Einzeiler:

Delphi-Quellcode:

var
  FileStream:TFileStream;
  Ext: String;
  ...
begin
...

FileStream := TFileStream.Create('C:\test.jpg', fmOpenRead);
Ext:=DetermineStreamFormat(FileStream);
FileStream.Free;
...

in der String Variable Ext liefert z.B. "jpg" zurück.

Die Frage ist nur, ob du dich mit der Vampyre beschäftigen willst. 8-)

Lg,
jus

[khh]

danke dir,
einen Blick da rein ist es sicher auf jeden Fall wert.

Gruss KH