Thema: Delphi Pageproducer und IMG-Tag

Einzelnen Beitrag anzeigen

DaCoda

Registriert seit: 21. Jul 2006
Ort: Hamburg
143 Beiträge
 
Delphi 12 Athens
 
#1

Pageproducer und IMG-Tag

  Alt 1. Apr 2022, 11:39
Hallo,
ich habe folgende Testzeilen:

Code:
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);
var
  Loop: Integer;
begin
  for Loop := 1 to 10 do begin
    if TagString = 'LEDIMG' + IntToStr(Loop) then begin
      ReplaceText := 'images/led_yellow_on.png';
    end else if TagString = 'STRIMG' + IntToStr(Loop) then begin
      ReplaceText := 'images/led_blue_on.png';
    end;
  end;
end;
Warum werden die Bilder nicht angezeigt ? Wenn ich dieses HTML mal statisch mit diesen Bildern ausfülle, dann zeigt ein Browser das korrekt an, über PageProducer nicht...
Hat jemand einen tip, was ich falsch mache ?
Debuggers don’t remove bugs, they only show them in slow-motion.
  Mit Zitat antworten Zitat