Форум на Исходниках.RU https://forum.sources.ru Форум на Исходниках.RU Форум на Исходниках.RU https://forum.sources.ru/index.php?showtopic=371744&view=findpost&p=3268453 Fri, 01 Feb 2013 10:11:56 +0000 Нужна помощь кукиси https://forum.sources.ru/index.php?showtopic=371744&view=findpost&p=3268453
    ShowMessage(Utf8Decode('РќРµ указан режим сообщения'));
]]> Filka Delphi: Сетевое программирование https://forum.sources.ru/index.php?showtopic=371744&view=findpost&p=3268417 Fri, 01 Feb 2013 09:22:13 +0000 Нужна помощь кукиси https://forum.sources.ru/index.php?showtopic=371744&view=findpost&p=3268417 Цитата
Так ты перед вторым посмом заново создаёшь инди.. с чего им там быть то..
Http := TIdHTTP.Create(Self);
Если на разных процедурах\кнопках висит, объяви Http := TIdHTTP; глобально..
Либо сохраняй нужные куки после авторизации в переменную, опять же глобальную.. и потом добавляй где требуется.


Спасибо помогло , нашел ошибки.

Цитата
Спамер?

Почему именно спаммер , если бы я был спаммером , я бы за помощью не обратился с моими знаниями такую программку не напишешь.
Просто для авто наполнение своего блога , думать ни как было

Еще вопрос можно ли как сделать чтобы отчет показывал нормально , даже не разобрать какая ошибка вылетела , версия инди 9 , установил и 10 но там тоже отчет не из лучшших примерно так ????????????????????????????????
РќРµ указан режим сообщения]]> se00 Delphi: Сетевое программирование https://forum.sources.ru/index.php?showtopic=371744&view=findpost&p=3268312 Fri, 01 Feb 2013 06:31:14 +0000 Нужна помощь кукиси https://forum.sources.ru/index.php?showtopic=371744&view=findpost&p=3268312 Цитата se00 @
автопостер ну там на блогах

Спамер?]]> Fr0sT Delphi: Сетевое программирование https://forum.sources.ru/index.php?showtopic=371744&view=findpost&p=3268249 Thu, 31 Jan 2013 19:23:49 +0000 Нужна помощь кукиси https://forum.sources.ru/index.php?showtopic=371744&view=findpost&p=3268249 Http := TIdHTTP.Create(Self);
Если на разных процедурах\кнопках висит, объяви Http := TIdHTTP; глобально..
Либо сохраняй нужные куки после авторизации в переменную, опять же глобальную.. и потом добавляй где требуется.]]> faust777 Delphi: Сетевое программирование https://forum.sources.ru/index.php?showtopic=371744&view=findpost&p=3268144 Thu, 31 Jan 2013 15:09:20 +0000 Нужна помощь кукиси https://forum.sources.ru/index.php?showtopic=371744&view=findpost&p=3268144
Вот код *.* --это адрес сайта , программка собирает куки, но когда отправляется 2 пост запрос,куки программка не передает на сервер и поэтому вылезает ошибка вы не авторизованы. Как исправить. Помогите пожалуйста в долгу не останусь


procedure TForm1.btn1Click(Sender: TObject);
var site,auth:string;
begin

try
Http := TIdHTTP.Create(Self);
LoginInfo := TStringList.Create;
CM := TidCookieManager.Create(Http);
Http.AllowCookies := true;
Http.CookieManager := CM;
Http.HandleRedirects := true;
hTTP.RedirectMaximum:=5;
Http.Request.Host:='*.*';
Http.Request.UserAgent:='Mozilla/5.0 (Windows; U; Windows NT 5.1; ru; rv:1.9.0.10) Gecko/2009042316 Firefox/3.0.10';
Http.Request.Accept:='text/html,application/xhtml+xml,application/xml;q=0.9,*/*;q=0.8';
Http.Request.AcceptLanguage:='ru,en-us;q=0.7,en;q=0.3';
Http.Request.AcceptCharSet:='windows-1251,utf-8;q=0.7,*;q=0.7';
Http.Request.Referer:='*.*';
LoginInfo := TStringList.Create;
LoginInfo.Add('username=Admin') ;
LoginInfo.Add('password=*******');
LoginInfo.Add('autologin=on');
LoginInfo.Add('redirect=');
LoginInfo.Add('query=');
LoginInfo.Add('login=Вход');
mmo1.Text:=Http.Post('http://*.*/login',LoginInfo);
LoginInfo.Free;

finally
end;
try
Http.HandleRedirects := true;
site:=Http.get('http://*.*/post?f=1&mode=newtopic');
Memo1.Text:=site;
auth:=Copy(site,Pos('name="auth[]" value="',site)+21,32);
Http := TIdHTTP.Create(Self);
LoginInfo := TStringList.Create;
LoginInfo.Add('subject=privet kak dela, tester678 ') ;
LoginInfo.Add('message=privetulki vsemmmm xax');
LoginInfo.Add('auth[]='+auth);
mmo2.Text:=IdHTTP2.Post('http://*.*/post',LoginInfo);
finally
end;
end;]]> se00 Delphi: Сетевое программирование