![]() |
WebbrokerItem wird nicht aufgerufen
Hi zusammen
Nachdem ich mir einige Fragen Dank ![]()
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
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 14:51 Uhr. |
Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024-2025 by Thomas Breitkreuz