Ivan Revelli - Synaptica srl

VMWare Palyer disabilitare sospensione automatica

per Ivan Revelli
in Articoli
on Ottobre 2, 2014

0

Con VMWare Player per disabilitare la sospensione automatica di una macchina virtuale, bisogna editare il file .vmx ed aggiungere la seguante riga:

suspend.disabled = "TRUE"

1	suspend.disabled = "TRUE"

dalla documentazione originale: To disable the suspend feature for a virtual machine in VMware Fusion: Shutdown the virtual machine. Locate the virtual machine bundle. For more information, see Locating the virtual machine…
Leggi tutto

Delphi XE5 – DCC Error E2597 libibtogo.o

per Ivan Revelli
in Senza categoria
on Settembre 23, 2014

0

Problem : Compiling an Android Project with Delphi XE5 i had a Linker Error E2597 on libibtogo.o Today i lose 4 hours on compiling my Android Delphi project, because i removed a used unit : Data.DBXInterbase . I reintroduced that library and all function well like before 🙂 Error detail: [DCC Error] E2597 F:PlatformSDKsandroid-ndk-r8etoolchainsarm-linux-androideabi-4.6prebuiltwindowsbinarm-linux-androideabi-ld.exe: f:\embarcadero\12.0\lib\Android\Release/libibtogo.a(util.o):…
Leggi tutto

Oracle reset user password, lock/unlock user

per Ivan Revelli
in databases, oracle
on Aprile 22, 2014

0

http://eoracle11g.blogspot.it/p/alter-user-information.html

Accessing The Android API – Brian Long

per Ivan Revelli
in Android, DotNet
on Marzo 31, 2014

0

Retrive the Imei (device identification) from your Android Device with Delphi XE5

per Ivan Revelli
in Delphi, Programmazione, Programmazione
on Marzo 27, 2014

0

The IMEI code is an unique number like the MAC Adrress for the lan on mobile devices… so in this example i have only putted a TButton on the form and wrote this piece of code that i found on the net:

uses System.IOUtils,IdGlobalProtocols {$IFDEF ANDROID}
  ,FMX.Helpers.Android, Androidapi.JNI.GraphicsContentViewText,
  Androidapi.JNI.Net, Androidapi.JNI.JavaTypes, idUri,Androidapi.IOUtils
{$ENDIF ANDROID}
 {$IFDEF MSWINDOWS }, WinAPI.ShellApi, WinAPI.Windows {$ENDIF}
 {$IFDEF ANDROID} ,Androidapi.JNI.Telephony, Androidapi.JNI.Provider,
  Androidapi.JNIBridge,
  Androidapi.Jni,
  Androidapi.JNI.Dalvik {$ENDIF ANDROID};

procedure TfrmMain.Button1Click(Sender: TObject);
var
  {$IFDEF ANDROID}
  obj: JObject;
  tm: JTelephonyManager;
  {$ENDIF}
  identifier: String;

begin
  {$IFDEF ANDROID}
  obj := SharedActivityContext.getSystemService(TJContext.JavaClass.TELEPHONY_SERVICE);
  if obj <> nil then
  begin
    tm := TJTelephonyManager.Wrap( (obj as ILocalObject).GetObjectID );
    if tm <> nil then
      identifier := JStringToString(tm.getDeviceId);
  end;
  if identifier = '' then
    identifier := JStringToString(TJSettings_Secure.JavaClass.getString(SharedActivity.getContentResolver,TJSettings_Secure.JavaClass.ANDROID_ID));
  {$ENDIF ANDROID}
  ShowMessage(identifier);


end;

1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

17

18

19

20

21

22

23

24

25

26

27

28

29

30

31

32

33

34

uses System.IOUtils,IdGlobalProtocols {$IFDEF ANDROID}

,FMX.Helpers.Android, Androidapi.JNI.GraphicsContentViewText,

