[makar3000]

Добрый день, сделал скрипт на 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...