Проблема С Авторизацией На Facebook

[Lomanu4]

При клике на этот код выбивает не опознаную страницу,то есть 440,не пойму в чем проблемма делаю все по документации.

Пожалуйста Авторизируйтесь или Зарегистрируйтесь для просмотра скрытого текста.

unit Unit1;

interface

uses
  System.SysUtils, System.Types, System.UITypes, System.Classes, System.Variants,
  FMX.Types, FMX.Controls, FMX.Forms, FMX.Graphics, FMX.Dialogs,
  FMX.Controls.Presentation, FMX.StdCtrls, FMX.WebBrowser;

type
  TForm1 = class(TForm)
    Button1: TButton;
    WebBrowser1: TWebBrowser;
    Button2: TButton;
    Button3: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation
uses REST.Utils;
{$R *.fmx}

procedure TForm1.Button1Click(Sender: TObject);

var sito, pagina, parametri : string;
begin
  //imposta i parametri
  sito := 'https://www.facebook.com/dialog/oauth';
  pagina := 'authorize';
  parametri := 'client_id' + '=' + URIEncode('1407390272921905');
  parametri := parametri + '&' + 'response_type' + '=' + 'token';
  parametri := parametri + '&' + 'scope' + '=' + URIEncode('user_about_me,email');
  parametri := parametri + '&' + 'redirect_uri' + '=' + URIEncode('https://www.facebook.com/connect/login_success.html');
  //apre la pagina richiesta
  WebBrowser1.URL :=sito + '/' + pagina + '?'+ parametri;

end;

 

[Lomanu4]

Вот с такой ссылкой мне дает зайти,но мне нужно что бы диалоговое окно настраивалось точно по размеру,то есть влазело все и настраивался размер автоматом,ну и потом после входа мне нужно брать фото и отослать в таблицу на удаленку и синхронно сохранить в таблицу на телефоне или же где лежит программа,вообщем вопрос такой...

1. Как можно загружать таблицу mysql в телефон и после того как она загружена сохранить на телефон,как только на сервере заноситься новые данные он проверяет их и вносит снова на телефон.
2. Нужно сделать авторизацию фб (Facebook),после первой авторизации сохранить,фото в таблицу на телефоне и отослать на сервер,ну и при вторичном открытие приложение нужно проверить,если получен токен,то продолжить,а если нет то снова вход.

БУДУ ОЧЕНЬ БЛАГОДАРЕН ЕСЛИ БУДЕТ ПОМОЩЬ КОДОМ.

 

[Sascha]

 LURL := 'https://www.facebook.com/dialog/oauth'
   + '?client_id=' + URIEncode( 'INSERT_YOUR_OWN_CLIENT_ID_HERE' )
   + '&response_type=token'
   + '&scope=' + URIEncode('user_about_me,user_birthday')
   + '&redirect_uri=' + URIEncode(' https://www.facebook.com/connect/login_success.html ');

а у тебя

https://www.facebook.com/dialog/oauth/authorize?client_id=1407390272921905&response_type=token&scope=user_about_me%2Cemail&redirect_uri=https%3A%2F%2Fwww.facebook.com%2Fconnect%2Flogin_success.html

 

[Sascha]

Пожалуйста Авторизируйтесь или Зарегистрируйтесь для просмотра скрытого текста.

 

[Sascha]

ошибка в коде

 LURL := 'https://www.facebook.com/dialog/oauth'

правильно

 LURL := 'https://www.facebook.com/dialog/oauth?'

 

[Lomanu4]

ошибка в коде

 LURL := 'https://www.facebook.com/dialog/oauth'

правильно

 LURL := 'https://www.facebook.com/dialog/oauth?'

Ну ты пробывал работает у тебя,я просто не знаю если нужно что бы подтвердили id app или можно любой засунуть.

 

[Sascha]

1407390272921905

Ну ты пробывал работает у тебя,я просто не знаю если нужно что бы подтвердили id app или можно любой засунуть.

да ошибка по id app

 

[Lomanu4]

1407390272921905

да ошибка по id app

нужно что бы по твердили? Если есть id дайте плиз!

 

[guyyda]

При клике на этот код выбивает не опознаную страницу,то есть 440,не пойму в чем проблемма делаю все по документации.

Пожалуйста Авторизируйтесь или Зарегистрируйтесь для просмотра скрытого текста.

unit Unit1;

interface

uses
  System.SysUtils, System.Types, System.UITypes, System.Classes, System.Variants,
  FMX.Types, FMX.Controls, FMX.Forms, FMX.Graphics, FMX.Dialogs,
  FMX.Controls.Presentation, FMX.StdCtrls, FMX.WebBrowser;

type
  TForm1 = class(TForm)
    Button1: TButton;
    WebBrowser1: TWebBrowser;
    Button2: TButton;
    Button3: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation
uses REST.Utils;
{$R *.fmx}

procedure TForm1.Button1Click(Sender: TObject);

var sito, pagina, parametri : string;
begin
  //imposta i parametri
  sito := 'https://www.facebook.com/dialog/oauth';
  pagina := 'authorize';
  parametri := 'client_id' + '=' + URIEncode('1407390272921905');
  parametri := parametri + '&' + 'response_type' + '=' + 'token';
  parametri := parametri + '&' + 'scope' + '=' + URIEncode('user_about_me,email');
  parametri := parametri + '&' + 'redirect_uri' + '=' + URIEncode('https://www.facebook.com/connect/login_success.html');
  //apre la pagina richiesta
  WebBrowser1.URL :=sito + '/' + pagina + '?'+ parametri;

end;

У url точно действительный?

 

[Lomanu4]

Думаю да ,так как через php работает нормально .