Hi Sir Rufo
Danke für deine schnelle Antwort!
[QUOTE=Sir Rufo;1255414]Dieser ominöse
TPageProducer hat ein Event
TPageProcuer.OnHTMLTag.
Danke, das hab ich soweit begriffen:
Delphi-Quellcode:
procedure TWebModule1.PageproducerImageHTMLTag(Sender: TObject; Tag: TTag;
const TagString:
string; TagParams: TStrings;
var ReplaceText:
string);
begin
if TagString = '
UserName'
then ReplaceText := '
Herr Braun';
if Tagstring = '
Herkunft'
then ReplaceText := Self.Request.UserAgent;
end;
procedure TWebModule1.WebModule1DefaultHandlerAction(Sender: TObject;
Request: TWebRequest; Response: TWebResponse;
var Handled: Boolean);
begin
Response.Content := '
<html><heading/><body>Webserver-Anwendung</body></html>' + '
<P>' + PageproducerImage.Content ;
end;
Die *.css und *.js speicherst und lieferst du aus wie *.png oder *.jpg, denn die hast du auch nicht im Programm gespeichert
Sorry, wenn ich da nochmal nachhake, aber je länger desto mehr habe ich das Gefühl, dieOnline-Help hat mir etwas die Sinne vernebelt. Irgendwo steht da was, man müsse die Anwendung neu kompilieren, wenn man das Propety HTMLDoc ändert. Nun erwartet HTMLDoc ja einen String, der die (
Html-)Vorlage enthält, ist also selbst ein TStrings-Objekt. Und einem solchen kann zur Laufzeit ein beliebiger String zugewiesen werden.
Das mit dem Neukompilieren stimmt nur dann, wenn zur Designzeit eine Zuweisung mit dem Stringlisteneditor erfolgt.
Ich muss da nochmal über die Bücher, aber soweit ich das bis jetzt verstanden habe, akzeptiert 'src' nur gerade einen Dateipfad.
Erstmal das, was zu ersetzen wäre - erstellt werden sollen diverse Seiten einer Fotogallerie:
Delphi-Quellcode:
<
div id="img1"> <img alt="DelborPunktCH" src="./Images/jpeg150/DSC_5751.jpg"/></
div>
<
div id="img2"> <img alt="DelborPunktCH" src="./Images/jpeg150/DSC_5752.jpg"/></
div>
<
div id="img3"> <img alt="DelborPunktCH" src="./Images/jpeg150/DSC_5753.jpg"/></
div>
<
div id="img4"> <img alt="DelborPunktCH" src="./Images/jpeg150/DSC_5754.jpg"/></
div>
<
div id="img5"> <img alt="DelborPunktCH" src="./Images/jpeg150/DSC_5755.jpg"/></
div>
<
div id="img6"> <img alt="DelborPunktCH" src="./Images/jpeg150/DSC_5756.jpg"/></
div>
<
div id="img7"> <img alt="DelborPunktCH" src="./Images/jpeg150/DSC_5757.jpg"/></
div>
<
div id="img8"> <img alt="DelborPunktCH" src="./Images/jpeg150/DSC_5758.jpg"/></
div>
<
div id="img9"> <img alt="DelborPunktCH" src="./Images/jpeg150/DSC_5759.jpg"/></
div>
<
div id="img10"> <img alt="DelborPunktCH" src="./Images/jpeg150/DSC_5760.jpg"/></
div>
<
div id="img11"> <img alt="DelborPunktCH" src="./Images/jpeg150/DSC_5761.jpg"/></
div>
<
div id="img12"> <img alt="DelborPunktCH" src="./Images/jpeg150/DSC_5762.jpg"/></
div>
Nach deiner Aussage bleibt mir also nichts anderes übrig, als die *.jpgs,
*.css etc auf der Platte zu speichern (per Filestream aus der
DB geholt) und obigen
HTML-Code dynamisch (mit anderen Pfaden) zu ersetzen.
Obiger Code ist übrigens überholt; er stammt aus meinen allerersten CSS-Versuche. Neu wirds wohl eine CSS-Klasse geben, die an die 'div's zugewiesen wird.