ужно написать программу каторая будет авторизовываться на форуме
Но я незнаю как работать с куками...
Вот что я написал,ноничего не работает...В ответ получаю страницу Ввода логина и пароля..
Помогите плз
[CODE]var
text:string;
CookMan: TidCookieManager;
begin
CookMan:=TidCookieManager.Create(IdHTTP1);
IdHTTP1.CookieManager := CookMan;
IdHTTP1.AllowCookies := True;
otpr:= TStringList.Create;
otpr.Add('referer=');
otpr.Add('UserName=тут логин');
otpr.Add('PassWord=тут пароль');
otpr.Add('CookieDate=1');
otpr.Add('submit=%C2%EE%E9%F2%E');
memo1.Text:=IdHTTP1.Post('
http://forum.sources.ru/index.php?&act=Login&CODE=00', otpr);
end;[/CODE]
[B]ну или вот так...но всеравно не работает...[/B]
[CODE]var
text,text1:string;
all:integer;
CookMan: TidCookieManager;
begin
CookMan:=TidCookieManager.Create(IdHTTP1);
IdHTTP1.CookieManager := CookMan;
IdHTTP1.AllowCookies := True;
memo1.Text:= IdHTTP1.Get('
http://forum.sources.ru/');
text:=copy(memo1.text,pos ('Login&',memo1.text)-41,32); // поиск S=....
memo1.Text:= IdHTTP1.Get('
http://forum.sources.ru/index.php?s='+text+'&act=Login&CODE=00');
text:=copy(memo1.text,pos ('Login&',memo1.text)-41,32); // поиск S=....
otpr:= TStringList.Create;
otpr.Add('referer=');
otpr.Add('UserName=тут логин');
otpr.Add('PassWord=тут пароль');
otpr.Add('CookieDate=1');
otpr.Add('submit=%C2%EE%E9%F2%E');
memo1.Text:=IdHTTP1.Post('
http://forum.sources.ru/index.php?s='+text+'&act=Login&CODE=00', otpr);[/CODE]
Или я просто не то и не туда отправляю?