Если обе программы на одном компе, т.е. с одним ip - все ОК, соединяются и пр. Причем, это может быть как 127.0.0.1, так и инет-ip.
Если проги на разных компах - клиент не может подключиться к серверу.
В чем может быть проблема?
Вот прога с исходником: <a href='http://zero.kanet.ru/files/?page=/iNetTalk' target='_blank'>http://zero.kanet.ru/files/?page=/iNetTalk</a>
В кратце, куски кода для соединения:
Сервер:
Код: Выделить всё
MainSocket := Socket(AF_INET, SOCK_STREAM, 0);
saddr.Family := AF_INET;
saddr.Port := htons(port);
saddr.Addr := LongWord(StrToNetAddr(ip));
Bind(MainSocket, saddr, SizeOf(saddr));
Listen(MainSocket, 1);
sAddrSize := SizeOf(sAddr);
sock := Accept(MainSocket, sAddr, sAddrSize);Клиент:
Код: Выделить всё
saddr.Family := AF_INET;
saddr.Port := htons(port);
saddr.Addr := LongWord(StrToNetAddr(ip));
sock := Socket(AF_INET, SOCK_STREAM, 0);
Sockets.Connect(sock, sAddr, sizeof(saddr));
Ошибок не выдает, компилируется под win32 и Linux, но и не соединяется.
Если кто знает, подскажите, пожалуйста. Спасибо.