Hallo,
nach langen Mühen habe ich es endlich geschafft, eine Reihe von Bildern in einem FR4 Report auszugeben.
Bin mit der Lösung auch ganz zufrieden.
Ich habe festgestellt, dass man dazu alles aus der Delphi
IDE steuern kann, also keinerlei Code in der FR4
IDE benötigt.
Den benutzten Code habe ich unten angehangen.
Delphi-Quellcode:
procedure TForm1.FormCreate(Sender: TObject);
begin
sl := TStringList.Create;
sl.Add('G:\Path\Test1.bmp');
sl.Add('G:\Path\Test2.bmp');
sl.Add('G:\Path\Test3.bmp');
sl.Add('G:\Path\Test4.bmp');
sl.Add('G:\Path\Test5.bmp');
sl.Add('G:\Path\Test6.bmp');
sl.Add('G:\Path\Test7.bmp');
sl.Add('G:\Path\Test8.bmp');
sl.Add('G:\Path\Test9.bmp');
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
FrxReport1.PrintOptions.Printer := 'Acrobat PDFWriter';
FrxReport1.FileName := 'G:\Path\TargetDoc.pdf';
StringDS.RangeEnd := reCount;
StringDS.RangeEndCount := sl.Count;
frxReport1.ShowReport;
end;
procedure TForm1.frxReport1BeforePrint(c: TfrxReportComponent);
var
Pict: TfrxPictureView;
Name: string;
begin
if c is TfrxPictureView then
begin
Name := TfrxPictureView(c).Name;
if Name = 'Picture1' then
begin
Pict := TfrxPictureView(c);
Pict.Picture.LoadFromFile(sl[StringDS.RecNo]);
end;
end;
end;
Dazu fiel mir nur eine alte Frage aus Studienzeiten ein:
Wieviel Versuche benötigt ein Affe, um "Romeo und Julia" auf einer Schreibmaschine zu tippen.
Vielen Dank an Euch alle,
neo4a darf diesen Code auch unentgeldlich benutzen.
Eine Frage habe ich trotzdem noch:
Zur Laufzeit in der Reportvorschau.
Wenn ich den Printdialog zum Speichern der 'TargetDOC.pdf' aus der Druckvorschau heraus öffne, wird im Speicherdialog schon der richtige Dateiname 'TargetDOC.pdf' angezeigt, jedoch nicht der richtige Pfadname 'G:\Pfad'.
Stattdessen steht dort 'C:\Dokumente und Einstellungen\Benutzer\Eigene Dateien'.
Wie bekomme ich dem Speicherdialog unter der Reportvorschau den richtigen Pfadnamen beigebogen ?
Viel Spass beim Knobeln und
Frohe Ostern
EB