Aufruf Programme mit Firemonkey

[wilschu]

Hallo,

Ich möchte aus meiner Firemonkey-Anwendung andere Programme aufrufen können. Der Aufruf soll sowohl auf Windows als auch auf MacOSX funktionieren

Kann mir jemand da weiterhelfen?

Vielen Dank im voraus

[jaenicke]

Soweit ich weiß gibt es da keine gemeinsame Funktion, da bleibt wohl nur eine Compilerdirektive und einmal ShellExecute/CreateProcess und einmal _system.

[wilschu]

Hast Du für den Aufruf unter Win und Mac auch Beispielcode?

[RWarnecke]

Du weißt schon was eine Suche ist oder ?

ShellExecute CreateProcess _system Compilerdirektive

[Harry Stahl]

Damit man sich hier an dieser Stelle nicht alles zusammensuchen muss, mal ein Beispiel im ganzen Stück:

uses
{$IFDEF MACOS}
POSIX.Stdlib
{$ENDIF}

{$IFDEF MSWINDOWS}
ShellApi
{$ENDIF}

Implementation

procedure RunProg (prog: string);
begin
{$IFDEF MSWINDOWS}
ShellExecute(0,'open',Pchar (prog),nil,nil,0);
{$ELSE}
_system(PAnsiChar ('open ' + AnsiString (prog)));
{$ENDIF}
end;

[QuickAndDirty]

Hallo
Ich habe mir diese Funktion abgeschaut um eine Website im Browser zu öffnen.

Delphi-Quellcode:

unit uCommonFunctions;

interface

uses
  {$IFDEF ANDROID}
  Androidapi.Helpers,
  Androidapi.JNI.App,
  Androidapi.JNI.GraphicsContentViewText,
  {$ENDIF ANDROID}
  {$IFDEF MSWINDOWS}//WIN32
   WINAPI.WINDOWS,
   Winapi.ShellAPI,
  {$ENDIF MSWINDOWS}
  {$IFDEF IOS}
  Macapi.ObjCRuntime,
  Macapi.ObjectiveC,
  IOSApi.Foundation,
  IOSApi.UIKit,
  IOSApi.QuartzCore,
  IOSApi.CocoaTypes,
  {$ENDIF IOS}
  {$IFDEF POSIX}
  Posix.Stdlib,
  {$ENDIF POSIX}
  System.UIConsts,
  System.UITypes,
  System.SysUtils,
  System.Classes,
  uCommontypes,
  system.Types,
  FMX.Dialogservice,
  ioutils;


Procedure OpenDocument(sCommand:String);

implementation

Procedure OpenDocument(sCommand:String);
Begin
{$IFDEF MSWINDOWS}
  ShellExecute(0, 'OPEN', PChar(sCommand), '', '', SW_SHOWNORMAL);
{$ENDIF MSWINDOWS}
{$IFDEF POSIX}
  _system(PAnsiChar('open ' + AnsiString(sCommand)));
{$ENDIF POSIX}
End;

Der Compiler meint für Android PANSICHAR und ANSIString nicht zu kennen.
:(
_PANSICHAR und _ANSISTRING machens auch nicht.
muss ich wieder ein Bytearray von Tencoding übergeben?

[QuickAndDirty]

ok es sieht jetzt so aus.

Delphi-Quellcode:

Procedure OpenDocument(sCommand:String);
{$IFDEF IOS}
var
  NSU: NSUrl;
{$ENDIF IOS}
{$IFDEF ANDROID}
var
  Intent: JIntent;
{$ENDIF ANDROID}
Begin
{$IFDEF WIN32}
  ShellExecute(0, 'OPEN', PChar(sCommand), '', '', SW_SHOWNORMAL);
{$ENDIF WIN32}
{$IFDEF IOS}
  // iOS doesn't like spaces, so URL encode is important.
  NSU := StrToNSUrl(TIdURI.URLEncode(URL));
  if SharedApplication.canOpenURL(NSU) then
    SharedApplication.openUrl(NSU);
{$ENDIF IOS}
{$IFDEF ANDROID}
      Intent := TJIntent.Javaclass.init(TJIntent.JavaClass.ACTION_VIEW,
                 StrToJURI(sCommand));
      Intent.setFlags(TjIntent.JavaClass.FLAG_ACTIVITY_NEW_TASK);
      TAndroidhelper.Activity.startActivity(Intent);
{$ENDIF ANDROID}
End;