![]() |
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Получение протокола звонков по Lan [D5, Win95/98]
Nikola62 © (2005-01-18 11:54:00)Извините за ламерский вопрос. Подскажите чем можно получать данные с АТС по локальной сети через порт 5103. АТС имеет свой IP адрес.
Eraser (2005-01-18 16:47:00) [1]Nikola62
Indy 10 рулит.
kaZaNoVa (2005-01-18 13:39:00) [2]Апи сокеты рулят))
пример из моего <censored>
Var S:TSocket;
.......
S := socket(AF_INET,SOCK_STREAM,IPPROTO_IP);
if s= INVALID_SOCKET then Halt(1);
FillChar(vSockAddr,SizeOf(TSockAddr),0);
vSockAddr.sin_family :=AF_INET;
vSockAddr.sin_port:=htons(StrToInt(port));
vSockAddr.sin_addr.S_addr:=inet_addr(Pchar(ip));
if not connect(S,vSockAddr,SizeOf(TSockAddr)) = 0 {SOCKET_ERROR} then
begin
closesocket(s);
continue;
end;
....
Digitman (2005-01-18 12:30:00) [3]если используется TCP-протокол, то, например, компонентом TClientSocket