ip + ip

← →
ronyn (2006-07-03 00:37) [0]

как прибавить значение к айпихе? т.е. смысл в следующем -
айпи адрес увеличивается на единицу в некотром диапазоне.
использую TInAddr. каким убразом переменную этого типа увеличить на 1 (2,3,4,5....)
Заранее благодарен.

← →
Шпиён (2006-07-03 02:48) [1]

Например, TInAddr.S_addr + 1 -)

ps

type SunB = packed record s_b1, s_b2, s_b3, s_b4: u_char; end; SunW = packed record s_w1, s_w2: u_short; end; TInAddr = packed record case integer of 0: (S_un_b: SunB); 1: (S_un_w: SunW); 2: (S_addr: u_long); end;

← →
Шпиён (2006-07-03 02:58) [2]

Немного не так написал, явно спать пора -)

var Ad:TInAddr; ............................. Ad.S_addr := Ad.S_addr + 2; //или Inc(Ad.S_addr,2);

Для "общего развития" можно посмотреть:
http://forum.sources.ru/index.php?showtopic=119027&st=0&#entry892976

← →
Пусик © (2006-07-03 03:14) [3]

В [2] дана ссылка на схожую проблему.
Вот еще одна с полным решением:
http://forum.vingrad.ru/index.php?showtopic=98711

Я бы, конечно, на asm"e сделал, но как народ на это посмотрит? ;)
Что-то типа:

asm
inc [InAddr]
end;

Но есть нюансы, в зависимости от размещения этого самого InAddr - она глобальная, локальная. С глобальной в юните - прокатит. С локальной afair еще разыменовывать дополнительно нужно.

ip + ip Найти похожие ветки