Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Работа с сетью в Delphi
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 17.04.2010, 18:08   #1
Айдар
Форумчанин
 
Регистрация: 20.06.2009
Сообщений: 195
По умолчанию Не пойму где ошибка

вот код авторизации на рамблер через инди запускаю и окошко сразу исчезает что не так:

Цитата:
procedure TForm1.Button1Click(Sender: TObject);
var
params : tstringlist;
begin
params := TStringList.Create;
try
params.Add('back=http://mail.rambler.ru/mail/startpage');
params.Add('login='логин');
params.Add('domain=rambler.ru');
params.Add('passw='пароль');
memo1.Text := IdHTTP1.Post('http://id.rambler.ru/script/auth.cgi',params);
finally
if Pos('logout',memo1.Text)>0 then
ShowMessage('все ок');
params.Free;

end;
end;

Последний раз редактировалось Айдар; 17.04.2010 в 18:11.
Айдар вне форума Ответить с цитированием
Старый 17.04.2010, 18:20   #2
Айдар
Форумчанин
 
Регистрация: 20.06.2009
Сообщений: 195
По умолчанию

м, может это у меня с идни что-то, а ту такое твориться со всеми прогами с инди
Айдар вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
не пойму где ошибка C-Jay Общие вопросы C/C++ 1 03.01.2010 01:45
где сдесь туплю не пойму Doget Помощь студентам 2 04.02.2009 08:46
idSMTP не пойму где ошибка JRcoker Работа с сетью в Delphi 5 07.10.2008 14:10
Определение уровня напряженности магнитного поля, не пойму где ошибка neznayka2 Паскаль, Turbo Pascal, PascalABC.NET 2 24.08.2008 21:01
Никак не пойму где крыса затаилась! Подскажите! Хs-You Общие вопросы Delphi 12 19.08.2007 16:28