Добрый вечер.
Была одна программка, работала как положено, но буквально 3 дня назад вдруг появилась ошибка.
Суть программы в том чтобы рассортировать в контакте мальчиков и девочек.
Для наглядности были взяты случайные id пользователей контакта.
Итак, все по порядку.
Сам код программы (ниже добавил вырезку из проекта):
Код:
procedure MoveSex(Sex: integer);
var
Data1, Data2 : string;
x, PosSex : integer;
begin
For x := Form1.ListBox1.Items.Count-1 DownTo 0 Do
begin
Application.ProcessMessages;
Data2:= Form1.ListBox1.Items[x];
Delete(Data2, 1, Pos('/id', Data2) + 2);
Data1:= Form1.idHTTP1.Get('http://api.vk.com/method/getProfiles?uid=' + Data2 + '&fields=sex');
if Data1 <> '' then
begin
PosSex:= Pos('"sex":', Data1);
if StrToInt(Copy(Data1, PosSex + 6, 1)) = Sex then
begin
Form1.ListBox2.Items.Add(Form1.ListBox1.Items[x]);
Form1.ListBox1.Items.Delete(x);
end;
end;
end;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
MoveSex(2);
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
MoveSex(1);
end;
При попытке запустить выводит ошибку:
Цитата:
---------------------------
Debugger Exception Notification
---------------------------
Project Project1.exe raised exception class EIdHTTPProtocolException with message 'HTTP/1.1 302 Found'. Process stopped. Use Step or Run to continue.
---------------------------
OK Help
---------------------------
|
Суть программы в том что она формирует запрос на сервер vk:
И получаем вот такую строку, которую потом разбираем:
Цитата:
{"response":[{"uid":8807280,"first_name":"Александр","last_name ":"Турушев","sex":2}]}
|
Танцы с бубном в виде
Код:
IdHTTP1.HandleRedirects:= True;
не помогли.
Есть шанс вновь заставить работать сию процедуру? Уже 3 дня голову ломаю. В гугле все перерыл - из предложенных вариантов для решения этой проблемы ничего не подошло.