Load from file

[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

[Martin K]

Also als endgültige Lösung müsste dann das gehen:
(Das Bild von der Digicam laden, nicht das von Paint gespeicherte!)

Delphi-Quellcode:

procedure TSchuleForm.ListBox1Click(Sender: TObject); 
begin 

if Listbox1.ItemIndex=0 then 
   begin 
    Image1.Picture.LoadFromFile('C:\Documents and Settings\Admin\Desktop\schule\pics\schulphotos\hauptein.jpe'); 
   end; 

end;

Geht's ?

[f4r]

Zitat von Martin K:

Also als endgültige Lösung müsste dann das gehen:
(Das Bild von der Digicam laden, nicht das von Paint gespeicherte!)

Delphi-Quellcode:

procedure TSchuleForm.ListBox1Click(Sender: TObject); 
begin 

if Listbox1.ItemIndex=0 then 
   begin 
    Image1.Picture.LoadFromFile('C:\Documents and Settings\Admin\Desktop\schule\pics\schulphotos\hauptein.jpe'); 
   end; 

end;

Geht's ?

ja danke es geht alles wunderbar danke euch alle

btw.: warum nicht die bilder von paint nehemen ?

[Martin K]

Naja, also Paint ist ja nun wirklich absolut nicht das Profi-Programm.
Wenn dein Bild groß genug ist, ist es nicht so schlimm mit Paint...
Aber bei kleineren jpeg-Bildern finde ich die Qualität (Komprimierung) bei Paint miserabel.

Aber natürlich kannst du machen, was du willst!

P.S.: Wer bearbeitet denn seine Digicam-Bilder heute noch mit Paint???