Browser işlem yaptırma

[nguzeller]

VCL denediniz mi

[Altıner]

(21-09-2022, Saat: 10:36)nguzeller Adlı Kullanıcıdan Alıntı: VCL denediniz mi

Yok hocam uygulamayı sadece FMX tarafında yapıyorum.

[mcuyan]

https://stackoverflow.com/questions/7443...form-appli

unit u_urlOpen;

interface

uses
 System.SysUtils, System.Types, System.UITypes, System.Classes,
 System.Variants,
{$IF Defined(IOS)}
 macapi.helpers, iOSapi.Foundation, FMX.helpers.iOS;
{$ELSEIF Defined(ANDROID)}
Androidapi.JNI.GraphicsContentViewText,
 Androidapi.JNI.Net,
  Androidapi.JNI.App,
 Androidapi.helpers;
{$ELSEIF Defined(MACOS)}
Posix.Stdlib;
{$ELSEIF Defined(MSWINDOWS)}
Winapi.ShellAPI, Winapi.Windows;
{$ENDIF}

type
 tUrlOpen = class
   class procedure Open(URL: string);
 end;

implementation

class procedure tUrlOpen.Open(URL: string);
{$IF Defined(ANDROID)}
var
 Intent: JIntent;
{$ENDIF}
begin
{$IF Defined(ANDROID)}
 Intent := TJIntent.Create;
 Intent.setAction(TJIntent.JavaClass.ACTION_VIEW);
 Intent.setData(StrToJURI(URL));
 tandroidhelper.Activity.startActivity(Intent);
 // SharedActivity.startActivity(Intent);
{$ELSEIF Defined(MSWINDOWS)}
 ShellExecute(0, 'OPEN', PWideChar(URL), nil, nil, SW_SHOWNORMAL);
{$ELSEIF Defined(IOS)}
 SharedApplication.OpenURL(StrToNSUrl(URL));
{$ELSEIF Defined(MACOS)}
 _system(PAnsiChar('open ' + AnsiString(URL)));
{$ENDIF}
end;

end.

[nguzeller]

FMX tarafında bu işi yapmak, VCL göre çok daha zorlu olcaktır, hatta bazı işleri yapamayabilirsin. fmx tarafında hiç denemedim.

[Altıner]

(21-09-2022, Saat: 16:42)mcuyan Adlı Kullanıcıdan Alıntı: https://stackoverflow.com/questions/7443...form-appli

unit u_urlOpen;

interface

uses
 System.SysUtils, System.Types, System.UITypes, System.Classes,
 System.Variants,
{$IF Defined(IOS)}
 macapi.helpers, iOSapi.Foundation, FMX.helpers.iOS;
{$ELSEIF Defined(ANDROID)}
Androidapi.JNI.GraphicsContentViewText,
 Androidapi.JNI.Net,
  Androidapi.JNI.App,
 Androidapi.helpers;
{$ELSEIF Defined(MACOS)}
Posix.Stdlib;
{$ELSEIF Defined(MSWINDOWS)}
Winapi.ShellAPI, Winapi.Windows;
{$ENDIF}

type
 tUrlOpen = class
   class procedure Open(URL: string);
 end;

implementation

class procedure tUrlOpen.Open(URL: string);
{$IF Defined(ANDROID)}
var
 Intent: JIntent;
{$ENDIF}
begin
{$IF Defined(ANDROID)}
 Intent := TJIntent.Create;
 Intent.setAction(TJIntent.JavaClass.ACTION_VIEW);
 Intent.setData(StrToJURI(URL));
 tandroidhelper.Activity.startActivity(Intent);
 // SharedActivity.startActivity(Intent);
{$ELSEIF Defined(MSWINDOWS)}
 ShellExecute(0, 'OPEN', PWideChar(URL), nil, nil, SW_SHOWNORMAL);
{$ELSEIF Defined(IOS)}
 SharedApplication.OpenURL(StrToNSUrl(URL));
{$ELSEIF Defined(MACOS)}
 _system(PAnsiChar('open ' + AnsiString(URL)));
{$ENDIF}
end;

end.

Hocam class hiç kullanmadım class procedure nasıl tetikleyeceğim?

Acaba siz sorunu yanlış anlamış olabilir misiniz?

[RAD Coder]

@mcuyan un paylaştığı class procedure'ü aşağıdaki gibi tetikleyebilirsiniz.

tUrlOpen.Open('https://www.delphican.com/');

[mcuyan]

Hocam bu kodları bı dosyaya kopyalayın ve uzantısını pas yapın. Proje ile aynı foldera atıp, kullanacağınız formun unitinde ki uses kısmına pas dosyasının adını verin (öncesinde sağda projeye add diyip o pas dosyasını eklemeyi unutmayın)..
Sonrasında @RAD Coder in dediği gibi kullanabilirsiniz .

[Altıner]

(21-09-2022, Saat: 22:43)mcuyan Adlı Kullanıcıdan Alıntı: Hocam bu kodları bı dosyaya kopyalayın ve uzantısını pas yapın. Proje ile aynı foldera atıp, kullanacağınız formun unitinde ki uses kısmına pas dosyasının adını verin (öncesinde sağda projeye add diyip o pas dosyasını eklemeyi unutmayın)..
Sonrasında @RAD Coder in dediği gibi kullanabilirsiniz .

Üstat ilginize teşekkür ederim siz yazmadan önce kodları calıştırdım.
Şöyle bir sorun var sanırım yanlış anlattım yada anladınız, pc'deki browserı açıyor. 
FMXChromium kendi WebBrowserı yok mu? neden pc'deki browserı açıyor.

[mcuyan]

Siz Default tarayıcı neyi seçtiyseniz onla açar.. Siz Delphi formu üzerinden mi göstermek istiyorsunuz? Yani forma yerleştirdiğiniz bir webbrowser ile?

O zaman@mrmarman üstadın söylediği yöntemi kullanacaksınız..