Ergebnis der Suchanfrage

• Forum: Programmieren allgemein

  AW: Pageproducer und IMG-Tag

    Delphi
    by DaCoda, 2. Apr 2022
  Vielen Dank für die Tips, das mit den 10 Durchläufen hat mich auch gestört. War der erste Ansatz...
  
  Nun habe ich das mal so probiert, bin aber auch nicht zufrieden:
  
  procedure TdmWebServer.HttpServerCommandGet(AContext: TIdContext; ARequestInfo: TIdHTTPRequestInfo; AResponseInfo: TIdHTTPResponseInfo);
  var
  Document: string;
  FileName: string;
  Ext: string;
• Forum: Programmieren allgemein

  Pageproducer und IMG-Tag

    Delphi
    by DaCoda, 1. Apr 2022
  Hallo,
  ich habe folgende Testzeilen:
  
  
  procedure TdmWebServer.HttpServerCommandGet(AContext: TIdContext; ARequestInfo: TIdHTTPRequestInfo; AResponseInfo: TIdHTTPResponseInfo);
  begin
  AResponseInfo.ContentText := PageProducer.Content;
  end;
  
  procedure TdmWebServer.PageProducerHTMLTag(Sender: TObject; Tag: TTag; const TagString: string; TagParams: TStrings; var ReplaceText: string);