ganz easy geht das .... zieh dir nen idhttpclienten aufs form und nen coockiemanager
Code:
function SendPostData(Ahttp: TIdHTTP; const AtoURL: String; const aParams: TStrings): String; //Funktion zum senden von Postdaten mit den Indys
//Ahttp: Die HTTP Komponente von Indy 8.0 bzw. 9.0
//AtoURL: An diese URL werden die Informationen gesendet
//Result: HTML-Ergebnis (Antwort des Scripts)
Var
lStream: TMemoryStream; //HTML-Result des PHP-Scripts
lParams: TStringStream;
I: Integer;
begin
Result:='';
if not Assigned(aHttp) then
exit;
lStream := TMemoryStream.create;
lParams := TStringStream.create('');
try
AHTTP.Request.ContentType := 'application/x-www-form-urlencoded';
//Dieser Stream wird letztendlich gesendet
//Stream mit Werten füllen
for I:=0 to aParams.Count-1 do
lParams.WriteString(aParams[I] + '&');
try
//Stream an das PHP-Script senden
AHTTP.Post(AtoURL,
lParams,
lStream);
except
on E: Exception do
showmessage('Fehler bei der Übertragung: ' + E.Message);
end;
SetLength(Result,lStream.Size);
lStream.Position:=0;
lStream.ReadBuffer(Result[1],lStream.Size);
finally
lParams.Free;
lStream.Free;
end;
end;
schreib diese funktion in die unit ...
und dann hier so wird das gepostet ... die wete musste dann halt selber anpassen bei fragen pm
[code] http := TidHTTP.create(idhttp1);
//cookie := TidCookieManager.create(idcookiemanager1);
list := TStringList.create;
try
http.Request.UserAgent:='Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1)';
http.cookiemanager := IdCookieManager1;
http.AllowCookies := true; //wenn dann auch einschalten Wink
http.HandleRedirects := true; //um weiterleitungen zu folgen
list.add('page=index.php?action=login');
list.add('benutzer='+edit1.Text);
list.add('passwort='+edit2.Text);
s := SendPostData(http,'http://www.yooliety.de/index.php?action=login',list);
// s := http.post('https://www.yooliety.de/index.php?action=login',list);
//nun sollte in "s" der quellcode von
memo2.Text:= http.Get('http://www.yooliety.de/nickpage.php?nick=seppi_tm&open=guestbook');
//deiner site sein nachdem du dich eingeloggt hast
finally
http.free;
cookie.free;
list.free;
end;
memo1.Text:=s;
end;