Добрый день, сделал скрипт на 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 я не знаю как сделать тоже самое только на этом языке.
Моя наработка которая выдает ахинею:
Код:
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...