freeonterminate

(*
 * WebBrowserHelper
 *   WebBrowser Utility
 *
 * Copyright (c) 2015 HOSOKAWA Jun.
 *
 * CONTACT
 *   Twitter @pik or [email protected]
 *
 * LAST UPDATE

freeonterminate

(*
 * ExeName method is added to TApplication.
 *
 * Made by HOSOKAWA Jun.
 *
 * CONTACT
 *   Twitter @pik or [email protected]
 *
 * LAST UPDATE
 *   2015/12/15  First Release

freeonterminate

(*
 * Get File Size
 *
 * Copyright (c) 2015, 2016 HOSOKAWA Jun.
 *
 * CONTACT
 *   Twitter @pik or [email protected]
 *
 * LAST UPDATE
 *   2016/03/30  Delete warning 

freeonterminate

unit uFileStreamFixForAndroid4;

interface

uses
  System.Classes
  , System.SysUtils
  ;

type

freeonterminate

(*
 * Easy Downloader
 *
 * Copyright (c) 2015, 2017 HOSOKAWA Jun.
 *
 * CONTACT
 *   Twitter @pik or [email protected]
 *
 * LAST UPDATE
 *   2017/12/05  Remove iPort parameter

freeonterminate

unit uIOSUtils;

interface

uses
  System.UITypes;

procedure SetStatusBarColor(const iColor: TAlphaColor);

implementation

freeonterminate

function IsATOK: Boolean;
var
  Name: JString;
begin
  Result := False;

  Name :=
    TJSettings_Secure.JavaClass.getString(
      TAndroidHelper.Context.getContentResolver(),
      TJSettings_Secure.JavaClass.DEFAULT_INPUT_METHOD);

freeonterminate

program プログラム;

uses
  System.SysUtils
  {$IFDEF ANDROID}
  , Androidapi.JniBridge
  {$ELSEIF IOS}
  , iOSapi.Foundation
  {$ENDIF}
  ;

freeonterminate

{$WARNINGS OFF}
begin
  (procedure(F: array of const)begin end)([

    // 定番のやつ
    (function(const Count: Integer): Integer
      begin
        for Result := 0 to Count - 1 do
          Writeln('Good-bye, semicolon world !')
      end

freeonterminate

(*
 * 概要  Base64 エンコード
 * 引数  iSrc       エンコードしたいストリーム
 *       iDest      エンコード結果格納先
 *       iSepCount  セパレータを入れる場所(32 なら 32 個エンコードした所で入る)
 *       iSep       セパレータ
 *)
procedure EncodeBase64(
  const iSrc, iDest: TStream;
  iSepCount: Integer = 0;