Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
var
SL: TStringList; Source: String;
begin
SL := TStringList.Create;
try
SL.Add('mode=login');
SL.Add('user='+Edit1.Text);
SL.Add('pass='+Edit2.Text);
Source:= IdHTTP1.Post('http://www.deineseite.de/login.php', SL);
finally
SL.Free;
end;
Memo.Lines.Add(Source);
end;
Da gibts verschiedenen Möglichkeiten, im obigen Beispiel
müßtest Du noch ein Memo Feld auf Deine Form packen und
diese dann unter Name von Memo1 auf Memo umbenennen.
Wenn der Request an den Webserver gesendet wird wird
die Antwort, der
HTML Quelltext, dann im Memo ausgegeben.
Um zu kontrollieren das nun alles geklappt hat müßtest
Du diesen Quelltext dann nach segnifikanten Schlüsselwörtern
durchsuchen z.B. Sie sind jetzt angemeldet.
Die Funktion pos wird Dir da treue Dienste leisten.
Empfehlen würde ich Dir aber auf jeden Fall einen PacketSniffer
zu installieren damit Du alle Deine Schritte nachvollziehn kannst.
Wie arbeitet Dein Browser, was macht mein Programm.
Nahelegen würde ich Dir hier etherdetect (etherdetect.com),
etheral oder aber einen kompfortablen Proxy der Dir auch
SSL Packet im Klartext darstellt (Google > Charles+Proxy).
Wobei speziell der Proxy dann bei den
Indy Proxy Einstellungen
angegeben werden muss. ProxyIP 127.0.0.1 und ProxyPort 8080
glaube ich waren das. Die Einstellungen findest Du auch
wenn Du Charles startest und dieser dann die Einstellungen
für den IE temporär umändert (Extras >Internetoptionen
> Verbindungen > Einstellungen)
Viel Spass und Freude wünsch ich Dir
