как известно, при посылке пакетов в сеть, концентратор (не коммутатор) посылает эти пакеты на все порты, а уж станция (комп) принимает эти пакеты если пакеты принадлежат для этой станции. Концентратор на читает заголовки пакетов и поэтому рассылает пакеты на все санции.
Внимание, вопрос:
- как получать эти пакеты даже если они не предназначены для этой станции, или это не на уровне программы, а на уровне Windows и, естевственно операционка не даст получить эти пакеты.

Еще как даст... поищи, такая тема уже была на форуме... сниффер Dayana писала...

Я так понимаю, что если поставлю такие свойствах в TServerSocket, то смогу получать все пакеты?
Я пока не пробовал, но обязятельно попробую, только протокол TCP/IP, а обязательно указывать

Код

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

или этот код будет лучше?

Код

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);

Второй предпочтительней... код не проверял, но свиду похоже на правду.

для первого примера:
что есть WSocket1, я знаю TServerSocket & TClientSocket и моя программа пстроена так: на форме лежат оба TServerSocket & TClientSocket, т.е. прога является и сервером и клиентом, в принцыпе программа простенькая, поддержка запуска внешних программ для подшучивания над моими бухгалтерами - есть программка "Rain" (могу скинуть) - при ее запуске экран "течет", как будто дождь пошел, что творится с бухгалтерами, смех да и только. Немного отвлекся.
Я так понимаю WSocket1 - это TWinSocket, а как его использовать? Какие отличия от TServerSocket & TClientSocket, оп... помоему TServerSocket & TClientSocket это наследники от TWinSocket.

для второго примера:
в какое событе этот код вставить?

В нажатие на кнопку, токо он при "Simple Cut&Paste"'е работать не будет