Einzelnen Beitrag anzeigen

Svenkan

Registriert seit: 10. Feb 2007
Ort: Bersenbrück
547 Beiträge
 
Delphi 7 Enterprise
 
#1

TPageProducer - Zusätzlichen Code einlesn | Inhalt speichern

  Alt 26. Jul 2007, 13:42
Wie ist es zu bewerkstelligen, dass ich Code aus weiteren Dateien einlesen kann, ohne dass der alte Code dabei verloren geht?

Delphi-Quellcode:
 Query1.First;
 if Pred(Query1.RecordCount)=-1 then begin
  Params.Values['trcolor']:=tdc1;
  Params.Values['fontcolor']:=fc1;
  PageProducer.HTMLDoc.Add(ExtractFilePath(ParamStr(0))+'templates\vplan_no.vpt');
 end
 else begin
  while not Query1.EOF do begin
   //PageProducer.HTMLDoc.Add(); <~~~ an der Stelle müsste nun der Code hin, der jeweils im Durchlauf hinzugefügt werden müsste; er befindet sich in der Datei templates/vplan_vbit.vpt
/edit: Ich habe jetzt vorerst es so gemacht, dass der Dateiinhalt zunächst in ein Memo eingelesen wird und von dort aus weiterverwendet. Das funktioniert zwar, aber ich denke, dass es da auch noch eine bessere Lösung gibt, oder? :/

Desweiteren: Wie bekomm ich PageProducer.Content direkt in eine File gesaved?
SaveToFile gibts in dem Zusammenhang ja nicht. Oder muss ich das vorher in .HTMLDoc übergeben?
Sven Kannenberg
  Mit Zitat antworten Zitat