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