Как написать на Delphi?

← →
Pok (2006-12-08 21:15) [0]

Вот код на PHP, а как бы он выглядел на Delphi?

$packet .= chr($port & 0xFF);
$packet .= chr($port >> 8 & 0xFF);

Т.е. надо "packet:=packet+..."

Подскажите, пожалуйста.

← →
Pavia © (2006-12-08 21:23) [1]

packet:=packet+char(port and $FF);
packet:=packet+char(port shr 8 and $FF);

← →
Pok (2006-12-08 21:29) [2]

Спасибо!

← →
Pok (2006-12-08 21:38) [3]

А можете подсказать, как тут быть, если известно, что IP точно 127.0.0.1?

$packet .= chr(strtok($ip, "."));
$packet .= chr(strtok("."));
$packet .= chr(strtok("."));
$packet .= chr(strtok("."));

Так?

packet:=packet+char(127)+char(0)+char(0)+char(1);

← →
Eraser © (2006-12-08 21:41) [4]

> [3] Pok (08.12.06 21:38)

packet := packet + "127.0.0.1";

← →
Pok (2006-12-08 21:43) [5]

А как же "chr"?

← →
Palladin © (2006-12-08 21:46) [6]

а так же

← →
Alien1769 © (2006-12-08 21:48) [7]

А нафиг chr ?
ладно смотри тоже самое но через переменнную

var
number_port:string[16];
packet:string[255];
begin
{......}
number_port:= "127.0.0.1";
packet := packet + number_port;
{......}
end.

← →
Anatoly Podgoretsky © (2006-12-08 21:52) [8]

> Alien1769 (08.12.2006 21:48:07) [7]

Почему string[16]?
Для порта много, а для полного ИП с портом мало.
Кроме того "127.0.0.1" это не порт, а адрес.

> Почему string[16]?
> Для порта много, а для полного ИП с портом мало.
> Кроме того "127.0.0.1" это не порт, а адрес.

Это для примера, на скорую руку. Да каюсь есть ошибки.
Почему длина 16 :
127.255.255.255 = 3*4+1*4= 15 символов /один про запас/ повторюсь это только для примера. Работу с портами я знаю.

> Alien1769 (08.12.2006 22:12:09) [9]

Теперь согласен, только я бы добавил еще 6 на :##### и заменил бы string[16] на просто string и все будет окей, ну и в коде еще не нравится конкатенация, явно напрашивается еще и пробел. Но это тоже понятно, что на скорую руку.

Спасибо за понимание, без подкола.

Как написать на Delphi? Найти похожие ветки