Delphi-PRAXiS

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Netzwerke (https://www.delphipraxis.net/14-netzwerke/)
-   -   Delphi TIdHttp - Auf Internetseite einloggen und Daten auslesen (https://www.delphipraxis.net/51292-tidhttp-auf-internetseite-einloggen-und-daten-auslesen.html)

F.W. 9. Aug 2005 21:52


TIdHttp - Auf Internetseite einloggen und Daten auslesen
 
Hallo Leute! Vielleicht kennen einige von euch die Seite Snapscouts.de
Ich möchte dafür ein kleines "Mail-Programm" schreiben. Unter anderem möchte ich eine Funktion zum "Mailcheck" integrieren. Das Programm soll sich mit gespeicherten Logindaten einloggen und nachschauen ob neue Mails vorhanden sind.
Ich möchte dazu gern die IdHTTP-Komponente verwenden, denn der TWebBrowser lädt zu viel runter (Bilder usw. werden ja dazu nicht benötigt, sondern nur der Quelltext)

Jetzt ist die Frage wie ich mit IdHTTP eine Seite anfordere, die ich nur erhalte wenn ich eingeloggt bin. Quasi wie logge ich mich über die IdHTTP in die Seite ein? (mit dem TWebBrowser hab ich schon einen "Formularausfüller wie etwas RoboForm geschrieben und er funktionierte, mit der Kompo wäre es also kein Problem, aber ich möchts halt mit der HTTP-Kompo machen)

danke schonmal

F.W. 10. Aug 2005 01:40

Re: TIdHttp - Auf Internetseite einloggen und Daten auslesen
 
Ok, also das hab ich jetzt druch rumprobieren hingekriegt (warum immer erst nachdem man im Forum geschreiben hat? :wall: )

Delphi-Quellcode:
var
 Data: TIdMultiPartFormDataStream;
 Rep: TStream;
begin
 Data := TIdMultiPartFormDataStream.Create;
 Rep := TStringStream.Create;
 try
   Data.AddFormField('user', Username);
   Data.AddFormField('pw', Passwort);

   HTTP.Post('www.snapscouts.de', Data, Rep);

   Memo1.Lines.AddStrings(HTTP.Request.RawHeaders);

   with TFileStream.Create('C:\Test.html', fmCreate) do begin
     CopyFrom(Rep, 0);
     Free;
   end;
 finally
   Data.Free;
   Rep.Free;
 end;
end;
Jetzt eine neue Frage (die aber immernoch passt):
Rechts am Rand gibts auch die "Direktsuche", wenn ich da suche, wird eine neue Seite geöffnet mit den Userdaten.
Wie kann ich jetzt quasi den Klick auf den Button sumilieren? Ich brauche nur die Adresse die nachher in der Adresszeile des IExplorers steht (aber je nach Suchtext anders ist)


Alle Zeitangaben in WEZ +1. Es ist jetzt 15:33 Uhr.

Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz