Ausgabe (ohne HTML Tags) mit IdHTTP?!

**Plague**

Hallo,

ich habe eben in einem kleinen Programm eine Abfrage von einer PHP Seite programmiert. Die Ausgabe erfolgt aber leider im HTML Quelltext. Kann ich irgendwie einstellen, dass ich nur den Text ausgegeben bekomme, der beispielsweise auch im Browser zu sehen ist?

Danke im Vorraus!
Gruß
Thomas

**sakura**

Nein, IdHttp - wie auch alle anderen Komponenten dieser Art - liefert Dir den genauen Bytestream zurück, welchen es vom Server erhält. An dieser Stelle musst Du selbst parsen, bzw. bei

www.torry.net mal nach HTML Parsern suchen.

...

...

**StefanDP**

hab da mal was programmiert: (ist ziemlich überladen, kann man vielleicht irgendwie kürzen...)

zusammenfalten · markieren

Delphi-Quellcode:

			function TAuswerten.PlainText(strHTML: string): string;

var

  P: PChar;

  InTag: Boolean;

begin

  // <head> löschen

  while (Pos('<head',strHTML) > 0) and

        (Pos('</head>',strHTML) > Pos('<head',strHTML)) do

    Delete(strHTML, Pos('<head',strHTML), (Pos('</head>',strHTML) + 7) - Pos('<head',strHTML));

  // <script> löschen

  while (Pos('<script',strHTML) > 0) and

        (Pos('</script>',strHTML) > Pos('<script',strHTML)) do

    Delete(strHTML, Pos('<script',strHTML), (Pos('</script>',strHTML) + 9) - Pos('<script',strHTML));

  // <style> löschen

  while (Pos('<style',strHTML) > 0) and

        (Pos('</style>',strHTML) > Pos('<style',strHTML)) do

    Delete(strHTML, Pos('<style',strHTML), (Pos('</style>',strHTML) + 8) - Pos('<style',strHTML));

  // Alle tags werden durch leerzeichen ersetzt

  strHTML := StringReplace(strHTML,'>','> ',[rfReplaceAll]);

  P := PChar(strHTML);

  Result := '';

  InTag := False;

  repeat

    case P^ of

      '<': InTag := True;

      '>': InTag := False;

      #13, #10: ; // nichts machen

      else

        if not InTag then

        begin

          if (P^ in [#9, #32]) and ((P+1)^ in [#10, #13, #32, #9, '<']) then

          else

            Result := Result + P^;

        end;

    end;

    Inc(P);

  until (P^ = #0);

  Result := StringReplace(Result, '&auml;', 'ä',  [rfReplaceAll]);

  Result := StringReplace(Result, '&ouml;', 'ö',  [rfReplaceAll]);

  Result := StringReplace(Result, '&uuml;', 'ü',  [rfReplaceAll]);

  Result := StringReplace(Result, '&szlig;', 'ß',  [rfReplaceAll]);

  Result := StringReplace(Result, '', ' ',  [rfReplaceAll]);

  Result := StringReplace(Result, '*', ' ',  [rfReplaceAll]);

  Result := StringReplace(Result, '>', '>',  [rfReplaceAll]);

  Result := StringReplace(Result, '<', '<',  [rfReplaceAll]);

{  Result := StringReplace(Result, '"', '"',  [rfReplaceAll]);

  Result := StringReplace(Result, ''', '''', [rfReplaceAll]);

  Result := StringReplace(Result, '&amp;',  '&',  [rfReplaceAll]);}

end;

stefan

**Meflin**

oder siehe auch dieser thread:

http://www.delphipraxis.net/internal...ct.php?t=28837

Ausgabe (ohne HTML Tags) mit IdHTTP?!

Ausgabe (ohne HTML Tags) mit IdHTTP?!

Re: Ausgabe (ohne HTML Tags) mit IdHTTP?!

Re: Ausgabe (ohne HTML Tags) mit IdHTTP?!

Re: Ausgabe (ohne HTML Tags) mit IdHTTP?!

Forumregeln

Plague Registriert seit: 6. Okt 2003 591 Beiträge	#1 Ausgabe (ohne HTML Tags) mit IdHTTP?! 30. Jun 2004, 21:53 Hallo, ich habe eben in einem kleinen Programm eine Abfrage von einer PHP Seite programmiert. Die Ausgabe erfolgt aber leider im HTML Quelltext. Kann ich irgendwie einstellen, dass ich nur den Text ausgegeben bekomme, der beispielsweise auch im Browser zu sehen ist? Danke im Vorraus! Gruß Thomas
	Zitat

sakura Registriert seit: 10. Jun 2002 Ort: München 11.412 Beiträge Delphi 11 Alexandria	#2 Re: Ausgabe (ohne HTML Tags) mit IdHTTP?! 30. Jun 2004, 21:56 Nein, IdHttp - wie auch alle anderen Komponenten dieser Art - liefert Dir den genauen Bytestream zurück, welchen es vom Server erhält. An dieser Stelle musst Du selbst parsen, bzw. bei www.torry.net mal nach HTML Parsern suchen. ...... Daniel W. Ich bin nicht zurück, ich tue nur so
	Zitat

Meflin Registriert seit: 21. Aug 2003 4.856 Beiträge	#4 Re: Ausgabe (ohne HTML Tags) mit IdHTTP?! 1. Jul 2004, 13:43 oder siehe auch dieser thread: http://www.delphipraxis.net/internal...ct.php?t=28837 Leo S. https://github.com/leoschweizer
	Zitat