witam
pisze program do zapraszania ludzi na naszej klasie. Z uwagi na to, iz chcialbym aby bylo to wszystko jak najbardziej naturalne wybralem webbrowser przez ktory sie loguje funkcja, ktora wypelnia pola oraz wciska submit. Tutaj nie mam zadnego problemu. Losuje profil i staram sie go zaprosic przez formularz:
<form method="post" action="/invite/123"><input alt="Dodaj do listy znajomych" src="http://static.nasza-klasa.pl/img/avatar/profil_button_main_dodajznajomego" class="img" type="image"><input name="t" value="4a34e03e4b6da38ce41bbe2b" type="hidden"><button type="submit"><span>Dodaj do znajomych</span></button></form>
wszystko ladnie sie przesyla dzieki:
function zaproszenie(zmienna:string;profil:integer):boolean;
var
i: Integer;
EncodedStr: string;
Header: OleVariant;
Post: OleVariant;
begin
EncodedStr := 't='+zmienna;
Post := VarArrayCreate([0, Length(EncodedStr) - 1], varByte);
for I := 1 to Length(EncodedStr) do
Post[I - 1] := Ord(EncodedStr[I]);
Header := 'Content-Type: application/x-www-form-urlencoded' + #10#13;
form1.WebBrowser1.Navigate('http://nasza-klasa.pl/invite/'+inttostr(profil), EmptyParam,
EmptyParam, Post, Header);
end;
ale tutaj zaczynaja sie moje problemu. po przeslaniu zaproszenia zamiast powrocic mnie na profil z komunikatem ze zostal zaproszony uzytkownik to laduje wsrod znajomych. wyglada to tak, jakby nie odbieralo powrotnych danych, albo ja ich nie obsluguje ?