У меня вот такая проблема. От одного устройства (модема) по лану приходят пакеты. Просматривая снифером, вижу порт, IP отправителя и IP получателя. Но они отличны от IP самого устройства и IP который определила в Local Area Connection. Это модуляция пакетов через модем. Задача получать эти пакеты. Открываю сокет TWSocket. Протокол udp, Addr = '0.0.0.0', т.е от любого клиента. И ставлю номер порта, который показал мне снифер. Т.к. протокол udp, то после соединения пользуюсь методом RecieveFrom, который получает пакет в буфер и также возвращает адрес отправителя.

Пакеты модем посылает, а сокет ничего не получает. Я с этим совсем мало работала. Может кто-нибудь знает в чем ошибка?

Код проверки пока такой

Код

WSocket1.Addr := '0.0.0.0';  WSocket1.Port := '5003';  WSocket1.Proto := 'udp';  WSocket1.Connect;  Sleep(3000);  for i := 1 to 3 do  begin //    WSocket1.Receive(@RcvMsg, 8024);    WSocket1.ReceiveFrom(@RcvMsg, 8024, AddrSour, LengSourc);  end

Спасибо!

Это сообщение отредактировал(а) Dayana - 4.2.2003, 19:31

Я вот нашла, чтобы настроить сокет на прием пакетов, надо установить флаг PROMISC - установка режима перехвата на сетевой карте.
Есть исходники на С++. Там используются функции API. Может кто знает, как такой флаг установить, пользуясь TWSocket, и есть ли он там вообще?

А кто тебе мешает создать сокет руками через апи? без компонентов.
з.ы. с вероятностью в 99% могу сказать, что в твоем компоненте выставить PROMISC низя.

Да.... полностью с Baa согласен.... я сейчас тоже занимаюсь этими вопросами, и попробовав кучу компонентов, пришел к выводу, что лучше при работе с сокетами использовать API, это надежно, позволяет программировать без ограничений, хотя долго и утомительно....

Baa, нашла такую ф-циюWSocket-ioctlsocket, которой передается handle на сокет, а также флаг который устанавливает режим перехвата. Этот флаг я взяла вот с этого кода

Цитата

#include <conio.h> #include <stdio.h> #include <winsock2.h> #define MAX_PACKET_SIZE    0x10000 #define SIO_RCVALL        0x98000001 // Буфер для приёма данных char Buffer[MAX_PACKET_SIZE]; // 64 Kb //Структура заголовка IP-пакета typedef struct IPHeader {   UCHAR  iph_verlen;  // версия и длина заголовка   UCHAR  iph_tos;      // тип сервиса   USHORT  iph_length;  // длина всего пакета   USHORT  iph_id;      // Идентификация   USHORT  iph_offset;  // флаги и смещения   UCHAR  iph_ttl;      // время жизни пакета   UCHAR  iph_protocol; // протокол   USHORT  iph_xsum;    // контрольная сумма   ULONG  iph_src;      // IP-адрес отправителя   ULONG  iph_dest;    // IP-адрес назначения } IPHeader; char src[10]; char dest[10]; char ds[15]; unsigned short lowbyte; unsigned short hibyte; void main() {   WSADATA    wsadata;  // Инициализация WinSock.   SOCKET      s;        // Cлущающий сокет.   char        name[128]; // Имя хоста (компьютера).   HOSTENT*    phe;      // Информация о хосте.   SOCKADDR_IN sa;        // Адрес хоста   IN_ADDR sa1;        //   unsigned long        flag = 1;  // Флаг PROMISC Вкл/выкл.   // инициализация   WSAStartup(MAKEWORD(2,2), &wsadata);   s = socket( AF_INET, SOCK_RAW, IPPROTO_IP );   gethostname(name, sizeof(name));   phe = gethostbyname( name );   ZeroMemory( &sa, sizeof(sa) );   sa.sin_family = AF_INET;   sa.sin_addr.s_addr = ((struct in_addr *)phe->h_addr_list[0])->s_addr;   bind(s, (SOCKADDR *)&sa, sizeof(SOCKADDR));     // Включение promiscuous mode.   ioctlsocket(s, SIO_RCVALL, &flag);   // Бесконечный цикл приёма IP-пакетов.   while( !_kbhit() )   {     int count;     count = recv( s, Buffer, sizeof(Buffer), 0 );     // обработка IP-пакета     if( count >= sizeof(IPHeader) )     {       IPHeader* hdr = (IPHeader *)Buffer;       //Начинаем разбор пакета... strcpy(src,"Пакет: "); CharToOem(src,dest); printf(dest); // Преобразуем в понятный вид адрес отправителя. printf("From "); sa1.s_addr = hdr->iph_src; printf(inet_ntoa(sa1)); // Преобразуем в понятный вид адрес получателя. printf(" To "); sa1.s_addr = hdr->iph_dest; printf(inet_ntoa(sa1)); // Вычисляем протокол. Полный список этих констант // содержится в файле winsock2.h printf(" Prot: "); if(hdr->iph_protocol == IPPROTO_TCP) printf("TCP "); if(hdr->iph_protocol == IPPROTO_UDP) printf("UDP "); // Вычисляем размер. Так как в сети принят прямой порядок // байтов, а не обратный, то прийдётся поменять байты местами. printf("Size: "); lowbyte = hdr->iph_length>>8; hibyte = hdr->iph_length<<8; hibyte = hibyte + lowbyte; printf("%s",itoa(hibyte,"",10)); // Вычисляем время жизни пакета. printf(" TTL:%s",itoa(hdr->iph_ttl,"",10)); printf("\n");     }   }   closesocket( s );   WSACleanup(); }

