Добавление в листбокс ресурсоемкое дело. Попробуй закоментировать строку
// ListBox1.Items.Add(Format('id: %d; name: %s', [FieldId.AsInteger, FieldName.AsString]));
и проверь скорость работы
У вас на мобилном устройстве, во время авторизации приложение зависает? Если да - то советую воспользоваться многопоточностью.
procedure TForm3.SpeedButton1Click(Sender: TObject);
var
PageData: string;
Data: TStringList;
begin
if RadioButton1.IsChecked then // Авторизация для ВКОНТАКТЕ
Begin
// Включаем куки
IdHTTP1.AllowCookies := True;
// Включаем редиректы
IdHTTP1.HandleRedirects := True;
// Указываем юзер агент, необходимо для авторизации. Иначе всегда будет приходить False
IdHTTP1.Request.UserAgent :=
'Mozilla/5.0 (Windows NT 6.1; rv:27.0) Gecko/20100101 Firefox/27.0';
try
if pos('выйти', IdHTTP1.Get('http://login.vk.com/?act=login&email=' +
Edit1.Text + '&pass=' + Edit2.Text)) > 0 then
begin
ShowMessage('Авторизация прошла успешно!');
Form2.Show;
IdHTTP1.CookieManager.CookieCollection.Clear; // удаление куки
end
else
begin
ShowMessage('1Не удается войти.');
IdHTTP1.CookieManager.CookieCollection.Clear; // Удаление куки
end;
except
on E: Exception do
begin
ShowMessage('Error: ' + E.Message);
Exit;
end;
end;
End;
if RadioButton2.IsChecked then // Авторизация для Одноклассники
begin // Добавил, без него выполнялась только следующая строка
// Включаем куки
IdHTTP1.AllowCookies := True;
// Включаем редиректы
IdHTTP1.HandleRedirects := True;
IdHTTP1.AllowCookies := True;
IdHTTP1.HandleRedirects := True;
IdHTTP1.Request.UserAgent :=
'Mozilla/5.0 (Windows NT 6.1; rv:27.0) Gecko/20100101 Firefox/27.0';
Data := TstringList.Create;
Data.Add('fr.posted=set');
Data.Add('fr.needCaptcha=');
Data.Add('fr.login=' + Edit1.Text);
Data.Add('fr.password=' + Edit2.Text);
Data.Add('button_login=Войти');
PageData := IdHTTP1.post
('http://m.odnoklassniki.ru/dk?bk=GuestMain&st.cmd=main&_prevCmd=main&tkn=7080',
Data);
if pos('logoff', PageData) <> 0 then
begin
ShowMessage('Авторизация прошла успешно');
Form2.Show
end
else
ShowMessage('Не удается войти.');
end;
end;