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


Nabízíme Delphi školení na různá témata, primárně ve Vaší firmě.

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

Partial English version.

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 nebo burzy práce).

Pokud chcete podpořit tento server libovolnou částkou, můžete použít PayPal. Moc děkuji.

Delphi Certified Developer

O Delphi.cz

Delphi je jediný moderní RAD nástroj podporující tvorbu nativních aplikací pro platformu Win32, Win64 , Mac OSX a na iPhone a Android (s výhledem na další platformy díky FireMonkey) na současném trhu (včetně Windows 8.1).

V současnosti je světová komunita přes dva miliónů vývojářů.

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.

Anketa

Poslední komentáře

Comment RSS