Hallo Raphael,
Zitat von
cherry:
... Aber mit der Verwendung von TPageProducer habe ich so meine Bedenken, ich hab noch nie was mit dieser Komponente gemacht, denkst du es wäre wirklich sinnvoll da ich die Dateien nur erstellen und nicht lesen muss. ...
Gerade das war der Grund für meine Überlegung.
Hier eine Andeutung für eine mögliche Vorgehensweise:
Delphi-Quellcode:
procedure TDemoForm.FormCreate(Sender: TObject);
begin
Params := TStringList.Create;
PageProducer.HTMLDoc.LoadFromFile(fnTemplate);
end;
procedure TDemoForm.Button1Click(Sender: TObject);
begin
Params.Clear;
Params.Values['userName'] := 'sa';
ShowMessage(PageProducer.Content);
end;
procedure TDemoForm.PageProducerHTMLTag(Sender: TObject; Tag: TTag;
const TagString: String; TagParams: TStrings; var ReplaceText: String);
begin
case Tag of
tgCustom: ReplaceText := Params.Values[TagString];
else ReplaceText := Format('', [TagString])
end;
end;
Im Template steht dann unter anderem so etwas:
XML-Code:
...
<userName><#userName></userName>
...
Das lässt sich nach Belieben verfeinern.
Freundliche Grüße