Android4Pascal: what changed

Revision 3 to 4. Removed lines have a minus sign; added lines have a plus sign.

Old	New		Line
1	1		(Android only)
2	2
3	3		Android4Pascal are the bindings which connect Pascal applications running as executables in Android with the Android Java APIs.
4	4
5	5		## Download
6	6
7	7		### Latest development version
8	8
9	9		- svn co <https://lazarus-ccr.svn.sourceforge.net/svnroot/lazarus-ccr/bindings/android-sdk> android-sdk
10	10		- svn co <https://lazarus-ccr.svn.sourceforge.net/svnroot/lazarus-ccr/examples/androidlcl> androidlcl
11	11
12	12		Changelog:
13	13
14	14		- Added a tool to automatically generate the bindings
15	15		- Added many new APIs (don't remember all of them)
16	16
17	17		### Version 0.3
18	18
19	19		Released June 2011
20	20
21	21		svn co <https://p-tools.svn.sourceforge.net/svnroot/p-tools/systeminfo4android/> systeminfo4android
22	22
23	23		Changelog:
24	24
25	25		- Added support for reading android.util.DisplayMetrics, Activity.getWindowManager, WindowManager.getDefaultDisplay, Display.getMetrics
26	26
27	27		### Version 0.2
28	28
29	29		Released on March 2011
30	30
31	31		This version was distributed as an example project which can be obtained with the following svn command:
32	32
33	33		svn co <https://p-tools.svn.sourceforge.net/svnroot/p-tools/turbochessclock4android/> -r 230 turbochessclock4android
34	34
35	35		#### Android API Hello World in Pascal
36	36
37	37		Here is an example Pascal application written for Android. It shows how to create controls, receive callback events and how to use the timer.
38	38
39	39		The full directory structure can be download with this svn command:
40	40
41		-	~~```~~
	41	+	```text
42	42		svn co https://p-tools.svn.sourceforge.net/svnroot/p-tools/turbochessclock4android turbochessclock4android
43	43		```
44	44
45	45		![](/wiki-images/7/7c/Simple_Android_app.png)
46	46
47	47		Here is the Pascal code from this example:
48	48
49	49		``` pascal
50	50		{
51	51		A simple Chess Clock application
52	52
53	53		Author: Felipe Monteiro de Carvalho - 2011
54	54		License: Public Domain
55	55		}
56	56		program turbochessclock4android;
57	57
58	58		{$mode objfpc}{$H+}
59	59
60	60		uses
61	61		Classes, SysUtils, androidpipescomm, androidview, javalang,
62	62		androidapp, androidtimer, androidutil;
63	63
64	64		type
65	65		TEventHandler = class
66	66		public
67	67		procedure HandleOnTimer(ASender: TObject);
68	68		procedure buttonStartClickCallback(v: TView);
69	69		procedure buttonMoveClickCallback(v: TView);
70	70		end;
71	71
72	72		var
73	73		layout: TLinearLayout;
74	74		params: TLayoutParams;
75	75		tv, black_label, white_label: TTextView;
76	76		scroller: TScrollView;
77	77		btn_move, btn_start: TButton;
78	78		tp: TTimePicker;
79	79		WhiteTimeCount: Integer = 0;
80	80		BlackTimeCount: Integer = 0;
81	81		MyTimer: TAndroidTimer;
82	82		MyEventHandler: TEventHandler;
83	83		IsWhitePlayerMove: Boolean = True;
84	84
85	85		procedure TEventHandler.buttonStartClickCallback(v: TView);
86	86		begin
87	87		black_label.setVisibility(VISIBLE);
88	88		white_label.setVisibility(VISIBLE);
89	89		btn_move.setVisibility(VISIBLE);
90	90		//
91	91		WhiteTimeCount := tp.getCurrentHour() * 60 * 60 + tp.getCurrentMinute() * 60;
92	92		BlackTimeCount := WhiteTimeCount;
93	93		//
94	94		MyTimer.removeCallbacks();
95	95		MyTimer.postDelayed(100);
96	96		end;
97	97
98	98		procedure TEventHandler.buttonMoveClickCallback(v: TView);
99	99		begin
100	100		IsWhitePlayerMove := not IsWhitePlayerMove;
101	101		end;
102	102
103	103		procedure TEventHandler.HandleOnTimer(ASender: TObject);
104	104		var
105	105		lSeconds, lMinutes, lHours: Integer;
106	106		begin
107	107		if IsWhitePlayerMove then
108	108		begin
109	109		lSeconds := WhiteTimeCount mod 60;
110	110		lMinutes := (WhiteTimeCount mod (60 * 60)) div 60;
111	111		lHours := WhiteTimeCount div (60 * 60);
112	112		white_label.setText(Format('White %d:%d:%d', [lHours, lMinutes, lSeconds]));
113	113		//
114	114		if WhiteTimeCount = 0 then Exit;
115	115		Dec(WhiteTimeCount);
116	116		end
117	117		else
118	118		begin
119	119		lSeconds := BlackTimeCount mod 60;
120	120		lMinutes := (BlackTimeCount mod (60 * 60)) div 60;
121	121		lHours := BlackTimeCount div (60 * 60);
122	122		black_label.setText(Format('Black %d:%d:%d', [lHours, lMinutes, lSeconds]));
123	123		//
124	124		if BlackTimeCount = 0 then Exit;
125	125		Dec(BlackTimeCount);
126	126		end;
127	127		//
128	128		MyTimer.removeCallbacks();
129	129		// Note that this has a low precision, but it enough for this simple app
130	130		// A more precise app would keep another time count instead of just using Dec
131	131		// at each timer call
132	132		MyTimer.postDelayed(1000);
133	133		end;
134	134
135	135		begin
136	136		// Here add any initialization.
137	137		// Any initialization code will be run inside Activity.onCreate,
138	138		// so keep it as short as possible!
139	139		// It should mostly contain GUI initialization
140	140		// User interface
141	141		MyEventHandler := TEventHandler.Create;
142	142
143	143		// Prepares the UI of the program
144	144		layout := TLinearLayout.Create;
145	145		params := TLayoutParams.Create(androidview.FILL_PARENT, androidview.FILL_PARENT);
146	146		layout.setLayoutParams(params);
147	147		params.Free;
148	148		layout.setOrientation(androidview.VERTICAL);
149	149
150	150		// Game UI
151	151
152	152		black_label := TTextView.Create;
153	153		black_label.setText('Black time:');
154	154		black_label.setVisibility(GONE);
155	155		black_label.setTextSize(COMPLEX_UNIT_PX, 40);
156	156		layout.addView(black_label);
157	157
158	158		white_label := TTextView.Create;
159	159		white_label.setText('White time:');
160	160		white_label.setVisibility(GONE);
161	161		white_label.setTextSize(COMPLEX_UNIT_PX, 40);
162	162		layout.addView(white_label);
163	163
164	164		btn_move := TButton.Create;
165	165		btn_move.setText('Move finished!');
166	166		btn_move.setOnClickListener(@MyEventHandler.buttonMoveClickCallback);
167	167		btn_move.setVisibility(GONE);
168	168		layout.addView(btn_move);
169	169
170	170		// Config UI
171	171
172	172		tv := TTextView.Create;
173	173		tv.setText('Please select how much to give to the players and press "Start Game":');
174	174		layout.addView(tv);
175	175
176	176		tp := TTimePicker.Create;
177	177		tp.setIs24HourView(True);
178	178		tp.setCurrentHour(0);
179	179		tp.setCurrentMinute(30);
180	180		layout.addView(tp);
181	181
182	182		btn_start := TButton.Create;
183	183		btn_start.setText('Start game!');
184	184		btn_start.setOnClickListener(@MyEventHandler.buttonStartClickCallback);
185	185		layout.addView(btn_start);
186	186
187	187		// And also allow the user to scroll the UI if it is larger then the screen width
188	188		// Scrolling takes place only horizontally
189	189
190	190		scroller := TScrollView.Create;
191	191		scroller.addView(layout);
192	192
193	193		Activity.setContentView(scroller);
194	194
195	195		MyTimer := TAndroidTimer.Create;
196	196		MyTimer.OnTimer := @MyEventHandler.HandleOnTimer;
197	197
198	198		// Now tell Java that the initialization has finished
199	199		vAndroidPipesComm.onCreateFinished();
200	200		// Here you can add any other initialization,
201	201		// specially non-GUI code
202	202
203	203		// Now we block our execution waiting for callbacks from Java
204	204		vAndroidPipesComm.MessageLoop();
205	205		end.
206	206		```
207	207
208	208		##### Compiling the example project in Linux
209	209
210	210		1\> Get a working arm-linux cross-compiler which generates ARMv5 eabi with softfloat (as many phones like HTC Wildfire have no FPU)
211	211
212	212		To do this one can download an unofficial build of FPC 2.5.1 from here:
213	213
214	214		<http://sourceforge.net/projects/p-tools/files/Free%20Pascal%20for%20ARM/> Compiled for ARMv5 eabi with softfloat.
215	215
216	216		Or an older FPC 2.4.2
217	217
218	218		<http://members.yline.com/~tom_at_work/fpc-2.4.2.UNOFFICIAL.arm-linux.tar> Compiled for ARMv5 eabi with softfloat.
219	219
220	220		Or build your own. There are instructions here: [[Setup Cross Compile For ARM]]
221	221
222	222		2\> Install the Android SDK. Instructions here: [[Android Interface/Using the Android SDK, Emulator and Phones\|Android_Interface/Using_the_Android_SDK%2C_Emulator_and_Phones#Using_the_Android_SDK]]
223	223
224	224		3\> Install ant, for example in Mandriva Linux:
225	225
226		-	~~```~~
	226	+	```text
227	227		urpmi ant
228	228		```
229	229
230	230		4\> Open the project turbochessclock/turbochessclock4android.lpi in Lazarus and build it
231	231
232	232		5\> Build the APK file in debug mode
233	233
234		-	~~```~~
	234	+	```text
235	235		ant debug
236	236		```
237	237
238	238		6\> Connect your phone and make sure you can connect to it via ADB. More info here: [[Android Interface/Using the Android SDK, Emulator and Phones\|Android_Interface/Using_the_Android_SDK%2C_Emulator_and_Phones#Recognition_of_devices_under_Linux]]
239	239
240	240		7\> Install the APK file in your phone via ADB or whatever other method you prefer:
241	241
242		-	~~```~~
	242	+	```text
243	243		../android-sdk-linux_x86/tools/adb install android/bin/TurboChessClock4Android-debug.apk
244	244		```
245	245
246	246		If the package is already installed you need need to do this instead:
247	247
248		-	~~```~~
	248	+	```text
249	249		../android-sdk-linux_x86/tools/adb uninstall com.pascal.turbochessclock
250	250		../android-sdk-linux_x86/tools/adb install android/bin/TurboChessClock4Android-debug.apk
251	251		```
252	252
253	253		### Version 0.1
254	254
255	255		Released on January 2011
256	256
257	257		This version was distributed as an example project which can be obtained with the following svn command:
258	258
259	259		svn co <https://p-tools.svn.sourceforge.net/svnroot/PascalNotes4Android/> -r 230 PascalNotes4Android
260	260
261	261		## See also
262	262
263	263		- [[Android Interface/Native Android GUI]]
264	264		- [[Android Programming]]
265	265
266	266		---
267	267		From the Free Pascal wiki, page "Android4Pascal", as it stood on 2020-02-09 after a change by GAN, out of the wiki's dump of 2024-05-26. Copyright stays with the author who wrote it, according to the old wiki's [[Licensing]] page. If you have concerns about this material, [message the admin](/wiki-contact).
268	268		Category: Android

Back to history