Форум: "Сети";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.03.18;
Скачать: [xml.tar.bz2];




Вниз

IPX через winsock2 


samuray   (2001-12-30 13:48) [0]

Возникла проблема при написании сервера

type
PSockAddrIPX = ^TSockAddrIPX;
TSockAddrIPX = packed record
sa_family : short;
sa_netnum : array [0..3] of Byte;
sa_nodenum : array [0..5] of Byte;
sa_socket : u_short;
end;

var
SrvSocket : TSocket;
SrvAddr, BindAddr : TSockAddrIPX;
LocalSocketNumber : u_short = $5679;
SrvEvent : WSAEVENT;

function InitServer : Boolean;
var
WSData : TWSAData;
I : Integer;
begin
Result := False;
if WSAStartup(WINSOCK_VERSION, WSData) <> 0 then
Exit;
SrvSocket := socket(PF_IPX, SOCK_DGRAM, NSPROTO_IPX);
if SrvSocket = INVALID_SOCKET then Exit;

SrvAddr.sa_family := PF_IPX;
FillChar(SrvAddr.sa_netnum,4,0);
FillChar(SrvAddr.sa_nodenum,6,0);
SrvAddr.sa_socket := Swap(SrvSocket{LocalSocketNumber});

if bind( SrvSocket,
PSockAddr(@SrvAddr),
SizeOf(TSockAddrIPX) )= SOCKET_ERROR then Exit;

I := sizeof(TSockAddrIPX);
if getsockname(SrvSocket, PSockAddr(@BindAddr), I) =
SOCKET_ERROR then Exit;

SrvEvent := WSACreateEvent;
if SrvEvent = WSA_INVALID_EVENT then Exit;

if WSAEventSelect( SrvSocket,
SrvEvent,
FD_READ) <> 0 then Exit; //вот сдесь функция возвращяет FALSE ПОЧЕМУ? если использую протокол ip всё нормально!

Result := True;
end;



samuray   (2001-12-30 16:47) [1]

плиз



samuray   (2002-01-04 12:01) [2]

Неужели нет таких людей, что могли мне помоч???




Форум: "Сети";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.03.18;
Скачать: [xml.tar.bz2];




Наверх





Память: 0.71 MB
Время: 0.012 c
3-57331           boogier               2002-02-18 18:06  2002.03.18  
Как заставить ADO использовать индексы


1-57467           SergeyVP              2002-03-04 07:04  2002.03.18  
Вращаем TBitmap.


1-57395           avr555                2002-03-01 21:06  2002.03.18  
Узнать координаты компонента относительно формы


4-57568           Alexeyk               2002-01-21 12:18  2002.03.18  
Немогу разобраться-как можно управлять уровнем громкости


3-57319           Оксана                2002-02-18 10:56  2002.03.18  
Нетипизированные файлы