Hi zusammen
Nachdem ich mir einige Fragen Dank
Mr.Bob beantworten konnte, hab ich zurzeit folgenden Quelltext:
Delphi-Quellcode:
procedure TWebModule1.PageProducerHomeHTMLTag(Sender: TObject; Tag: TTag;
const TagString: string; TagParams: TStrings; var ReplaceText: string);
var GraficStream: TMemorystream; S :String;
begin
if TagString = 'DELBORHOMECSS' then
ReplaceText := PageProducerHomeCSS.Content;
if Tagstring = 'MENUE' then
ReplaceText := PageProducerMenueCSS.Content;
end;
procedure TWebModule1.WebModule1DefaultHandlerAction(Sender: TObject;
Request: TWebRequest; Response: TWebResponse; var Handled: Boolean);
var GraficStream: TMemorystream; RequestContent : TStringlist;
begin
Response.Content := PageProducerHome.Content;
Handled := False;
end;
und
Delphi-Quellcode:
procedure TWebModule1.PageProducerLogoHTMLTag(Sender: TObject; Tag: TTag;
const TagString: string; TagParams: TStrings; var ReplaceText: string); //<== Pfag zur Logo-Datei übergeben
begin
if TagString = 'Image' then
ReplaceText := WebApplicationDirectory+ '/' + 'Delbor_9_5.jpg';
end;
procedure TWebModule1.WebModule1WebAct_ItemLogoAction(Sender: TObject;
Request: TWebRequest; Response: TWebResponse; var Handled: Boolean);
var GraficStream: TMemorystream;
begin
GraficStream := TMemoryStream.Create;
try
GraficStream.LoadFromFile(PageProducerLogo.Content);
GraficStream.Position := 0;
//Response.ContentType := 'image/jpg';
Response.ContentStream := GraficStream;
Response.SendResponse;
finally
Graficstream.free;
end;
end;
Im ersten WebActionItem-Event setze ich Handled auf False, wie
hier beschrieben - trotzdem wird WebModule1WebAct_ItemLogoAction nicht abgearbeitet. Der Methodtype ist überall mit mtAny angegeben, die Pathinfo-Eigenschaften stimmen auch überein. Also gibt es keinen Grund, wieso das 2. WebactionItem nicht aufegerufen werden sollte, da laut Embarcadero dieses item nicht selbst aufgerufen werden muss.
Was mache ich falsch?
Gruss
Delbor