» Delphi » iOS システム » Custom URL Schemeで ?後のクエリも撮りたいのですがDelphi Forum | Borland / Inprise / CodeGear / Embarcadero Delphi や C++Builder に関する情報交換の場です。ハンドル名で投稿できます。

ゲスト
ようこそゲストさん。このフォーラムに投稿するには登録が必要です。ユーザ名: パスワード: ログイン情報を保存

Forum » Delphi » iOS システム » Custom URL Schemeで ?後のクエリも撮りたいのですが

ページ: [1]

	トピック: Custom URL Schemeで ?後のクエリも撮りたいのですが

毛利春幸

メンバー
投稿数: 25

Custom URL Schemeで ?後のクエリも撮りたいのですが
on: 2016/02/01 00:17 Mon

http://codeverge.com/embarcadero.delphi.ios/ios-share-files/1096322
上記のような感じにすれば Custom URL Schemeが取れるのですが
?の後のクエリーってどうやって取れば良いのでしょうか？

modeled_app://?test1=test

DEKO

管理者
投稿数: 2691

Re: Custom URL Schemeで ?後のクエリも撮りたいのですが
on: 2016/02/01 05:39 Mon

これの件ですよね。
http://docwiki.embarcadero.com/Libraries/ja/FMX.Platform.TApplicationEvent

試していないのでアレですが、URL にはスキーム名だけしか返ってこないのですか？

毛利春幸

メンバー
投稿数: 25

Re: Custom URL Schemeで ?後のクエリも撮りたいのですが
on: 2016/02/01 10:48 Mon

DEKOさんありがとうございます。m(_ _)m
AContext: TObject はTiOSOpenApplicationContextにしてやればよかったのですねｗ

function TForm1.AppEvent(AAppEvent: TApplicationEvent;
  AContext: TObject): Boolean;
begin
  if AAppEvent = TApplicationEvent.OpenURL then
  begin
    Memo1.Lines.Append('AppEvent' + (AContext as TiOSOpenApplicationContext).URL);
  end;
end;

procedure TForm1.FormCreate(Sender: TObject);
var
  AppEventSvc: IFMXApplicationEventService;
begin
  if TPlatformServices.Current.SupportsPlatformService( IFMXApplicationEventService, IInterface( AppEventSvc ) )
  then AppEventSvc.SetApplicationEventHandler( AppEvent );
end;