Android 4.x で THttpClient.Get の引数に TFileStream を使うと動作しない件の修正ユニット

uFileStreamFixForAndroid4.pas

unit uFileStreamFixForAndroid4;

interface

uses
  System.Classes
  , System.SysUtils
  ;

type
  TFileStream = class(System.Classes.TFileStream)
  public
    function Write(
      const Buffer: TBytes;
      Offset, Count: Integer): Longint; override;
  end;

implementation

{ TFileStream }

function TFileStream.Write(
  const Buffer: TBytes;
  Offset, Count: Integer): Longint;
begin
  Result := FileWrite(Handle, Buffer[Offset], Count);
end;

end.