FINÁLNÍ VÝPRODEJ KREDITŮ na ITnetwork je tady. Využij
poslední šanci a získej až 80 % extra kreditů
ZDARMA na náš interaktivní e-learning. Zjisti
více:
with THTTPSend.Create dotry
If HTTPMethod('GET', 'http://84.47.113.9:4022/udp/234.1.1.54:1234') then
if ResultCode = 200 then Document.SaveToFile('.\soubor');
finally
Free;
end;
var
sl: TStringList;
begin
ifnot HttpGetText('http://84.47.113.9:4022/udp/234.1.1.54:1234', sl) then
ShowMessage('Nepodařilo se');
end;
Děláme co je v našich silách, aby byly zdejší diskuze co nejkvalitnější. Proto do nich také mohou přispívat pouze registrovaní členové. Pro zapojení do diskuze se přihlas. Pokud ještě nemáš účet, zaregistruj se, je to zdarma.
