Переделать код - Работа с сетью в Delphi

Hepri · 20.08.2009, 19:41

Подскажите как этот php код реализовать в delphi

PHP код:


			
<?php

if (!IsSet($ip)) die('static.82.44.40.188.clients.your-server.de');

if (!IsSet($port)) $port=7777;

$fs=@fsockopen($ip,$port) or die('Sock ERROR');

$pck=pack("vCi",6,0,-3);

fwrite($fs,$pck);

$r=fread($fs,73);

fclose($fs);

$a=unpack("vsize/Cid/iworld/imax/icurrent/iplaying/istore",$r);

echo "SYS: current({$a[current]}), playing({$a[playing]}), private store({$a[store]}), max({$a[max]})\n";

?>

Altera · 20.08.2009, 20:06

Ну, это не совсем так будет выглядеть как в браузере.
Ну, объявите в дельфи нужные функции и переменные.
IsSet, такой функции в Delphi нету.

Hepri · 20.08.2009, 20:14

дак вот я и не знаю как это сделать... через Сокеты или инди? или ещё как

Hepri · 20.08.2009, 20:28

Как сделать тот же pack() в delphi?

20.08.2009, 19:41	#1
Hepri Регистрация: 20.08.2009 Сообщений: 3	Переделать код Подскажите как этот php код реализовать в delphi PHP код: `<?php if (!IsSet($ip)) die('static.82.44.40.188.clients.your-server.de'); if (!IsSet($port)) $port=7777; $fs=@fsockopen($ip,$port) or die('Sock ERROR'); $pck=pack("vCi",6,0,-3); fwrite($fs,$pck); $r=fread($fs,73); fclose($fs); $a=unpack("vsize/Cid/iworld/imax/icurrent/iplaying/istore",$r); echo "SYS: current({$a[current]}), playing({$a[playing]}), private store({$a[store]}), max({$a[max]})\n"; ?>`

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
Помогите переделать код С++ в Delphi (CRC)	Georgios	Помощь студентам	2	22.07.2009 13:28
Код игры на Паскале и на Делфи сильно отличается? Как переписать код с Паскаля в Делфи?	Mclaren	Помощь студентам	2	27.04.2009 22:37
Помогите переделать код	stayer	Общие вопросы Delphi	3	25.10.2008 21:09
Переделать процедуру	AidarBik	Общие вопросы Delphi	12	22.05.2008 14:59
Нужно переделать код с Delphi на C++ Builder	POPOV	Помощь студентам	2	12.11.2007 22:51

20.08.2009, 20:06	#2
Altera Старожил Регистрация: 29.01.2008 Сообщений: 2,406	Ну, это не совсем так будет выглядеть как в браузере. Ну, объявите в дельфи нужные функции и переменные. IsSet, такой функции в Delphi нету.

20.08.2009, 20:14	#3
Hepri Регистрация: 20.08.2009 Сообщений: 3	дак вот я и не знаю как это сделать... через Сокеты или инди? или ещё как

20.08.2009, 20:28	#4
Hepri Регистрация: 20.08.2009 Сообщений: 3	Как сделать тот же pack() в delphi?