Thema: Delphi Load from file

Einzelnen Beitrag anzeigen

Benutzerbild von ManuMF
ManuMF

Registriert seit: 11. Jul 2005
1.016 Beiträge
 
Delphi 6 Personal
 
#20

Re: Load from file

  Alt 2. Dez 2005, 18:58
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
Gruß,
ManuMF

Endlich hab ich was Positives an Vista entdeckt: Das mitgelieferte Mahjongg
  Mit Zitat antworten Zitat