[Prob.]Funktion den HTML-Code aus TWebbrowser zu lesen!

[finalr]

Hi,

ich würde es so machen:

Delphi-Quellcode:

var URL, Quelltext, Status: String;
    i: Integer;
    HTTP: TIDHTTP;
begin
 URL := 'http://www.google.de';

 Try
   HTTP := TIDHTTP.Create(NIL);
   HTTP.HandleRedirects := True;

   Repeat
     Try
       Quelltext := HTTP.Get(URL);
     Except ON E:Exception DO
       begin
         case HTTP.ResponseCode of
           400: Status := 'Bad Request';
           403: Status := 'Forbidden';
           404: Status := 'Not Found';
         end;

         ShowMessage('Quelltext konnte nicht ausgelesen werden.' + #10#13 +
                     'Fehler ' + IntToStr(HTTP.ResponseCode) + ' / ' + Status);
       end;
     End;
     i := i + 1;
   Until (Quelltext <> '') or (i = 5);

 Finally
   HTTP.Free;
 End;

 if Quelltext <> '' then begin
   // Hier kann man nun mit den Quelltext arbeiten... 
 end;

Nicht vergessen in den Uses "IdHTTP" einzufügen.

Gruss Daniel