Pár utržků kódu k XE8

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.

FireMonkey TWebBrowser

FireMonkey TWebBrowser

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é.

Tagy: ,

Novinky v Delphi | Praxe

Komentáře

13.4.2015 0:24:58 #

Martin Dráb

> Googlil jsem co to je advapi32legacy.dll a kde je to dostupné.

Nevím, zda tato věta má znamenat, zda jste našel či nenašel. Nemám teď u sebe svoje Intel Galileo Gen2, na kterém aktuálně běží Windows for IoT. Jedná se o VELMI ořezanou verzi Windows bez GUI (nějaké GUI knihovny typu user32.dll existují, ale jsou naprosto vykradené, stejně jako mnoho dalších). Zatím je to podle mě ve fázi zajímavého pokusu. Myslím, že jsem tam ale na advapi32legacy.dll narazil.

Možná se ale ta knihovna bude vyskytovat i na jiných verzíczh Windows.

Martin Dráb

Komentování ukončeno

Naše nabídka

MVP
Ing. Radek Červinka - Embarcadero MVP
profil na linkedin, Twitter:@delphicz

Nabízím placené poradenství a konzultace v oblasti programování a vývoje SW.
Dále nabízíme i vývoj speciálního software na zakázku.

Neváhejte nás kontaktovat (i ohledně reklamy).

love Delphi

O Delphi.cz

Delphi je moderní RAD nástroj podporující tvorbu nativních aplikací pro platformu Win32, Win64, Mac OSX, Linux a na iPhone a Android.

Delphi.cz je nezávislý portál pro uživatele Delphi. Portál není koncipován pro úplné začátečníky, i když i ti se zde nebudou nudit, ale spíše na programátory, kteří již něco znají a chtějí své znalosti dále rozvíjet a sledovat novinky.

Poslední komentáře

Comment RSS

Dle měsíců