Πρόβλημα με άνοιγμα εικόνας σε Delphi

[noasgr]

Παιδιά γεια χαρά

Προσπάθησα να κάνω κάτι σε Delphi 6 αλλά ακόμα δεν ξεκίνησα και τα προβλήματα με πρόλαβαν! Ποιό συγκεκριμένα, όταν πάω να ανοίξω μια εικόνα jpg σε ένα image τότε μου βγάζει τα παρακάτω errors. Τα filters του OpenDialog τα έχω δει και ξαναδεί και άκρη δεν βγάζω. Το πρόγραμμα με bmp δουλεύει!!

Τι μπορεί να φταίει?

Φχαριστώ εκ των πρωτέρων

errors.zip

[GCMH]

Το αντικείμενο Image που χρησιμοποιείς ΔΕΝ μπορεί να διαχειριστεί JPEG αρχεία (μόνο BMP, ICO, Metafiles, όπως ακριβώς λέει και στο help)...

 

Χρησιμοποίησε την βιβλιοθήκη JPEG ή ρίξε μια ματιά εδώ: http://www.swissdelphicenter.ch/torry/showcode.php?id=2012

 

(ουφ! τα εκατόστησα τα μηνύματα )

[noasgr]

Χρησιμοποίησε την βιβλιοθήκη JPEG

 

Δηλαδή?

 

P.S. Να τα χιλιάσεις

[GCMH]

Εννοώ πως στα uses πρόσθεσε και JPEG (ελπίζω η Delphi 6 να την έχει)...

 

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, StdCtrls, ExtCtrls, JPEG;

 

 

Ακολούθως:

 

procedure TForm1.Whatever;

var

jpeg: TJPEGImage;

begin

jpeg:=TJPEGImage.Create;

jpeg.CompressionQuality:=100;

jpeg.LoadFromFile(FileName);

 

Image1.Height:=jpeg.Height;

Image1.Width:=jpeg.Width;

 

Image1.Picture.Bitmap.Assign(jpeg);

 

jpeg.free;

end;

 

ή τέλος πάντων κάτι τέτοιο, εσύ θα το προσαρμόσεις στο

πρόγραμμά σου όπως θέλεις...(αχ τί θα κάνουμε τώρα με την Delphi-η μαμα Borland μας την έφερε!! :? )

 

Υ.Γ. ευχαριστώ...

[damn3]

Μπορείς επίσης να δοκιμάσεις την graphics32 library για άνοιγμα αρχείων jpg.

 

http://www.g32.org/

[clairvoyant]

Τουλάχιστον στην Delphi 5, αρκεί ένα Uses jpeg. Κάνεις compile και μετά μπορείς να διαλέξεις jpeg images ακόμη και μέσα από τον designer.

[damn3]

και στην Delphi 6 το ίδιο κάνεις, απλώς με τη library που ανέφερα ανοίγεις είκονες μέχρι 32 bit.

[noasgr]

Παιδιά thnx σε όλους, λύθηκε με ένα use jpeg (Delphi 6)

Και πάλι thnx!