1. Anatoliy

    Anatoliy

  • Похожий контент

    • От A. Sharif
      Возможно ли с помощью intent получить от какого-либо из официальных приложений Вконтакте/Фейсбук/Инст/Google access-token (через кол-бэк метод)?
      Предусматривается ли данная возможность этими приложениями? Если кто делал - приведите, пожалуйста, пример получения результата. 
    • От Равиль Зарипов (ZuBy)
      Доброго времени суток!
      Навеяно этой темой.
      Посмотрел реализацию от @Pax Beach (за что ему спасибо большое) и столкнулся с тем что TRESTClient со всеми потрахами это просто дикий ужас.
      Решил собрать аналогичный пример, только не использовать TREST***
      немного опишу, свою реализацию
      uAppSettings.pas - хранит описание вашего приложения созданного в ВК  FMX.RESTLight.pas - модуль "общения" клиента с сервером FMX.RESTLight.Types.pas - тут хранятся типы для работы TRESTLight Приведу код, который постит Вам на стену текст
      var aFields: TArray<TmyRestParam>; aJSON: string; begin SetLength(aFields, 5); aFields[0] := TmyRestParam.Create('access_token', FAuthToken.token, false); aFields[1] := TmyRestParam.Create('v', FVKApp.APIVersion, false); aFields[2] := TmyRestParam.Create('owner_id', FAuthToken.user_id, false); aFields[3] := TmyRestParam.Create('friends_only', '0', false); aFields[4] := TmyRestParam.Create('message', 'Тестовое сообщение <RESTLight>', false); TTask.Run( procedure begin aJSON := TRESTLight.Execute('wall.post', FVKApp, aFields); TThread.Synchronize(TThread.CurrentThread, procedure begin Memo1.Lines.Add('---- wall.post ----'); Memo1.Lines.Add(aJSON); end); end); а вот так можно заливать файлы
      var aFields: TArray<TmyRestParam>; aJSON: string; begin SetLength(aFields, 4); aFields[0] := TmyRestParam.Create('access_token', FAuthToken.token, false); aFields[1] := TmyRestParam.Create('v', FVKApp.APIVersion, false); aFields[2] := TmyRestParam.Create('owner_id', FAuthToken.user_id, false); aFields[3] := TmyRestParam.Create('photo', aUploadFile, true); // для файлов указывается !!!true!!! TTask.Run( procedure begin // для загрузки файлов использовать TRESTLight.Execute2, в нем можно указать произвольный URL aJSON := TRESTLight.Execute2(aUploadURL, FVKApp, aFields); TThread.Synchronize(TThread.CurrentThread, procedure begin Memo1.Lines.Add('---- upload file to server ----'); Memo1.Lines.Add(aJSON); end); end); P.S. На правильность и оригинальность не претендую, просто альтернативный вариант. Мне например не понравилась как устроен TRESTClient, много компонентов лишних. В боевых условиях наверное код еще будет модернизироваться, я рассмотрел только пару методов, но думаю общая концепция не сильно поменяется
      GitHub   TRESTLight.zip
    • От masmat
      Всем привет. Есть задача:
       
      Из моего приложения необходимо открыть группу ВКонтакте зная ее WEB адрес.
       
      Но! Открыть группу нужно в установленном на смартфоне приложении ВКонтакте, т.е. его нужно найти и открыть в нем группу, соответственно запустив приложение ВКонтакте.
      Если приложение не установлено, то нужно выдать сообщение об ошибке.
       
    • От Labian
      Всем привет!
      Возникла трудность при разработке приложения для iOS. Необходимо получить информацию о пользователе в VK методом "users.get"
       
      Использую REST для авторизации и запросов.
      При попытке выполнить запрос к https://api.vk.com/method/ возникает ошибка :
        First chance exception at $000178C8. Exception class EIdOSSLCouldNotLoadSSLLibrary with message 'Could not load SSL library.'
       
      Что нужно сделать чтоб работать с https на iOS?
       
      Delphi XE7 Update 1
       
       
       
    • От aleksej208
       Использую Indy для выполнения авторизации в Вконтакте, но код зависает после нажатия на кнопку. Что может быть не так?
      procedure TForm3.SpeedButton1Click(Sender: TObject); begin IdHTTP1.AllowCookies:=True; IdHTTP1.HandleRedirects:=true; try if Pos('выйти', IdHTTP1.Get('http://login.vk.com/?act=login&email=' + edit1.Text + '&pass=' + edit2.Text)) > 0 then   begin ShowMessage('Авторизация прошла успешно!') ;   Form2.Show;   end   else ShowMessage('Не удается войти.');   except   end; end;
    • От aleksej208
      Возникла небольшая проблемка,  после заполнения edit'ов выскакивают ShowMessage по два раза, в чем проблема, может напутал что то с if и else?
      Исходный проект: для форума fm.zip
      procedure TForm3.SpeedButton1Click(Sender: TObject); var PageData:string; Data: TStringList; begin if RadioButton1.IsChecked then //Авторизация для ВКОНТАКТЕ IdHTTP1.AllowCookies := True; IdHTTP1.HandleRedirects := True; 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('Не удается войти.'); IdHTTP1.CookieManager.CookieCollection.Clear; end; except on E: Exception do begin ShowMessage ('Error: ' + E.Message); Exit; end; end; if Radiobutton2.IsChecked then //Авторизация для Одноклассники 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;
  • Последние посетители   0 пользователей онлайн

    Ни одного зарегистрированного пользователя не просматривает данную страницу