Hallo,
ob's mit PHP-Dateien funktioniert, weiß ich nicht, kommt auf 'nen Versuch an.
TPageProducer hat ein Attribut für einen Dateinamen, dort gebe ich mein Template an.
Wenn nun TPaceProducer.Content abgerufen wird, parst er diese Datei und ersetzt die Tags.
Delphi-Quellcode:
Var
pp : TPageProducer;
sFertigeSeite :
String;
begin
pp := TPaceProducer.Create(
Nil);
pp.HTMLFile := '
MeinTemplate.html';
pp.OnHTMLTag := ppHTMLTag;
// bei dieser Zuweisung werden die Tags ersetzt.
sFertigeSeite := pp.Content;
... mach damit was Du willst ;-)
pp.Free;
end;
procedure ppHTMLTag(diverse parameter macht Dir die
IDE, hab ich gerade nicht da);
begin
if comparetext(TagString,'
1terparameter')
then begin // Tagstring ist einer der Prozedurparameter
// Über die Komponente TDataSetTableProducer können hier auch komplette Abfrageergebnisse
// von Datenbanken eingefügt werden.
// Eigentlich ist alles möglich, was als Ergebnis einen String liefert.
ReplaceText := '
Das möchte ich beim Parameter <#1terparameter> im Template stehen haben';
end else
if comparetext(TagString,'
2terparameter')
then begin
ReplaceText := '
Das möchte ich beim Parameter <#2terparameter> im Template stehen haben';
end else begin
ReplaceText := '
Upp''
s, für den Parameter <#' + TagString + '
> habe ich keinen Rückgabewert.';
end;
end;
Das ist jetzt nur so hingedaddelt, habe momentan kein Delphi zur Verfügung.
Hoffe, es wird klar was geht, Du kannst ja dann entscheiden, ob's für Dich geeignet ist.