WebbrokerItem wird nicht aufgerufen
Hi zusammen
Nachdem ich mir einige Fragen Dank Mr.Bob beantworten konnte, hab ich zurzeit folgenden Quelltext:
Delphi-Quellcode:
und
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;
Delphi-Quellcode:
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.
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; Was mache ich falsch? Gruss Delbor |
Alle Zeitangaben in WEZ +1. Es ist jetzt 22:19 Uhr. |
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz