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 ?