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;
IdHTTP куки
Нужно написать программу каторая будет авторизовываться на форуме(Программа будет смотреть- есть на форуме новые сообщения или нет)...
Но я незнаю как работать с куками...
Вот что я написал,ноничего не работает...В ответ получаю страницу Ввода логина и пароля..
Помогите плз
ну или вот так...но всеравно не работает...
Или я просто не то и не туда отправляю?
Но я незнаю как работать с куками...
Вот что я написал,ноничего не работает...В ответ получаю страницу Ввода логина и пароля..
Помогите плз
Код:
ну или вот так...но всеравно не работает...
Код:
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);
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);
Или я просто не то и не туда отправляю?