Androidapi.JNI.Net, Androidapi.JNI.JavaTypes, idUri,Androidapi.IOUtils

{$ENDIF ANDROID}

{$IFDEF MSWINDOWS }, WinAPI.ShellApi, WinAPI.Windows {$ENDIF}

{$IFDEF ANDROID} ,Androidapi.JNI.Telephony, Androidapi.JNI.Provider,

Androidapi.JNIBridge,

Androidapi.Jni,

Androidapi.JNI.Dalvik {$ENDIF ANDROID};

procedure TfrmMain.Button1Click(Sender: TObject);

var

{$IFDEF ANDROID}

obj: JObject;

tm: JTelephonyManager;

{$ENDIF}

identifier: String;

begin

{$IFDEF ANDROID}

obj := SharedActivityContext.getSystemService(TJContext.JavaClass.TELEPHONY_SERVICE);

if obj <> nil then

begin

tm := TJTelephonyManager.Wrap( (obj as ILocalObject).GetObjectID );

if tm <> nil then

identifier := JStringToString(tm.getDeviceId);

end;

if identifier = '' then

identifier := JStringToString(TJSettings_Secure.JavaClass.getString(SharedActivity.getContentResolver,TJSettings_Secure.JavaClass.ANDROID_ID));

{$ENDIF ANDROID}

ShowMessage(identifier);

end;

Execute or open a file with Delphi on all platforms

per Ivan Revelli
in Articoli, Articoli, Articoli, Articoli, Articoli, Delphi, Programmazione
on Marzo 27, 2014

0

Platform : Delphi XE5 Update 2 Only a function to open file in Windows,Android, Ios…. Windows –> shellExecute Android –> sending an intent to SO Ios –> using NSUrl

uses ...  IdGlobalProtocols,{$IFDEF MSWINDOWS}, WinFolderSelectUtils {$ENDIF}
   {$IFDEF MSWINDOWS }, WinAPI.ShellApi, WinAPI.Windows {$ENDIF}
{$IFDEF ANDROID}
  ,FMX.Helpers.Android, Androidapi.JNI.GraphicsContentViewText,
  Androidapi.JNI.Net, Androidapi.JNI.JavaTypes, idUri,Androidapi.IOUtils
{$ENDIF ANDROID}
{$IFDEF IOS}
  ,iOSapi.Foundation, FMX.Helpers.iOS
{$ENDIF IOS};


function OpenURLorFile(URL: string; const DisplayError: Boolean = False): Boolean;
{$IFDEF MSWINDOWS}
begin
 ShellExecute(0, 'OPEN', PChar(URL), '', '', SW_SHOWNORMAL);
end;


{$ELSE}
{$IFDEF ANDROID}
var
  Intent: JIntent;
  idMimeTable: TIdMimeTable;
begin
// There may be an issue with the geo: prefix and URLEncode.
// will need to research
  if URl.toLower.StartsWith('http://') then
    Begin
      Intent := TJIntent.JavaClass.init(TJIntent.JavaClass.ACTION_VIEW,
      TJnet_Uri.JavaClass.parse(StringToJString(TIdURI.URLEncode(URL))));
    End
  Else
    Begin
     try
       idMimeTable := TidMimeTable.Create;
       Intent := TJIntent.Create;
       Intent.setAction(TJIntent.JavaClass.ACTION_VIEW);
       if not url.ToLower.StartsWith('file://') then
         url := 'file://' + url;
       Intent.setDataAndType(StrToJURI(Url),  StringToJString(idMimeTable.GetFileMIMEType(Url)));

     Finally
       try idMimeTable.Free; except end;
     End;


    End;
  try
    SharedActivity.startActivity(Intent);
    exit(true);
  except
    on e: Exception do
    begin
      if DisplayError then ShowMessage('Error: ' + e.Message);
      exit(false);
    end;
  end;
end;
{$ELSE}
{$IFDEF IOS}
var
  NSU: NSUrl;
