DelphiWorlds’s gists

DelphiWorlds / ThemeChange.pas

Created June 27, 2024 12:50

Example of handling theme changes on mobile

	unit Unit1;

	interface

	uses
	System.SysUtils, System.Types, System.UITypes, System.Classes, System.Variants, System.Messaging,
	FMX.Types, FMX.Controls, FMX.Forms, FMX.Graphics, FMX.Dialogs, FMX.Controls.Presentation, FMX.StdCtrls, FMX.Platform;

	type
	TForm1 = class(TForm)

DelphiWorlds / Unit1.pas

Created June 12, 2024 10:46

Check Bluetooth state on iOS

	unit Unit1;

	interface

	uses
	System.SysUtils, System.Types, System.UITypes, System.Classes, System.Variants,
	FMX.Types, FMX.Controls, FMX.Forms, FMX.Graphics, FMX.Dialogs, FMX.Controls.Presentation, FMX.StdCtrls,
	Macapi.ObjectiveC, Macapi.Bluetooth,
	iOSapi.Foundation, iOSapi.CocoaTypes;

DelphiWorlds / GetTwitterOAuth2Token.pas

Created October 16, 2023 05:54

Get OAuth2 Access Token from Twitter

	const
	cAuth = 'YourKeyAndSecret';

	procedure TForm1.Button1Click(Sender: TObject);
	var
	LHTTP: THTTPClient;
	LResponse: IHTTPResponse;
	LContent: TStream;
	LBase64: TBase64Encoding;
	begin

DelphiWorlds / AndroidLog.pas

Created July 30, 2023 00:00

Using the Util.Log class from Android to emit log statements

	uses
	Androidapi.JNIBridge, Androidapi.JNI.JavaTypes, Androidapi.Helpers;

	type
	Jutil_LogClass = interface(JObjectClass)
	['{62108FE8-1DBB-4C4F-A0C7-35D12BD116DC}']
	{class} function _GetASSERT: Integer; cdecl;
	{class} function _GetDEBUG: Integer; cdecl;
	{class} function _GetERROR: Integer; cdecl;
	{class} function _GetINFO: Integer; cdecl;

DelphiWorlds / Codex.Wizard.Android.Java2OPProcess.pas

Created March 25, 2023 22:33

Source used in Codex for executing Java2OP and perform post-processing

	unit Codex.Wizard.Android.Java2OPProcess;

	interface

	uses
	System.Classes,
	DW.RunProcess.Win;

	type
	TPostProcessState = (None, UnitStart, ForwardDeclarations, ClassDeclaration, InstanceDeclaration, ImplementationSection, IgnoreDeclaration, UnitEnd);

DelphiWorlds / Codex.Wizard.Android.CreateJarProcess.pas

Created March 25, 2023 22:30

Source used in Codex for building a jar from Java source

	unit Codex.Wizard.Android.CreateJarProcess;

	interface

	uses
	System.Classes,
	DW.RunProcess.Win;

	type
	TJarProcessStep = (None, BuildJava, BuildJar, DexJar);

DelphiWorlds / ShakeExample.pas

Created September 22, 2022 22:45

Example of how to implement iOS shake gesture in Delphi

	unit Unit1;

	// Form just has a button and a label on it

	interface

	uses
	System.SysUtils, System.Types, System.UITypes, System.Classes, System.Variants,
	FMX.Types, FMX.Controls, FMX.Forms, FMX.Graphics, FMX.Dialogs, FMX.StdCtrls, FMX.Controls.Presentation,
	System.TypInfo,

DelphiWorlds / HideMapToolbar.pas

Created August 12, 2022 07:32

How to hide the toolbar in TMapView

	uses
	Androidapi.JNI.PlayServices.Maps;

	procedure TForm1.FormCreate(Sender: TObject);
	var
	LMap: JGoogleMap;
	begin
	if Supports(MapView1, JGoogleMap, LMap) then
	LMap.getUiSettings.setMapToolbarEnabled(False);
	end;

DelphiWorlds / PublicIP.pas

Created August 7, 2022 22:43

Get public IP address using IPify

	// Inspired by:
	// https://en.delphipraxis.net/topic/7258-printer-ip/?do=findComment&comment=61498
	//
	// Implemented in the simplest way I could think of that is also practical
	// Note: This was thrown together in a few minutes, so please take care. Saving it as a Gist for posterity

	uses
	System.Net.HttpClient, System.JSON;

	const

DelphiWorlds / DW.Multipeer.Mac.pas

Last active July 31, 2022 20:15

Work in progress implementation of multipeer connectivity for iOS and macOS

DelphiWorlds DelphiWorlds