Thema: Delphi Problem mit JPG-Datei

Einzelnen Beitrag anzeigen

Pytho

Registriert seit: 23. Jan 2005
Ort: Vöcklabruck
7 Beiträge
 
Delphi 6 Personal
 
#5

Re: Problem mit JPG-Datei

  Alt 11. Feb 2007, 23:02
Hmm, also das sieht jetzt so aus:

Delphi-Quellcode:
uses GDIPAPI,GDIPOBJ,ActiveX;
procedure DrawJPG(
jpgStr: TStream; //Enthält den Code des JPG-Bildes
CaV: TCanvas //Darauf will ich zeichnen
);
var
graphics: TGPGraphics;
image: TGPImage;
istr: IStream;
begin
  graphics:=TGPGraphics.create(CaV.Handle);
  jpg_str.Seek(0,soFromBeginning);
  istr:=TStreamAdapter.Create(jpg_str) as IStream;
  image:=TGPImage.Create(istr);
  graphics.DrawImage(image,0,0);
  graphics.Free;
  image.Free;
  jpg_str.free;
end;
  Mit Zitat antworten Zitat