помогите с gethostbyaddr

← →
mifi (2002-10-13 23:57) [0]

Народ помогите разобраться с функцией "gethostbyaddr"
ниже приведен фрагмент Delphi справки :

struct hostent FAR * gethostbyaddr (

const char FAR * addr,
int len,
int type
);

Parameters
addr [in] A pointer to an address in network byte order.
len [in] The length of the address.
type [in] The type of the address.

вроде все понятно кроме третьего параметра ???
естли у кого есть исходники с использованием данной функци
посмотрю с удовольствием .

← →
Oleg_Gashev © (2002-10-14 03:57) [1]

type- Specifies the domain type of the host address.

#define AF_UNSPEC 0 /* unspecified */ #define AF_UNIX 1 /* local to host (pipes, portals) */ #define AF_INET 2 /* internetwork: UDP, TCP, etc. */ #define AF_IMPLINK 3 /* arpanet imp addresses */ #define AF_PUP 4 /* pup protocols: e.g. BSP */ #define AF_CHAOS 5 /* mit CHAOS protocols */ #define AF_IPX 6 /* IPX and SPX */ #define AF_NS 6 /* XEROX NS protocols */ #define AF_ISO 7 /* ISO protocols */ #define AF_OSI AF_ISO /* OSI is ISO */ #define AF_ECMA 8 /* european computer manufacturers */ #define AF_DATAKIT 9 /* datakit protocols */ #define AF_CCITT 10 /* CCITT protocols, X.25 etc */ #define AF_SNA 11 /* IBM SNA */ #define AF_DECnet 12 /* DECnet */ #define AF_DLI 13 /* Direct data link interface */ #define AF_LAT 14 /* LAT */ #define AF_HYLINK 15 /* NSC Hyperchannel */ #define AF_APPLETALK 16 /* AppleTalk */ #define AF_NETBIOS 17 /* NetBios-style addresses */ #define AF_VOICEVIEW 18 /* VoiceView */ #define AF_FIREFOX 19 /* FireFox */ #define AF_UNKNOWN1 20 /* Somebody is using this! */ #define AF_BAN 21 /* Banyan */ #define AF_MAX 22

← →
Василий2 © (2002-10-14 10:11) [2]

Я всегда делаю слеюующее (когда не знаю, как пользоваться функцией): запускаю FAR и ищу все файлы с такой-то функцией. После того как FAR все проверит, я смотрю как ей пользуются другие...

← →
Reader (2002-11-18 17:50) [3]

Вот простой код, нашел у китайцев (
http://jp.njuct.edu.cn/crystal/uploadtools/DELPHI_skills.htm
)
все проще простого
function GetDomainName(Ip:string):string; var pH:PHostent; data:twsadata; ii:dword; begin WSAStartup($101, Data); ii:=inet_addr(pchar(ip)); pH:=gethostbyaddr(@ii,sizeof(ii),PF_INET); if (ph<>nil) then result:=pH.h_name else result:=""; WSACleanup; end;

помогите с gethostbyaddr Найти похожие ветки