Probleme beim Seitenqeulltext anzeigen

[SeeAALi]

hi,

ich hab jetzt echt schon viel gegoggelt und auch hier im forum geschaut, aber ich komme nicht weiter..

Ich habe eine Funktion gefunden mit der ich Mittels Indy Daten per POST an eine Webseite schicke.
Das funktioert auch wunderbar.


Nun möchte ich aber den Seitenquelltext laden. Ich habe schon so einige Sachen ausprobiert.
Ich habe es mit TidHTTP.GET probiert, auch über einen Stream.
Aber alles was ich zurück bekomme ist das : |||
Mein Memo zeigt mir nur diese 3 Zeichen an. Ich bekomme keine Fehlermeldung oder ähnliches.
Durch ausprobieren hab ich rausgefunden das ich als Antwort auch HTTP 200 bekomme.
Es müsste dann doch alles ok sein, oder nicht.

[Luckie]

Ohne Quelltext wird das wohl nichts.

[SeeAALi]

sorry :-D

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
idClient: TIdHTTP;
msData: TMemoryStream;
begin
idClient := TIdHTTP.Create(Application);
msData := TMemoryStream.Create;
try
idClient.Get('http://pwnd.delphipraxis.net/feed/', msData);
msData.Seek(0, soFromBeginning);
Memo1.Lines.LoadFromStream(msData);
finally
idClient.Free;
msData.Free;
end;
end;

damit hab ich es z.B. probiert

[toms]

Gib mal einen UserAgent an.

[patti]

Erstmal herzlich willkommen in der DP :dp:

Vielleicht findest du hier etwas: Thread in der DP. Dort werden mehrere Lösungen genannt, u.a. mit URLDownloadToFile aus der Unit URLMon, aber auch mit Hilfe der Indy-Komponenten (allerdings mit einem "Umweg" über die Festplatte).

mfg

[SeeAALi]

UserAgents?

ich muss zu geben so weit reichen meine Kenntnisse nun wirklich nicht :-)

ich hab vergessen zu erwähnen, das die seite die ich haben will hinter einem Login liegt.
Das mit dem Login ansich funktioniert auch.

[SeeAALi]

so habe nun mal was probiert was den umweg über die platte macht.
Es kommt nun auch mehr raus wie nur |||. Aber das was ich bekomme, ist nur
ein Wust aus den unterschiedlichsten ASCII Zeichen, daraus werd ich nun auch nicht schlau.

[toms]

Delphi-Quellcode:

idClient := TIdHTTP.Create(Application); 
idClient.HandleRedirects := True; 
idClient.Request.UserAgent := 'User-agent: Mozilla/4.0 (compatible; MSIE 7.0; Windows NT 5.1)';

[SeeAALi]

ah lol, mir kam das doch so bekannt vor :-D

idHTTP1.Request.UserAgent := 'Mozilla/5.0 (Windows; U; Windows NT 5.1; de; rv:1.9.1.7) Gecko/20091221 Firefox/3.5.7 GTB6'

so hab ich es bei mir, und das mit dem redirect hab ich auch gesetz.

[SeeAALi]

mal ein kleines push :-D

also bin echt noch nicht weiter gekommen,

liegt es evtl an den request einstellungen ?!