Hi Sir Rufo
Delphi-Quellcode:
Im Template:
<#IMAGE foo>
In der Tag-Methode:
Delphi-Quellcode:
procedure TFoo.PageProducer1HTMLTag(
Sender : TObject;
Tag : TTag;
const TagString: string;
TagParams : TStrings;
var ReplaceText: string );
begin
case Tag of
tgCustom:
ReplaceText := GetCustomTag( TagString, TagParams );
tgLink:
ReplaceText := GetLinkTag( TagParams );
tgImage:
ReplaceText := GetImageTag( TagParams );
tgTable:
ReplaceText := GetTableTag( TagParams );
tgImageMap:
ReplaceText := GetImageMapTag( TagParams );
tgObject:
ReplaceText := GetObjectTag( TagParams );
tgEmbed:
ReplaceText := GetEmbedTag( TagParams );
end;
end;
Der Aufruf der Methode erfolgt für den Tag mit den Werten
Tag: tgImage
TagString: IMAGE
TagParams: foo
Das ewige
if..then..
, wie ichs bislang habe, nervt mich schon llänger. Allerdings habe ich da zurzeit noch ein kleines Verständnisproblem, bzw. die Sache ist noch nicht zu Ende gedacht.
Zum einen sollen die Dateien auf der Festplatte (Später also auch derjenigen des Hosters) gespeichert werden, soweit sie Seiten und Seiteninhalte betreffen; Nur User, Sessions etc sollen in eine
DB.
Ziel ist, das ich auf meinem Rechner eine Webseite erstelle, diese und allfällig dazugehörende Dateien (CSS etc) zusammen mit einer String-oder Objectliste hochlade. Das Webmodul lädt dann die Dateien nach Angabe aus der Liste. So sollte die Website beim Hoster eigentlich recht dynamisch erweitert werden können.
Zitat:
Für den Tag oben kann amn also z.B. ein <img src="./images/foo.jpg"/> zurückliefern.
Das heisst also, dass entgegen meiner Erinnerung Bilder auch durch den Pageproducer und die Angabe des Suchpfades ausgegeben werden können.
Aber ich sehe gerade, der obige Case..of-Block weist noch auf eine Reihe anderer Möglichkeiten hin.
Da muss ich mich doch noch kräftig in die Doku vertiefen.
So scheint tgObject darauf hinzuweisen, dass da ein Objekt eingefügt werden soll. Stattdessenkommt da wahrscheinlich nur der vom Objekt geliefert Inhalt rein.
Gruss
Delbor