begin
  // iOS doesn't like spaces, so URL encode is important.
  NSU := StrToNSUrl(TIdURI.URLEncode(URL));
  if SharedApplication.canOpenURL(NSU) then
    exit(SharedApplication.openUrl(NSU))
  else
  begin
    if DisplayError then
      ShowMessage('Error: Opening "' + URL + '" not supported.');
    exit(false);
  end;
end;
{$ELSE}
begin
  raise Exception.Create('Not supported!');
end;
{$ENDIF IOS}
{$ENDIF ANDROID}
{$ENDIF WINDOWS}

1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

17

18

19

20

21

22

23

24

25

26

27

28

29

30

31

32

33

34

35

36

37

38

39

40

41

42

43

44

45

46

47

48

49

50

51

52

53

54

55

56

57

58

59

60

61

62

63

64

65

66

67

68

69

70

71

72

73

74

75

76

77

78

79

80

81

uses ... IdGlobalProtocols,{$IFDEF MSWINDOWS}, WinFolderSelectUtils {$ENDIF}

{$IFDEF MSWINDOWS }, WinAPI.ShellApi, WinAPI.Windows {$ENDIF}

{$IFDEF ANDROID}

,FMX.Helpers.Android, Androidapi.JNI.GraphicsContentViewText,

Androidapi.JNI.Net, Androidapi.JNI.JavaTypes, idUri,Androidapi.IOUtils

{$ENDIF ANDROID}

{$IFDEF IOS}

,iOSapi.Foundation, FMX.Helpers.iOS

{$ENDIF IOS};

function OpenURLorFile(URL: string; const DisplayError: Boolean = False): Boolean;

{$IFDEF MSWINDOWS}

begin

ShellExecute(0, 'OPEN', PChar(URL), '', '', SW_SHOWNORMAL);

end;

{$ELSE}

{$IFDEF ANDROID}

var

Intent: JIntent;

idMimeTable: TIdMimeTable;

begin

// There may be an issue with the geo: prefix and URLEncode.

// will need to research

if URl.toLower.StartsWith('http://') then

Begin

Intent := TJIntent.JavaClass.init(TJIntent.JavaClass.ACTION_VIEW,

TJnet_Uri.JavaClass.parse(StringToJString(TIdURI.URLEncode(URL))));

End

Else

Begin

try

idMimeTable := TidMimeTable.Create;

Intent := TJIntent.Create;

Intent.setAction(TJIntent.JavaClass.ACTION_VIEW);

if not url.ToLower.StartsWith('file://') then

url := 'file://' + url;

Intent.setDataAndType(StrToJURI(Url), StringToJString(idMimeTable.GetFileMIMEType(Url)));

Finally

try idMimeTable.Free; except end;

End;

try

SharedActivity.startActivity(Intent);

exit(true);

except

on e: Exception do

begin

if DisplayError then ShowMessage('Error: ' + e.Message);

exit(false);

end;

{$ELSE}

{$IFDEF IOS}

var

NSU: NSUrl;

begin

// iOS doesn't like spaces, so URL encode is important.

NSU := StrToNSUrl(TIdURI.URLEncode(URL));

if SharedApplication.canOpenURL(NSU) then

exit(SharedApplication.openUrl(NSU))

else

begin

if DisplayError then

ShowMessage('Error: Opening "' + URL + '" not supported.');

exit(false);

end;

{$ELSE}

begin

raise Exception.Create('Not supported!');

end;

{$ENDIF IOS}

{$ENDIF ANDROID}

{$ENDIF WINDOWS}

Autore: Ivan Revelli

VMWare Palyer disabilitare sospensione automatica

Delphi XE5 – DCC Error E2597 libibtogo.o

Oracle reset user password, lock/unlock user

Accessing The Android API – Brian Long

Retrive the Imei (device identification) from your Android Device with Delphi XE5

Execute or open a file with Delphi on all platforms

Ricerca Articolo

Categorie

Synaptica srl