Blog

Send android application in background

by Ivan Revelli
in Posts
on February 14, 2015

0

To send in background your Delphi application on Android you can simply call the moveTasktoBackGround method of the mainActivity class defined in the FMX.Platform.Android library. To do this task during the application startup phase on the main form we suggest to use a timer object so that the main form can completely render before going…
Read more

A beautiful app to manage cameras for Android built with Firemonkey

by federico
in Posts
on February 1, 2015

0

available on Play Store at this link

synUPtica

by Ivan Revelli
in Posts
on January 30, 2015

0

grande affidabilità del’infrastruttura synatica 🙂

Delphi XE5 – Share JCalendar Event on Android

by Ivan Revelli
in Posts
on October 3, 2014

0

 {$IFDEF ANDROID},Androidapi.JNI.GraphicsContentViewText,
  FMX.Helpers.Android, IdURI,
  Androidapi.JNI.JavaTypes, Androidapi.Jni.Net,
  Androidapi.JNIBridge {$ENDIF};

1

2

3

4

{$IFDEF ANDROID},Androidapi.JNI.GraphicsContentViewText,

FMX.Helpers.Android, IdURI,

Androidapi.JNI.JavaTypes, Androidapi.Jni.Net,

Androidapi.JNIBridge {$ENDIF};

The Java TimeInMills is similar to UnixTime but is in Millisenconds, so to convert it :

JavaTimeinMills := DateUtils.DateTimeToUnix(now) * 1000;

1	JavaTimeinMills := DateUtils.DateTimeToUnix(now) * 1000;

procedure TfrmTimeDetail.btnShareClick(Sender: TObject);
{$IFDEF ANDROID}
var
  Intent: JIntent;
  CalendarIni: JCalendar;
  Uri : string;
begin
  Uri      := 'content://com.android.calendar/events';
Intent := TJIntent.JavaClass.init(TJIntent.JavaClass.ACTION_EDIT,
TJnet_Uri.JavaClass.parse(StringToJString(TIdURI.URLEncode(uri))));

//Intent.setType(StringToJString('vnd.android.cursor.item/event'));
intent.putExtra(StringToJString('beginTime'), DateTimeToUnix( (clDay.Date + teTimeDal.Time)) * 1000 );
intent.putExtra(StringToJString('allDay'), false);
intent.putExtra(StringToJString('rrule'), StringToJString('FREQ=YEARLY'));
intent.putExtra(StringToJString('endTime'), DateTimeToUnix( (clDay.Date + teTimeAl.Time)) * 1000 );
intent.putExtra(StringToJString('title'), StringToJString(edCommessa.Text));
intent.putExtra(StringToJString('description'), StringToJString(Memo1.Text));
SharedActivity.startActivity(Intent);
end;

1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

17

18

19

20

procedure TfrmTimeDetail.btnShareClick(Sender: TObject);

{$IFDEF ANDROID}

var

Intent: JIntent;

CalendarIni: JCalendar;

Uri : string;

begin

Uri := 'content://com.android.calendar/events';

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

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

//Intent.setType(StringToJString('vnd.android.cursor.item/event'));

intent.putExtra(StringToJString('beginTime'), DateTimeToUnix( (clDay.Date + teTimeDal.Time)) * 1000 );

intent.putExtra(StringToJString('allDay'), false);

intent.putExtra(StringToJString('rrule'), StringToJString('FREQ=YEARLY'));

intent.putExtra(StringToJString('endTime'), DateTimeToUnix( (clDay.Date + teTimeAl.Time)) * 1000 );

intent.putExtra(StringToJString('title'), StringToJString(edCommessa.Text));

intent.putExtra(StringToJString('description'), StringToJString(Memo1.Text));

SharedActivity.startActivity(Intent);

end;

Etabula promo video

by Ivan Revelli
in Posts
on May 22, 2014

0

Hi, this is the youtube promo video of our Android App Etabula! Enjoy! For information info@etabula.it

Delphi – Indy idTCPServer and idTCPClient

by Ivan Revelli
in Delphi, Posts
on April 19, 2011

0

This is a simple example for usign Nevrona Indy components in Delphi to create a small server application using TCP/IP protocol. TO simplify we can build an example where there is a Server Application that recive a string from a Client App. and then return that string to the Client , but we use streams…
Read more