{hint: Pascal files location: ...\AppTFPHTTPClientDemo1\jni }
unit unit1;
{$mode delphi}
interface
uses
{$IFDEF UNIX}{$IFDEF UseCThreads}
cthreads,
{$ENDIF}{$ENDIF}
Classes, SysUtils, AndroidWidget, Laz_And_Controls,
fphttpclient,
httpdefs,
httpprotocol,
//opensslsockets,
openssl, Sockets,
netdb;
type
{ TAndroidModule1 }
TAndroidModule1 = class(jForm)
jButton1: jButton;
procedure jButton1Click(Sender: TObject);
private
{private declarations}
public
{public declarations}
end;
var
AndroidModule1: TAndroidModule1;
implementation
{$R *.lfm}
{ TAndroidModule1 }
//C:\laz4android2.0.0\fpc\3.0.4\source\packages\fcl-web\src\base <--- (-Fu)
procedure TAndroidModule1.jButton1Click(Sender: TObject);
var
c:TFPHTTPClient;
r:RawByteString='';
begin
SetLength(DNSServers, 2);
DNSServers[0]:=StrToNetAddr('8.8.8.8');
DNSServers[1]:=StrToNetAddr('8.8.4.4');
ShowMessage('InitSSLInterface: ' + InitSSLInterface.ToString(TUseBoolStrs.True));
ShowMessage('IsSSLloaded: ' + IsSSLloaded.ToString(TUseBoolStrs.True));
c:=TFPHTTPClient.Create(nil);
try
c.AllowRedirect:=True;
//c.ConnectTimeout:=3000;
try
r:=c.Get('https://www.google.com');
ShowMessage('Response Length: '+IntToStr(Length(r))); // NOT CALLED !!!
except
on e:exception do LogDebug('LAMW',e.ClassName+':'+e.Message);
end;
finally
c.Free;
end;
end;
end.