Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Dani,
25. Mär 2008
Das JPEG ist 150 MB groß? Was hat das denn für eine Auflösung?
Was du natürlich immer machen kannst, ist, das Bild "gekachelt" auf den Drucker auszugeben. Also immer nur ein Rechteck mit beschränkter Größe (siehe Bild). Das erfordert zwar ein bischen mehr Code, aber dir geht dann nicht mehr so schnell der Speicher aus. AFAIK müsstest du dir dafür aber noch eine andere JPEG-Komponente suchen,...
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Dani,
25. Mär 2008
Wahrscheinlich reicht es schon, die JPEG-Grafik aus dem TImage in eine TBitmap zu kopieren. Dann:
...
TempBMP.Assign(Pic);
TempBMP.HandleType := bmDIB;
with Printer do begin
...
Canvas.StretchDraw(R, TempBMP);
end;
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Dani,
25. Mär 2008
Probier mal Folgendes:
var pic : tjpegimage;
begin
...
pic := tjpegimage.create;
pic.assign(image1.picture.graphic);
//Neues TImage auf Form klatschen
Image2.Picture.Assign(Pic);