Einzelnen Beitrag anzeigen

Benutzerbild von mikhal
mikhal

Registriert seit: 11. Sep 2003
Ort: Linz am Rhein
796 Beiträge
 
Delphi 11 Alexandria
 
#27

Re: Wie kann ich jpeg#s in D3 einlesen?

  Alt 29. Jul 2004, 08:45
Weiter oben wurde eine Laderoutine angeboten, eventuell mußt du sie erweitern:

Code:
procedure LadeJpg(FileName: String; Bild: TBitMap);
  var Jpeg: TJpegImage;
begin
  Jpeg:=TJpegImage.Create;
  try // unbedingt in einen Exception-Block fassen
    jpeg.LoadFromFile(filename);
    jpeg.DibNeeded; // <- Bitmap erzeugen!
    Bild.Assign(Jpeg);
  finally
    jpeg.free;
  end;
end;
Grüße
Mikhal
Michael Kraemer
Computer erleichtern die Arbeit...
...und die Erde ist eine Scheibe!
  Mit Zitat antworten Zitat