Вернуть IP адрес подключаемого компа к моему серверу

← →
RomanRom2 (2002-10-29 14:58) [0]

Пишу сервачок, он создает сокет, биндит, слушает.
Когда приходит событие ACCEPT - пишу:

вообще говоря, тут бы узнать, кто (IP адрес) ломится на мою тачку и решать, давать ему акцепт или не давать...

server:=accept(sock,s_addr,s_len);

ну вот, в s_addr по идее должен быть нужный мне адрес...

//------------------------------------------------------------The Windows Sockets accept function accepts a connection on a socket.

SOCKET accept (
SOCKET s,
struct sockaddr FAR* addr,
int FAR* addrlen
);

Parameters
s
[in] A descriptor identifying a socket which is listening for connections after a listen.

addr
[out] An optional pointer to a buffer which receives the address of the connecting entity, as known to the communications layer. The exact format of the addr argument is determined by the address family established when the socket was created.

addrlen
[out] An optional pointer to an integer which contains the length of the address addr.
//------------------------------------------------------------

ну и пишу:
str:=inet_ntoa(s_addr.sin_addr);
memo1.lines.add(TimeToStr(Time)+" ACCEPT "+str);

где на строчке "str:=..." прога вылетает с эксепшеном, когда пытаешься законнектиться с этим сервером, например, телнетом.

//------------------------------------------------------------
Project Project1.exe raised exception class EAccessViolation with message "Acces violation at adress 00445DD6 in module Project1.exe". Read of address 00000004. Process stopped. Use Step ur Run to continue.
//------------------------------------------------------------

ПОЧЕМУ? Какие вообще есть способы выявления IP подключаемой тачки?

← →
Digitman (2002-10-29 15:07) [1]

> кто (IP адрес) ломится на мою тачку и решать, давать ему
> акцепт или не давать...

accept() дла этого не пойдет.

см. WSAAccept()

← →
Polevi (2002-10-29 16:38) [2]

сам недавно делал такое

const
// WinSock 2 extension -- manifest constants for return values of the condition function
CF_ACCEPT = $0000;
CF_REJECT = $0001;
CF_DEFER = $0002;

type
{ WinSock 2 extension -- WSABUF and QOS struct, include qos.h }
{ to pull in FLOWSPEC and related definitions }

WSABUF = packed record
len: U_LONG; { the length of the buffer }
buf: PChar; { the pointer to the buffer }
end {WSABUF};
PWSABUF = ^WSABUF;
LPWSABUF = PWSABUF;

TServiceType = LongInt;

TFlowSpec = packed record
TokenRate, // In Bytes/sec
TokenBucketSize, // In Bytes
PeakBandwidth, // In Bytes/sec
Latency, // In microseconds
DelayVariation : LongInt;// In microseconds
ServiceType : TServiceType;
MaxSduSize, MinimumPolicedSize : LongInt;// In Bytes
end;
PFlowSpec = ^TFLOWSPEC;

QOS = packed record
SendingFlowspec: TFlowSpec; { the flow spec for data sending }
ReceivingFlowspec: TFlowSpec; { the flow spec for data receiving }
ProviderSpecific: WSABUF; { additional provider specific stuff }
end;
TQualityOfService = QOS;
PQOS = ^QOS;
LPQOS = PQOS;

LPCONDITIONPROC = function (lpCallerId: LPWSABUF; lpCallerData : LPWSABUF; lpSQOS,lpGQOS : LPQOS; lpCalleeId,lpCalleeData : LPWSABUF;
g : DWORD; dwCallbackData : DWORD ) : Integer; stdcall;
function WSAAccept( s: TSocket; addr: PSockAddr; addrlen: PInteger; lpfnCondition : LPCONDITIONPROC; dwCallbackData : DWORD ): TSocket; stdcall;external "ws2_32.dll";

//----------------------------end of winsock2 extension------------------------

function ConditionProc(lpCallerId: LPWSABUF; lpCallerData : LPWSABUF; lpSQOS,lpGQOS : LPQOS; lpCalleeId,lpCalleeData : LPWSABUF;
g : DWORD; dwCallbackData : DWORD ) : Integer;stdcall;
var
interfaceIP,clientIP:string;
port:WORD;
begin
clientIP:=inet_ntoa(PSockAddrIn(lpCallerId.buf).sin_addr);
interfaceIP:=inet_ntoa(PSockAddrIn(lpCalleeId.buf).sin_addr);
port:=htons(PSockAddrIn(lpCalleeId.buf).sin_port);
Result:=CF_ACCEPT;
if НЕХОЧУ!!! then
begin
Result:=CF_REJECT;
Writeln(Format("Reject client with IP %s, requested interface %s:%d",[clientIP,interfaceIP,port]));
end
end;

//вызов
FSocket:=WSAAccept(AListenClient.FSocket, @FAddr, @Len, @ConditionProc,0)

← →
Digitman (2002-10-29 16:53) [3]

>Polevi

А что, явное setsockopt(SO_CONDITIONAL_ACCEPT = True) в XP не требуется ? Я просто не в курсе, но в Винтукее, как помнится, по-умолчанию SO_CONDITIONAL_ACCEPT = False

← →
Polevi (2002-10-29 17:45) [4]

2Digitman © (29.10.02 16:53)
надо проверить, я пробовал только на 2k, спасибо за информацию

← →
Polevi (2002-10-29 17:57) [5]

PS
я имею в виде что в вин2к все и так работает, без sockopt ^-)

← →
RomanRom2 (2002-10-29 18:11) [6]

не, чуваки, что то вы намудрили...
Digitman, пойдет, еще как пойдет! :)))

var
x: u_int;
LocalAddress: TSockAddr;

begin
x:=SizeOf(LocalAddress);
server:=accept(sock,@LocalAddress,@x);

str:=inet_ntoa(LocalAddress.sin_addr);
end;

ВСЕ! :)
Всем спасибо :)

← →
Polevi (2002-10-29 18:32) [7]

2RomanRom2 © (29.10.02 18:11)
тебе предложили правильный способ, но ты еще к нему не готов

← →
Digitman (2002-10-30 08:17) [8]

>Polevi

Возможно. Не буду возражать. Но все же нелишним будет проверить состояние опции перед стартом слушающего гнезда.

>RomanRom2

> пойдет, еще как пойдет!

Что "пойдет"-то, "чувак" ?)

← →
ALexe (2002-10-30 14:55) [9]

Парни !!! подскажите как узнать по IP имя локальной машины?

← →
Digitman (2002-10-30 15:38) [10]

The Windows Sockets gethostname function returns the standard host name for the local machine.

int gethostname (

char FAR * name,
int namelen
);

Parameters

name

[out] A pointer to a buffer that will receive the host name.

namelen

[in] The length of the buffer.

Remarks

This routine returns the name of the local host into the buffer specified by the name parameter. The host name is returned as a null-terminated string. The form of the host name is dependent on the Windows Sockets provider

Вернуть IP адрес подключаемого компа к моему серверу Найти похожие ветки