Авторизация в Instagram на Delphi

[Fakov]

Помогите пожалуйста - почему не срабатывает код?

unit Unit1;
interface
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, httpsend,ssl_openssl, StdCtrls; 
 
type
  TForm1 = class(TForm)
    Button1: TButton;
    Memo1: TMemo;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
 
procedure TForm1.Button1Click(Sender: TObject);
var
HTTP: THTTPSend;
HTML: TStringList;
Data: TStringStream; 
Token, Session: String; //А тут будет тоже HTML код
begin
HTTP:=THTTPSend.Create;
HTML:=TStringList.Create;
Data:=TStringStream.Create('');

HTTP.HTTPMethod('GET','https://instagram.com/accounts/login/');
showmessage(HTTP.Cookies.text);
End;
end.

окошко выводится пустым, токен не получает. немного прокопавшись, вывел только ошибку 403. Это все что смог сделать. Помогите, как сделать, чтобы получить токен для авторизации в инстаграмме

[Stilet]

Инстаграм использует SSL. подключай SSL компоненты, может тогда и повезет.
http://www.programmersforum.ru/showthread.php?t=195828

[Fakov]

так я же вроде подключил, использую synapse, в uses строит ssl_openssl

[come-on]

А где тут авторизация?

[Stilet]

А-а-а, это не инди...

[Fakov]

А где тут авторизация?

тут еще нет. тут просто токен для нее нужно получить.

А-а-а, это не инди...

А есть рабочий пример на инди??? 0_0

[come-on]

www не пробовали добавить?

[Stilet]

А есть рабочий пример на инди?

У меня нет. Я не занимаюсь такими вещами через инди. Раньше я делал это через WebBrowser а теперь вообще такой хной не страдаю.