как разбить ip в стринговой переменной на октеты...

← →
EvgenTss (2003-06-13 15:09) [0]

... желательно максимально красиво, без циклов

← →
Anatoly Podgoretsky © (2003-06-13 15:18) [1]

На какие октеты?

← →
Palladin © (2003-06-13 15:42) [2]

такие требования
что значит максимально красиво?

var
IPParts:TStringList;

IPParts:=TStringList.Create;
IPParts.Delimiter:=".";
IPParts.DelimitedText:=IPString;

так красиво?
это надо?
или что у тебя там в стринговой переменной? число?

← →
evvcom © (2003-06-13 15:43) [3]

Действительно на какие октеты? Может на байты? Октеты - значит восьмерки.

← →
EvgenTss (2003-06-13 15:48) [4]

на байты

← →
EvgenTss (2003-06-13 15:52) [5]

в стринговой переменной ip адрес, на выходе нужны четыре переменные типа байт. есть простая функция для данного преобразования?

← →
evvcom © (2003-06-13 16:03) [6]

А почему с циклами некрасиво? По-моему вполне.

← →
EvgenTss (2003-06-13 16:09) [7]

ок, уговорил

← →
Palladin © (2003-06-13 16:19) [8]

> EvgenTss (13.06.03 15:52)

есть простая функция, тебе просто написать ее лень

type TIPBytes=array [1..4] of byte; function ParseIP(p_strIP:string):TIPBytes; begin result[4]:=1; while pos(".",p_strIP)<>0 do begin result[result[4]]:=strtoint(copy(p_strIP,1,pos(".",p_strIP)-1)); p_strIP:=copy(p_strIP,pos(".",p_strIP)+1,length(p_strIP)); result[4]:=result[4]+1; end; result[4]:=strtoint(p_strIP); end;

← →
EvgenTss (2003-06-13 16:42) [9]

to Palladin
мне не лень, я уже сам всё сделал, просто хотел узнать на будущее нельзя ли проще.
Спасибо.

← →
vuk © (2003-06-13 16:48) [10]

Кстати о птичках... Вспомнилось тут... Не знаю, как в других ОС, а в Windows функции преобразования строки в IP адрес работают так, что если часть адреса начинается с 0, то эта часть интерпретируется как записанная в восьмеричной системе счисления.
То есть следующие два адреса эквивалентны:
123.0123.123.012
123.83.123.10

> Anatoly Podgoretsky © (13.06.03 15:18)
> На какие октеты?

2^8 = 256
255.255.255.255 - ничего не напоминает? Это октет называется.

← →
HolyGlory (2003-06-13 18:39) [12]

procedure IpTo8b(S:String;var a,b,c,d:Byte); var t:Integer; v:String; procedure cut; begin t:=Pos(".",S); v:=Copy(S,1,t-1); Delete(S,1,t); end; begin cut;a:=inttostr(v); cut;b:=inttostr(v); cut;c:=inttostr(v); d:=inttostr(S); end;

Предлагаю объявить конкурс на лучшее преобразование ip в октеты. Приз получит тот, кто сможет сделать это в одной строчке (не пользуясь готовыми ф-иями)

← →
Федя (2003-06-13 19:37) [14]

В нормальных языках это делается так:

sscanf(ip,"%d.%d.%d.%d",ip1,ip2,ip3,ip4)

P.S. Велик и могуч руССкий язык

2Федя
>sscanf(ip,"%d.%d.%d.%d",ip1,ip2,ip3,ip4)

sscanf(ip,"%d.%d.%d.%d", &ip1, ...
:)

как разбить ip в стринговой переменной на октеты... Найти похожие ветки