TidHttp kein vollständiger GET & Fehler beim Login

**0NyX**

Guten Tag Delphi-Praxis User,

ich möchte mich in nächster Zeit ein bisschen mehr mit der TidHttp Komponente auseinandersetzen, da der TWebBrowser sehr langsam und sehr resourcen lastig arbeitet.
Ich hatte mit mit Hilfe des TWebBrowser ein Programm geschrieben, welches mir Neue Nachrichten, Gästebuch Einträge und Einladungen bei Schüler.cc anzeigt und ausgibt.
Dieses kalppt auch soweit, doch nun möchte ich dieses via TidHttp lösen, in der Hoffnung das dieses schneller läuft und nicht so Resourcen lastig ist.

Nun komme ich aber schon nicht beim Login weiter.
Post Daten sollten soweit vollständig sein.
Jedoch wenn ich den Post ausführe kommt nur ein teil des quellcodes wieder:

Zitat:

<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">
<html>
<head>
<title>
Schueler.CC | Home</title>
<META http-equiv=Content-Type content="text/html; charset=iso-8859-1">
<meta http-equiv="X-UA-Compatible" content="IE=7" />
<META content="MSHTML 6.00.2600.0" name=GENERATOR>
<META NAME="description" CONTENT="">
<META NAME="keywords" CONTENT="">
<META NAME="page-type" CONTENT="Homepage">
<META NAME="robots" CONTENT="index,follow">

mehr gibt der einfach nicht zurück. Das selbe kommt auch wenn man einfach nur ein GET ausführt. Leider habe ich keine Ahnung, wieso dieses so ist...

CookieManager habe ich eingefügt. Die idHttp Komponente habe ich wie folgt angepasst:

markieren

Delphi-Quellcode:

			IdHTTP1.CookieManager := IdCookieManager1;

IdHTTP1.HandleRedirects := true;

IdHTTP1.Request.UserAgent := 'Mozilla/5.0 (Windows; U; Windows NT 5.1; de; rv:1.9.0.10) Gecko/2009042316 Firefox/3.0.10';

Wenn ein neues Cookie gesetzt wird, wird folgendes gemacht (ist auch nen kleiner "log" bei):

zusammenfalten · markieren

Delphi-Quellcode:

			procedure TForm1.IdCookieManager1NewCookie(ASender: TObject;

  ACookie: TIdCookieRFC2109; var VAccept: Boolean);

begin

  ACookie.Path := '/';

    Memo1.Lines.Add('New Cookie:');

  Memo1.Lines.Add('  Comment: '+ACookie.Comment);

  Memo1.Lines.Add('  Version: '+ACookie.Version);

  Memo1.Lines.Add('  CookieText: '+ACookie.CookieText);

  Memo1.Lines.Add('  ServerCookie: '+ACookie.ServerCookie);

  Memo1.Lines.Add('  ClientCookie: '+ACookie.ClientCookie);

  Memo1.Lines.Add('  Domain: '+ACookie.Domain);

  Memo1.Lines.Add('  Expires: '+ACookie.Expires);

  Memo1.Lines.Add('  CookieName: '+ACookie.CookieName);

  Memo1.Lines.Add('  Path: '+ACookie.Path);

  Memo1.Lines.Add('  Value: '+ACookie.Value);

  Memo1.Lines.Add('  DisplayName: '+ACookie.DisplayName);

  Memo1.Lines.Add('');

end;

Die Procedure fürs Login sieht nun wie folgt aus:

zusammenfalten · markieren

Delphi-Quellcode:

			procedure TForm1.BtLoginClick(Sender: TObject);

var

  Params: TStringList;

begin

  Params := TStringList.Create;

  try

    IdHTTP1.Get('http://www.schueler.cc/s,login,login.php');

    Params.Add('email='+EdtMail.Text);

    Params.Add('passwort='+EdtPw.Text);

    Params.Add('button_login_login=Login');

    Memo1.Lines.Add(IdHTTP1.Post('http://www.schueler.cc/s,login,login.php', Params));

  finally

    Params.Free;

  end;

end;

Würde mich sehr über ein bisschen Hilfe freuen.

Vielen Dank im voraus!

Mit freundlichen Grüßen
0nYx

**shmia**

Zitat von 0NyX:

... mit der TidHttp Komponente auseinandersetzen, da der TWebBrowser sehr langsam ....

Just for Info:
TIdHttp kann kein Java-Script interpretieren.
Daher können Webseiten, die Java-Script zwingend benötigen nicht bedient werden.
Könnte mir vorstellen, dass Schüler.cc das Java-Script braucht.

Ach ja:
auch den Webbrowser kann man schneller ansteuern.
Jeder kopiert Sourcecode aus dem Internet und so bleiben auch unperformante und ungeschickte Konstruktionen erhalten.

**0NyX**

Danke für die Infos und die Antwort.

Nun ja, ich bin kein sehr erfahrener DELPHI Coder, eher eine Freizeitbeschäftigung

Und bei meinem Programm, ist mein NetBook komplett ausgelastet wenn ich es darauf ausführe... Kann natürlich an gewissen konstrutionen liegen die ich da veranstaltet habe, wie z.b. das warten bis er fertig geladen hat u.ä.

Es wäre jedoch schade, wenn ich es nicht mit der TidHttp Komponente schaffen würde.
Mit BASH war es möglich die Seite aufzurufen und einzuloggen mit wget (hatte einen freund gefragt der in bash ab und an was macht), deswegen dachte ich mir das es mit idhttp auch möglich sein sollte...

**shmia**

Zitat von 0NyX:

Es wäre jedoch schade, wenn ich es nicht mit der TidHttp Komponente schaffen würde.
Mit BASH war es möglich die Seite aufzurufen und einzuloggen mit wget (hatte einen freund gefragt der in bash ab und an was macht), deswegen dachte ich mir das es mit idhttp auch möglich sein sollte...

Es hängt nur von der Website ab.
TIdHttp kann die HTTP-Methoden GET, POST, HEAD, kann Cookie erhalten/senden und Redirekts verfolgen.
Wenn es mit Wget funktioniert dann muss es auch mit TIdHttp gehen denn Wget interessiert sich nicht für Java-Script.

PS: aktiviere mal die Scrollbars in deinem TMemo, nur für den Fall, dass da noch mehr Zeilen/längere Zeilen sind.
Und ausserdem

markieren

Delphi-Quellcode:

			procedure TForm1.IdCookieManager1NewCookie(ASender: TObject; ACookie: TIdCookieRFC2109; var VAccept: Boolean); 

begin 

  ACookie.Path := '/'; 

  VAccept := True; // <== Cookies annehmen

**jaenicke**

Leider hast du dir umsonst Mühe gemacht, denn im leider nicht angegebenen Crosspost ist das Problem bereits gelöst.

http://www.delphi-forum.de/viewtopic.php?p=570603
Zusammenfassung: Es lag an einem Nullzeichen, das in dem zurückgegebenen String nach dem oben angegebenen ersten Teil des Quelltextes stand und so vom Memo als Stringende interpretiert wurde.

@0NyX
Wenn du meinst in mehreren Foren fragen zu müssen, dann gib doch zumindest die Crossposts jeweils an. Denn dass das Problem erledigt war, hast du hier ja z.B. bereits 20 Minuten vor shmias Post im DF geschrieben, was hier aber niemand wissen konnte...

TidHttp kein vollständiger GET & Fehler beim Login

TidHttp kein vollständiger GET & Fehler beim Login

Re: TidHttp kein vollständiger GET & Fehler beim Login

Re: TidHttp kein vollständiger GET & Fehler beim Login

Re: TidHttp kein vollständiger GET & Fehler beim Login

Re: TidHttp kein vollständiger GET & Fehler beim Login

Forumregeln