Load from file

[Martin K]

Also dass kann eigentlich nicht sein.
Ich habe schon jede Menge JPEG-Bilder mit:
Image1.Picture.LoadFromFile('...'); geladen, dass geht einwandfrei (wenn Jpeg in uses).

@f4r:
Bist du Dir wirklich sicher, dass Du genau diesen Code mit einem Bitmap getestet hast und dass das geht?

Dann fällt mir nur noch eins ein:
Vielleicht ist die Dateiendung *.jpg und nicht *.jpeg !!!

Probier das doch mal aus:
Image1.Picture.LoadFromFile('C:\Documents and Settings\Admin\Desktop\schule\pics\schulphotos\hauptein.jpg');

[f4r]

hi mit ner bmp datei klappt das alles wunderbar hab ich auch obn geschrieben hab aber nur jpegs

ob jpg JPG jpeg JPEG hab ich alles scho probiert
um jetzt nochmal eindeutig zu zeigen das die datei wirklici in der quelle ist hab ich die datei in genau den selber ordner gepackt wie die exe folgendes zeigt er an:

[Martin K]

Sag mal, kann es vielleicht sein, dass das irgend so eine "Special-Jpeg-Datei" ist ?
Also irgendsowas selbst gebasteltes, was eigentlich gar kein Jpeg-Bild ist, sondern nur die Endung hat?
Versuch's doch mal mit einem "ganz normalen" Jpeg (z.B. mit Paint, Speichern unter..., JPEG).

Geht das

Wenn nicht, kann ich Dir auch nicht weiterhelfen (keine Ahnung, woran das liegt).

Vielleicht kannst Du ja mal dein Programm rüber posten.... (evtl. find ich dann den Fehler..)

[Martin K]

Weißt du, was mir grad auffällt?
Auf deinem Screenshot steht "Nadmin" im Dateipfad, vorher stand da "Admin"

[f4r]

Zitat von Martin K:

Sag mal, kann es vielleicht sein, dass das irgend so eine "Special-Jpeg-Datei" ist ?
Also irgendsowas selbst gebasteltes, was eigentlich gar kein Jpeg-Bild ist, sondern nur die Endung hat?
Versuch's doch mal mit einem "ganz normalen" Jpeg (z.B. mit Paint, Speichern unter..., JPEG).

Geht das

Wenn nicht, kann ich Dir auch nicht weiterhelfen (keine Ahnung, woran das liegt).

Vielleicht kannst Du ja mal dein Programm rüber posten.... (evtl. find ich dann den Fehler..)

hey danke man kann in der tat kann man die datei mit paint oeffnen und als jpeg neu speichern lol ich hab jetzt 2 jepgs mit gleichen namen die windows auch beide als jpeg datein erkennt
naja nu koennt ich sie uch in bitmaps umwandeln das is jacke wie hose

aber die pics komm von ner digicam
naja danke prob gelöst

ihr seit die besten

[f4r]

Zitat von Martin K:

Weißt du, was mir grad auffällt?
Auf deinem Screenshot steht "Nadmin" im Dateipfad, vorher stand da "Admin"

schau noch ma richtig was da steht

ich hab nur den namen in admin umgewandelt

gruss
nadim

[turboPASCAL]

Wenn das Bild von diener D-Cam kommt prüfe mal die Einstellungen, nicht das das Format Jpeg2000 ist.

[Martin K]

Zitat von f4r:

ich hab jetzt 2 jepgs mit gleichen namen die windows auch beide als jpeg datein erkennt

Also dann hat eines von beiden Definitiv eine andere Dateiendung:
Vielleicht hat es die Endung *.jpe oder *.jfif (Das gibt's auch bei Jpeg-Bildern) !

Guck doch mal nach, was deine Bilder von der Digicam für eine Endung haben:
Im Windows Explorer auf Extras -> Ordneroptionen... -> Ansicht -> kein Häkchen bei "Erweiterungen bei bekannten Dateitypen ausblenden"

[f4r]

hat die endung jpe
das ist ja gemein

wie soll man denn darauf bitte kommen

*sauern bin* auf jpeg erfinder

danke nochmal an alle !!!!

[ManuMF]

Zitat von f4r:

Delphi-Quellcode:

procedure JpegToBMP(JpegFileName: string; const OutBitmap : TBitmap);
  var JPG: TJPEGImage;
begin
  JPG := TJPEGImage.Create;
  try
    JPG.LoadFromFile(JpegFileName);
    OutBitmap.Assign(JPG);
  finally
    JPG.free;
  end;
end;

mit dem teil wird dann geprüft ob die datei sich am ort befindet oder wie ?

Delphi-Quellcode:

JpegToBMP('Der Name der JPG-Datei, die geladen werden soll', Image1.Picture.Bitmap);

hier mit wird dann das kpeg umgewandelt und als bmp ins image ? ? ?

wie krich ich das ganze jetzt in mein listbox procedure

gruss

Wie wär's mal mit durchlesen?
Auch wenn es jetzt so geklappt hat - ich habe für meine Lösung genau beschrieben, was du hättest machen müssen:

Zitat von ManuMF:

Also muss ein JPEG vorher in ein Bitmap umgewandelt werden. Das macht meine Prozedur. Statt
Image1.Picture.LoadFromFile schreibst du, wie ich oben schon bei "Aufruf" geschrieben habe,
JpegToBMP('Der Name der JPG-Datei, die geladen werden soll', Image1.Picture.Bitmap); Gruß,
ManuMF

also

Delphi-Quellcode:

procedure TSchuleForm.ListBox1Click(Sender: TObject);
begin

if Listbox1.ItemIndex=0 then
   begin
    // ALTER AUFRUF:
    // Image1.Picture.LoadFromFile('C:\Documents and Settings\Admin\Desktop\schule\pics\schulphotos\hauptein.jpeg');
    // NEUER AUFRUF:
    JpegToBMP('C:\Documents and Settings\Admin\Desktop\schule\pics\schulphotos\hauptein.jpeg', Image1.Picture.Bitmap);
   end;

end;

War das denn so schwer?

Gruß,
ManuMF