DelphiWorlds DelphiWorlds
DelphiWorlds
/ GetLocalAddressList.pas
Last active
June 5, 2017 11:24
Substitute for TIdStackVCLPosix.GetLocalAddressList
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| interface | |
| uses | |
| IdStack; | |
| procedure GetLocalAddressList(const AAddresses: TIdStackLocalAddressList); | |
| implementation | |
| uses |
DelphiWorlds
/ TryFinallySafety.pas
Created
February 6, 2018 23:03
Distinction between causing and raising an exception, and try..finally safety
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| type | |
| TSomeObject = class(TObject) | |
| public | |
| procedure DoSomething; | |
| end; | |
| TFaultyObject = class(TObject) | |
| private | |
| FStrings: TStrings; | |
| public |
DelphiWorlds
/ FrameworkInputPaneHandler.pas
Last active
January 21, 2019 03:42
Work in progress to handle when the Windows 10 OSK shows/hides
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| unit FrameworkInputPaneHandler; | |
| interface | |
| uses | |
| System.Win.ComObj, | |
| Winapi.Windows; | |
| // https://github.com/tpn/winsdk-10/blob/master/Include/10.0.10240.0/um/ShObjIdl.idl | |
| const |
DelphiWorlds
/ EnumNetPrinters.pas
Last active
January 21, 2019 03:40
Enumerating network printers in Windows
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| type | |
| TNetResourceArray = TArray<TNetResource>; | |
| function EnumerateContainedPrinters(const AContainer: TNetResource): TNetResourceArray; | |
| var | |
| LResult, LBufferSize: DWORD; | |
| LEnumHandle: THandle; | |
| LNetResources: TNetResourceArray; | |
| I: Integer; | |
| LEntries : Longint; |
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| type | |
| StringList = TArray<string>; | |
| StringListHelper = record helper for StringList | |
| public | |
| procedure Add(const AValue: string); | |
| end; | |
| { StringListHelper } |
DelphiWorlds
/ SendBroadcastExplicitIntent.pas
Created
December 30, 2019 07:17
Delphi equivalent for appSendBroadcast here: https://github.com/SteveCorbett/DelphiAndroidIntents/blob/master/Android/delphiintents/src/main/java/au/com/corbtech/delphiintents/SendIntent.java
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| uses | |
| Androidapi.JNI.GraphicsContentViewText, Androidapi.JNI.Os, Androidapi.JNI.JavaTypes, Androidapi.Helpers; | |
| procedure SendBroadcast(const AIntent: JIntent); | |
| var | |
| LResolveInfoList: JList; | |
| LResolveInfo: JResolveInfo; | |
| LComponentName: JComponentName; | |
| LExplicitIntent: JIntent; | |
| I: Integer; |
DelphiWorlds
/ FormHelperInterface.pas
Created
January 21, 2020 22:28
Implementing an interface via a helper
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| 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; | |
| type | |
| ITest = interface(IInterface) |
DelphiWorlds
/ RequestCallPhonePermission.pas
Created
March 25, 2020 21:18
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| uses | |
| System.Permissions; | |
| procedure TForm1.RequestCallPhonePermission; | |
| begin | |
| PermissionsService.RequestPermissions(['android.permission.CALL_PHONE'], | |
| procedure(const APermissions: TArray<string>; const AGrantResults: TArray<TPermissionStatus>) | |
| begin | |
| if AGrantResults[0] = TPermissionStatus.Granted then | |
| // Permission has been granted |
DelphiWorlds
/ AvailMem.pas
Created
April 24, 2020 22:37
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| uses | |
| Androidapi.JNI.App, Androidapi.Helpers, Androidapi.JNI.GraphicsContentViewText; | |
| // Available memory in MB | |
| function GetMemory: Int64; | |
| var | |
| LMemoryInfo: JActivityManager_MemoryInfo; | |
| LActivityManager: JActivityManager; | |
| begin | |
| LActivityManager := TJActivityManager.Wrap(JObjectToID(TAndroidHelper.Context.getSystemService(TJActivity.JavaClass.ACTIVITY_SERVICE))); |
DelphiWorlds
/ AndroidWebBrowserClearHistory.pas
Created
May 11, 2020 23:51
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| uses | |
| Androidapi.JNI.WebKit; | |
| procedure TForm1.Button1Click(Sender: TObject); | |
| var | |
| LWebView: JWebView; | |
| begin | |
| if Supports(WebBrowser1, JWebView, LWebView) then | |
| LWebView.clearHistory; | |
| end; |
OlderNewer