Einzelnen Beitrag anzeigen

Ralf Stehle

Registriert seit: 8. Aug 2003
124 Beiträge
 
Delphi 7 Professional
 
#1

Bitmap in Jpeg umwandeln und mit Image-Komponente ausdrucken

  Alt 20. Mär 2006, 21:10
Ich möchte mehrere JPG´s nacheinander als PDF-Datei ausdrucken.
Leider bekomme ich immer das gleiche Bild ausgedruckt, in die TPRJpegImage-Komponente lässt
sich anscheinend einfach kein neues Bild laden

Delphi-Quellcode:
procedure TForm1.PrintJpgClick(Sender: TObject);
var
  Rec: TSearchRec;
  bmp :TBitmap;
  jpg :TJPEGImage;
begin
  bmp:=TBitmap.Create;
  jpg:=TJPEGImage.Create;
  PReport1.BeginDoc; {powerpdf_0.9.zip Komponente}

  if FindFirst('*.bmp', faAnyFile, Rec) = 0 then
  try
  repeat
    if REC.Attr and faDirectory <> faDirectory then
    begin
      bmp.LoadFromFile(Rec.Name);
      jpg.Assign(bmp);
      PRJpegImage1.Picture.Assign(jpg);
      PReport1.Print(PRPage1); {powerpdf_0.9.zip Komponente}
    end;
    until
      FindNext(Rec) <> 0
    finally
      FindClose(Rec);
    end;

  PReport1.EndDoc; {powerpdf_0.9.zip Komponente}
end;
wenn ich nach
Delphi-Quellcode:
jpg.Assign(bmp);
jpg.SaveToFile(....);
eingebe, bekomme ich aber korrekt alle Bilder gespeichert. Es muss also an der TPRJpegImage-Komponente liegen, die genauso wie die Standard-Komponente TImage arbeitet
Ralf Stehle
ralfstehle@yahoo.de
  Mit Zitat antworten Zitat