И написала у себя вот так

Цитата

const   CmdFlag : u_long = 1;   SIO_RCVALL = $98000001; begin            FillChar(RcvMsg, 8024, #0);   WSocket1.Addr := '0.0.0.0';   WSocket1.Port := '5003';   WSocket1.LocalPort := '5003';   WSocket1.Proto := 'udp';   WSocket_ioctlsocket(WSocket1.HSocket, SIO_RCVALL, CmdFlag);   WSocket1.Connect;   Sleep(3000);   for i := 1 to 3 do   begin     WSocket1.ReceiveFrom(@RcvMsg, 8024, AddrSour, LengSourc);   end; end;

WSocket_ioctlsocket - это аналог ioctlsocket. Но все равно ничего не работает.

Код на С++ у меня нет возможности проверить.

В принципе handle сокета я передаю, и нет разницы как он был создан через API или как компонент.

Pegas, писала ответ с тобой одновременно.

Ты не мог бы дать основные ф-ции API, которые позволяют создать сокет и работать с ним?

Если я не ошибаюсь (давно это было), то в IFF_PROMISC mode может выставится токо RAW сокет.

Цитата(Dayana @ 4.2.2003, 15:53)

Pegas, писала ответ с тобой одновременно. Ты не мог бы дать основные ф-ции API, которые позволяют создать сокет и работать с ним?

Открой файл WinSock или IdWinSock2(Если Delphi 7). Тама есть эти самые функции.

А так основные функции это -
Socket()
Bind()
CloseSocket()
Accept()
Send()
Recv()
SendTo()
RecvFrom()
Ну и их асинхронные аналоги(с приставкой WSA).
Причем перед их использованием необходимо загрузить WinSock
WSAStartUp()
и потом выгрузить
WSACleanUp;
Разумеется это не полный список функций, но для начала и их хватит)

Делаю вот так

Цитата

var   RcvPack : array [0..8024] of char;   AddrSour : TSockAddr;   i : integer;   PackLen : integer;   vWSAData : TWSAData;   S : TSocket;   SockAddr : TSockAddrIn;   HostName : array[0..128] of char;   pLocHost : PHostEnt;   Flag : u_long; begin   FillChar(RcvPack, 8024, #0);   GetHostName(HostName, 129);   pLocHost := GetHostByName(HostName);   WSAStartUp(MakeWord(2,2), vWSAData);   S := Socket(AF_INET, SOCK_RAW, IPPROTO_IP);   SockAddr.sin_family := AF_INET;   SockAddr.sin_port := htons(5003);   SockAddr.sin_addr.S_addr := PInAddr(pLocHost^.h_addr_list)^.S_addr;   Bind(S, SockAddr, SizeOf(SockAddr));   Flag := 1;   ioctlsocket(S, SIO_RCVALL, Flag);   for i := 1 to 10 do     PackLen := recv(S, RcvPack, 8024, 0);   CloseSocket(S);

открываю его как RAW.... но все равно ничего не получает...:-(

<Spawn>, спасибо! Уже нашла...

Dayana попробуй порт выставить в 0...
з.ы. дома буду, че-нить придумаю...

Baa, спасибочки!

Baa, нашла в чем была ошибка. Совсем упустила из виду, что на компе установлены 2 сетевые карты. Одна с динамическим DNS для выхода в локальную сеть. А другая, с которой мне надо работать, с определенным IP и SUBNET MASK. Если отключаю локальную сеть и подключаю туда модем, т.е. в сетевую карту с динамическим DNS, то все работает. Но мне надо работать с другой сетевой картой.

Есть ли какая-нибудь возможность указать сокету с каким адаптером работать?

Дык при бинде ж указываешь ему на какой ип...
У тя gethostbyname возвращает первичный сетевой адрес, а вот вторичный остается не у дел... Пробуй сама заполнить структуру с адресом.