HTML-Pläne aufteilen auf mehrere Seiten

[Svenkan]

Delphi-Quellcode:

 Query1.First;
 [...]
 end
 else begin
 while not Query1.EOF do begin
 if ((rcount mod max_p_seite) = 0) then begin
  //Seite abschließen
  PageProducer.HTMLDoc.LoadFromFile(ExtractFilePath(ParamStr(0))+'\templates\vplan_tableend.tpl');
  vplan_heute.Lines.Add(PageProducer.Content);

  PageProducer.HTMLDoc.LoadFromFile(ExtractFilePath(ParamStr(0))+'\templates\vplan_ende.tpl');
  vplan_heute.Lines.Add(PageProducer.Content);

  vplan_heute.Lines.SaveToFile(dsb_exp_path+'\vplan_heute_'+IntToStr(seite)+'.htm');
  seite:=seite+1;
  rcount:=1;

  //neue Seite öffnen
  vplan_heute.Lines.Clear;
  PageProducer.HTMLDoc.LoadFromFile(ExtractFilePath(ParamStr(0))+'\templates\vplan_start.tpl');
  vplan_heute.Lines.Add(PageProducer.Content);

  Params.Values['seite'] := IntToStr(seite+1);

  PageProducer.HTMLDoc.LoadFromFile(ExtractFilePath(ParamStr(0))+'\templates\vplan_tabledesc.tpl');
  vplan_heute.Lines.Add(PageProducer.Content);
 end;

PageProducer.HTMLDoc.LoadFromFile(ExtractFilePath(ParamStr(0))+'\templates\vplan_vbit.tpl');

[...Bestimmen der Vertretungsvariablen...]

 Params.Values['klasse'] := klasse+' - #'+inttostr(rcount);
 Params.Values['stunde'] := stunde;
 Params.Values['fehlt'] := fehlt1;
 Params.Values['vertritt'] := vertritt1;
 Params.Values['fach'] := fach1;
 Params.Values['raum'] := raum1;
 Params.Values['bemerkung'] := bemerkung_leh;

 vplan_heute.Lines.Add(PageProducer.Content);
   Query1.Next;
  Inc(rcount);
  end;
 end;
 end;

/edit: @ Teddy: Leider ist dies hier nicht angebracht. Das sind Monitorpläne und die Rechner, auf denen das Programm läuft, haben nicht zwangsweise Internetzugang!

[DeddyH]

Auf den ersten Blick sind mir 2 Dinge aufgefallen:
1. müsste rcount auf 0 gesetzt werden, nicht auf 1
2. wird die letzte Seite nicht abgeschlossen.

[Die Muhkuh]

Wie groß ist den max_p_seite?

Ich les mir den Code schon zum dritten Mal durch und wüsste jetzt nicht, wo da was sein könnte (bis auf das, was der liebe Detlef schon sagte).

Bist Du mal mit dem Debugger drübergesteppt und hast Dir die Variablen ausgeben lassen?

[DeddyH]

Mal was anderes: wo wird der Datensatz eigentlich ausgewertet?

[Die Muhkuh]

Ich denk mal da, wo

Zitat:

[...Bestimmen der Vertretungsvariablen...]

steht

[DeddyH]

Keine Ahnung, ich kenne mich mit dem PageProducer nicht aus.

[Die Muhkuh]

Wird sowieso ein Eigengewurschtel von ihm sein.

Btw., wenn Du das ExtractFilePath(ParamStr(0)) in einer Variable abspeicherst, sparst Du Dir die Haufen Aufrufe. Obendrein wird der Code übersichtlicher.

[Svenkan]

Zitat von Die Muhkuh:

Ich denk mal da, wo

Zitat:

[...Bestimmen der Vertretungsvariablen...]

steht

Rüchtüüüch.

Zitat von Die Muhkuh:

Wird sowieso ein Eigengewurschtel von ihm sein.

Btw., wenn Du das ExtractFilePath(ParamStr(0)) in einer Variable abspeicherst, sparst Du Dir die Haufen Aufrufe. Obendrein wird der Code übersichtlicher.

Hehe, ja, das stimmt wohl. Habs mir mal aufgeschrieben.

Zitat von DeddyH:

Keine Ahnung, ich kenne mich mit dem PageProducer nicht aus.

Naja, im Grunde isses ganz normal, wie sonst auch. Die Daten aus dem Pageproducer werden in ein Memo geladen und von dort aus in eine Datei exportiert.