vložil Radek Červinka
9. dubna 2015 22:29
Integrovaný HTTP(s) klient
Podle mne těžce inspirovaný .NET, https bez OpenSSL.
implementation
uses
System.Net.httpclient,System.Net.URLClient;
{$R *.dfm}
procedure TForm7.Button1Click(Sender: TObject);
var
o: THTTPClient;
response: IHTTPResponse;
r: TNameValuePair;
begin
o := THTTPClient.Create;
try
response:=o.Get('https://www.google.com/');
for r in response.Headers do
memo1.Lines.Add(r.Name + '='+r.Value);
Memo1.Lines.Add(response.ContentAsString);
finally
o.Free;
end;
end;
No synapse to není, ale je to integrované v RTL a něco to umí. Více snad později.
FMX desktop WebBrowser
FireMonkey konečně obsahuje WebBrowser pro desktop platformy.


Něco z Winapi.Windows.pas
Windows.pas bylo upraveno a prakticky všechny deklarace obsahují variabilní jméno DLL.
const
{$IF Defined(NEXTGEN) and Declared(System.Embedded)}
advapi32kernel = 'kernelbase.dll';
advapi32legacy = 'advapi32legacy.dll';
{$ELSE}
advapi32kernel = 'advapi32.dll';
advapi32legacy = 'advapi32.dll';
{$ENDIF}
advapi32 = 'advapi32.dll';
kernel32 = 'kernel32.dll';
{$IF Defined(NEXTGEN) and Declared(System.Embedded)}
kernelbase = 'kernelbase.dll';
{$ELSE}
kernelbase = 'kernel32.dll';
{$ENDIF}
Googlil jsem co to je advapi32legacy.dll a kde je to dostupné.