Авг
11

Проект VK API в Delphi. Работа с потоками

Вот решил немного привести в порядок наш проект, решил добавить обработчик добавления моего приложения на вашу страницу, а также решил добавить потоки в обработку нашей информации, а точнее в получении нашей информации, а пока информация получается, то мы можем выполнять с нашим приложением другие функции и форма в это время не зависает так что вполне неплохо, если мы добавим пару потоков. Про потоки мы с Вами уже много раз говорили, так что вполне спокойно можем применить их и в нашем проекте, к сожалению в модуль пока что не добавил функцию, которая получает результат с API-сервера о профиле пользователя, но ничего, как только будет время сразу же сделаю это и выложу сюда. Но пока, что я добавлю еще TLabel, который будет показывать, что у нас идет получение информации, а как только мы получим нужную нам информацию сразу же покажется, что информацию получена.

Для получения данных сессии я объявил следующий класс потока

Type
 VKThread=class(TThread)
  private
   logVK:string;
   i:integer;
  protected
   procedure Execute;override;
   procedure ShowResult;
end;

То есть Execute - основная процедура потока, а ShowResult - процедура, которая будет показывать наш результат. Давайте сделаем все красиво и даже если мы не подключены к сети Интернет, то показывать, что мы не подключены и чтобы не вылетала ошибка, я рассказывал как проверить подключении к интернет, подключим в Uses модуль wininet и дальше следующий код проверяет подключение к Интернет

Connection:=1+2+3;
    if InternetGetConnectedState(@Connection,0)=False then
     begin
      Application.MessageBox('Подключитесь к Интернет','Внимание',MB_OK+MB_ICONINFORMATION);
      exit;
     end;

И не забываем Connection у нас типа DWORD. Дальше процедура Execute нашего потока выглядит следующим образом

procedure VKThread.Execute;
var
 Connection:DWORD;
begin
  inherited;
   try
    Connection:=1+2+3;
    if InternetGetConnectedState(@Connection,0)=False then
     begin
      Application.MessageBox('Подключитесь к Интернет','Внимание',MB_OK+MB_ICONINFORMATION);
      exit;
     end;
    Form1.LabelResult.Font.Color:=clRed;
    Form1.LabelResult.Caption:='Ждите...идет получение данных';
    Form1.Timer1.Enabled:=True;
    logVK:=Form1.IdHTTP1.Get('http://vkontakte.ru/login.php?app=1918788&layout=popup&type=browser&settings=15615');
    PostVK:=TStringList.Create;
    i:=1;
    PostVK.Clear;
    PostVK.Add('act=login');
    PostVK.Add('app=1918788');
    PostVK.Add('app_hash='+Pars(logVK,'app_hash = ',';',1));
    PostVK.Add('email='+Form1.EditLogin.Text);
    PostVK.Add('pass='+Form1.EditPass.Text);
    PostVK.Add('permanent=1');
    logVK:=Form1.IdHTTP1.Post('http://login.vk.com/',PostVK);
    PostVK.Clear;
    i:=2;
    PostVK.Add('s='+Pars(logVK,'value=','/>',2));
    PostVK.Add('act=auth_result');
    PostVK.Add('m=4');
    PostVK.Add('parmanent=1');
    PostVK.Add('expire=""');
    PostVK.Add('app=1918788');
    PostVK.Add('app_hash='+Pars(logVK,'app_hash" value=','"',0));
    logVK:=Form1.IdHTTP1.Post('http://vkontakte.ru/login.php',PostVK);
    i:=3;
    PostVK.Free;
    Synchronize(ShowResult);
   except
    on e:Exception do
     PostVK.Free;
   end;
end;

То есть все тоже самое, что мы и писали на TButton, на событие OnClick, а процедура ShowResult у нас выглядит следующим образом

procedure VKThread.ShowResult;
begin
   if (logVK<>'') and (i=3) then
    begin
     Form1.Timer1.Enabled:=False;
     Form1.LabelResult.Font.Color:=clGreen;
     Form1.LabelResult.Visible:=True;
     Form1.LabelResult.Caption:='Данные получены';
     Form1.LabelSid.Visible:=True;
     Form1.LabelMid.Visible:=True;
     Form1.LabelSecret.Visible:=True;
     Form1.LabelMid.Caption:=Pars(logVK,'mid"',',',0);
     Form1.LabelSid.Caption:=Pars(logVK,'sid":','",',0);
     Form1.LabelSecret.Caption:=Pars(logVK,'secret":','",',0);
    end;
end;

То есть просто выводим полученный результат, если такой имеется

Теперь на TButton событие OnClick создаем наш поток

procedure TForm1.ButtonGoClick(Sender: TObject);
var
 VK:VKThread;
begin
   VK:=VKThread.Create(False);
end;

Чтобы добавить мое приложение на Вашу страницу, просто открываю страницу моего приложения в браузере по  умолчанию с помощью функции ShellExecute, чтобы ее использовать необходимо в Uses подключить модуль Shellapi, далее на TButton событие OnClick написал следующий код

procedure TForm1.Button2Click(Sender: TObject);
begin
   ShellExecute(Handle,nil,'http://vkontakte.ru/login.php?app=1918788&layout=popup&type=browser&settings=15615','','',SW_SHOW);
end;

На получение информации по профилю в поток я сделал тоже самое, только с другим потоком, проект прилаживаю, так что качаем

Хочу заметить, что в настоящее время популярнее игрушек из серии lego нету. И все дети увлекаются серией этих игрушек. Кроме того, что в них можно играть, так их еще и необходимо в начале построить, а это все зависит уже от фантазии ребенка. Если Вы хотите купить лего, то Вам необходимо выбрать линейку данных конструкторов и просто заказать через Интернет, все просто, Вы экономите еще и свое время, которое итак дорого для Вас.

Полный проект качаем тут

Автор статьи - Andrey53

Метки: , , , , , , ,

Автор: Admin Мои работы, Сеть и интернет Подписаться на RSS ленту

Комментарии закрыты.