Скачать: CL | DM;

Как написать на 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"  это не порт, а адрес.

---

← →
Alien1769 ©   (2006-12-08 22:12) [9]

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

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

---

← →
Anatoly Podgoretsky ©   (2006-12-08 22:16) [10]

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

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

---

← →
Alien1769 ©   (2006-12-08 22:23) [11]

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

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.47 MB
Время: 0.047 c