Просмотр поста

# aNNiMON (21.11.2016 / 14:59)
muhago97, Ну вот там

TS := TStringList.Create;
TS.Delimiter := ' ';
TS.DelimitedText := Wsocket1.ReceiveStr;
Memo1.Lines.add(UTF8DECODE(TS.DelimitedText));
try
if TS[0] = 'HAAAPSI' then

$fsock = fsockopen("galaxy.mobstudio.ru", "6667");
        $exp = explode(' ', fread($fsock, 1024));
$out = substr($file, -10);
        echo 'HAAAPSI: '.$exp[1].', hash: '.$out.'..<br />';