Eine Webseite laden mit Indy

[BenNation]

Sorry, bin eher noch Delphi-Anfänger...

Ich möchte einfach nur eine Webseite laden und habe folgenden Code:

Delphi-Quellcode:

function TSDIAppForm.ReadSite(URI: string): string;
var
  idClient: TIdHTTP;
  msData: TMemoryStream;
  ResultString: String;
begin
  begin
    idClient := TIdHTTP.Create(Application);
    msData := TMemoryStream.Create;
    try
      idClient.Get(URI, msData);
      msData.Seek(0, soFromBeginning);
      ResultString := StreamToString(msData);
    except
      //nix
   end;
   idClient.Free;
   msData.Free;
  result := ResultString;
  end;
end;

Das Problem ist, dass es bei manchen Seiten funktioniert und mir den Quelltext schön zurückgibt.
Nur bei Seiten wie Google.de oder ähnlichen wirft mir Delphi eine Exception mit der Klasse ERangeError mit der Meldung "Range check error" aus und bleibt in der Zeile

Delphi-Quellcode:

msData.Seek(0, soFromBeginning);

hängen. Was kann ich tun, um das zu verhindern? Im Web habe ich nichts dazu gefunden...

[himitsu]

Zitat:

wirft mir Delphi eine Exception ...

Bei welchem Befehl?

Meine :glaskugel: hätte da noch 'nen Verdacht:
Wie sieht denn dein StreamToString aus?

Delphi-Quellcode:

except
  //nix
end;

Wieso nix?

[BenNation]

Ich wollte, dass er die Exception ignoriert. Funktioniert auch, wenn ich die .exe von Hand starte.

StreamToString ist folgende:

Delphi-Quellcode:

Function TSDIAppForm.StreamToString(AStream: TStream): String;
Begin
  SetLength(Result, AStream.Size);
  AStream.Position := 0;
  AStream.ReadBuffer(Result[1], AStream.Size);
End;

Scheint zu funktionieren...

[FAlter]

Hi,

es gibt auch neine Überladung von TIdHTTP.Get, welche dir den String direkt zurückliefert.

Und verwende mal try-finally.

Gruß
FAlter

[himitsu]

Zitat:

Zitat von BenNation

Delphi-Quellcode:

Function TSDIAppForm.StreamToString(AStream: TStream): String;
Begin
  SetLength(Result, AStream.Size);
  AStream.Position := 0;
  AStream.ReadBuffer(Result[1], AStream.Size);
End;

Und in welcher Delphi-Version?
Ab D2009 wird es Probleme geben (das nette Unicode halt).

Zitat:

Ich wollte, dass er die Exception ignoriert. Funktioniert auch, wenn ich die .exe von Hand starte.

Ja toll, dann tritt dort auch die Exception auf und weil man es nicht mitbekommt, weiß man nicht, warum irgendwas nicht geht.

[BenNation]

Ich verwende Delphi 2007.

Die Überladung scheint's bei mir nicht zu geben. Ich kann nur die mit dem Stream finden...

Das mit dem finally hatte ich schon, so habe ich neulich die Funktion übernommen. Macht aber leider keinen Unterschied.

Kann ich denn nichts mehr tun?

[Klaus01]

.. kann es sein, dass Du bei redirected Seiten
kein Ergebnis bekommst?

Wenn das der Fall sein sollte,

Delphi-Quellcode:

idHttp1.HandleRedirects := true;

Grüße
Klaus

[himitsu]

Zitat:

Zitat von BenNation

Kann ich denn nichts mehr tun?

Ja kannst du, einfach nur den Grund für die Exception beheben.

[BenNation]

Das klingt doch etwas ungenau für einen Anfänger. Kannst du das etwas ausführen?

Ganz nebenbei: Wie kann ich einen String auf eine bestimmte Länge "padden". Also wenn ich jetzt eine bestimmte Anzahl von Leerzeichen kreiiren wollte, wie heisst da die funktion?

[himitsu]

Zitat:

Zitat von BenNation

Das klingt doch etwas ungenau für einen Anfänger. Kannst du das etwas ausführen?

Nein, da du die Fragen nicht beantwortet hast.

Ganz nebenbei: eine Frage pro Thread
("auf bestimmte Länge" = SetLength, wobei StringOfChar auch nett ist)

[BenNation]

Ich sehe da nur die Frage von Klaus01 und antworte: Gut möglich, hab ich noch nicht getestet. Aber Google.de wirft eine Exception, ausserdem kriege ich auch bei 301-Seiten einen Hinweis. Nur keine Ahnung, wie ich die einfach ignorieren kann...


Danke, StringOfChar war genau, was ich suchte.

Irgendwie fehlt mir eine Seite wie SelfPHP mit einer guten Referenz, nur eben für Delphi...

[himitsu]

Zitat:

Zitat von himitsu

Zitat:

wirft mir Delphi eine Exception ...

Bei welchem Befehl?

Zitat:

Zitat von himitsu

Und in welcher Delphi-Version?

Zitat:

Irgendwie fehlt mir eine Seite wie SelfPHP mit einer guten Referenz, nur eben für Delphi...

http://www.delphipraxis.net/search.php
http://www.delphipraxis.net/code_library.html
http://ref.dp200x.de
http://docs.embarcadero.com/products.../contents.html
dieses gibt es auch lokal als Online Hilfe (OH) über F1
PS: die Autovervollständigung ist auch ganz praktisch ... man gebe einen Namespace an, dahinter ein Punkt und schon sieht man, was es dort gibt.


http://www.delphipraxis.net/dpX_weblinks.php

[BenNation]

Zitat:

Zitat von himitsu

wirft mir Delphi eine Exception ...
Bei welchem Befehl?

msData.Seek(0, soFromBeginning);

Zitat:

Zitat von himitsu

Und in welcher Delphi-Version?

Hab ich schon geschrieben. Delphi 2007.


Wie könnte ich zum Beispiel eine HTTP 301 (ich glaube, Moved Permanently) abfangen?

[BenNation]

Meine Function sieht jetzt so aus:

Delphi-Quellcode:

function TSDIAppForm.ReadSite(URI: string): String;
var
  idClient: TIdHTTP;
  msData: TMemoryStream;
  ResultString: String;

begin
    idClient := TIdHTTP.Create(Application);
    msData := TMemoryStream.Create;
    try
      idClient.Get(URI, msData);
      msData.Seek(0, soFromBeginning);
      ResultString := StreamToString(msData);
    except
      on E:Exception do begin
        E.Message := 'Meldung: '+E.Message;
      Raise;   // Erneut auslösen !
      end;
   end;
      idClient.Free;
      msData.Free;

   result := ResultString;
end;

Die Exception wird gemeldet, was okay ist, aber diese Funktion soll mehrmals aufgerufen werden. Leider stoppt das Programm nach einer Exception (zB 301-Moved Permanently).
Wenn ich die Zeile mit dem "Raise" weglasse, macht das Programm eine Weile lang weiter, stürzt aber dann ab.

Bin ich der einzige, der mit nicht erreichbaren Seiten Probleme hat? Das kann doch fast nicht sein.
Kann man den TIdHTTP nicht so konfigurieren, dass er Seiten, die es nicht mehr gibt o.ä. einfach ignoriert?