Добрый день, сделал скрипт на php для проверки информации. Все работает, данные добавляется в массив.
PHP код:
$fp = @fsockopen("udp://ru5-dayz.myfabis.ru", 2302, $errno, $errstr, 1);
fwrite($fp, "\xFE\xFD\x00\x21\x21\x21\x21\xFF\x00\x00\x00");
$buffer = fread($fp, 4096);
$buffer = substr($buffer, 5, -2);
if (!$buffer) { return FALSE; };
$item = explode("\x00", $buffer);
var_dump($item);
Но так как я всего пару дней работаю в среде Delphi я не знаю как сделать тоже самое только на этом языке.
Моя наработка которая выдает ахинею:
Код:
1 2 3 4 5 6 7 8 | UdpSocket1 . BlockMode := bmNonBlocking;
UdpSocket1 . RemoteHost := 'ru5-dayz.myfabis.ru' ;
UdpSocket1 . RemotePort := '2302' ;
UdpSocket1 . Active:= true ;
UdpSocket1 . Open;
UdpSocket1 . ReceiveBuf(tempS, sizeof(tempS));
for i:= 0 to sizeof(tempS) do
Memo1 . Text:=Memo1 . Text+tempS[i];
|
Помогите написать тоже самое что на php, только на языке delphi...