Здравствуйте, Shtirliz, Вы писали:
S>Доброго времени суток.
S>Проблемма следующего содержания:
S>Через winsocket ловлю приходящие и исходящие пакеты. Под Win2k и win98 все работает отлично.
S>попробовал на WinXP и ничего у меня не вышло, с одной оговоркой. Если одна из машин находится под управлением win2k или win98,
S>то пакеты от этих машин лювятся, а пакеты от машины на winXP нет.
S>Вот код нити по отслеживанию входящих-исходящих пакетов
вот этот код непонятен
If (count >= sTcp)or (count >= sUdp)
на мой взгляд нужно иметь локальный буфер
и читать туда все, правильно разбирать длину пакета,
ведь recv() не обязан дать только один пакет?
(можно случайно отбросить длину другого пакета)
но это ИМХО так как этот вопрос я тонко не изучал и не пробовал.
кроме того, судя по Synchronize(DoData); и While Not Terminated Do
это код метода Execute, тогда какого рожна там Application.ProcessMessages; ???
это не только не поможет, это просто неправильно !!!
(ну и всякие там FForm.Memo1. это тоже некорректно)
S>
S>begin
S> sUdp := SizeOf(TIpHeader_)+ SizeOf(TUDPHeader);
S> sTcp := SizeOf(TIpHeader_)+ SizeOf(TTCPHeader);
S> Fform.Memo1.Clear;
S> If WSAStartup(MAKEWORD(2,2), wsadata) <> 0 then exit;
S> s := socket(AF_INET, SOCK_RAW, IPPROTO_IP);
S> Name := #00;
S> gethostname(name, sizeof(name));
S> phe := gethostbyname(name);
S> ZeroMemory(@sa, sizeof(sa));
S> sa.sin_family := AF_INET;
S> sa.sin_addr.s_addr := longint(plongint(phe^.h_addr_list^)^);
S> sa.sin_port := htons(8080);
S> idr := bind(s, sa, SizeOf(sa));
S> flag := 1;
S> ioctlsocket(s, SIO_RCVALL, flag);
S> While Not Terminated Do
S> Begin
S> Application.ProcessMessages;
S> FillChar(Buffer,SizeOf(Buffer),#0);
S> count := recv(s, Buffer, sizeof(Buffer),0);
S> If (count >= sTcp)or (count >= sUdp)
S> Then
S> Begin
S> ZeroMemory(@hdr,SizeOf(TIPHeader_));
S> CopyMemory(@hdr,@Buffer,SizeOf(TIPHeader_));
S> ZeroMemory(@tcphdr,SizeOf(ttcpheader));
S> ZeroMemory(@udphdr,SizeOf(tUDPheader));
S> sa1.S_addr := hdr.iph_src;
S> sa2.S_addr := hdr.iph_dest;
S> Case hdr.iph_protocol OF
S> IPPROTO_TCP : Begin
S> CopyMemory(@tcphdr,@Buffer[sizeof(TIPHeader)],sizeof(TtcpHeader));
S> Ports := ntohs(tcphdr.th_sport);
S> Portd := ntohs(tcphdr.th_dport);
S> // Fform.Memo1.Lines.Add('TCP - '+inet_ntoa(sa1)+'-'+IntToStr(Ports)+'------>'+inet_ntoa(sa2)+'-'+IntToStr(Portd));
S> End;
S> IPPROTO_UDP : Begin
S> CopyMemory(@udphdr,@Buffer[sizeof(TIPHeader)],sizeof(TUDPHeader));
S> Ports := ntohs(udphdr.uh_sport);
S> Portd := ntohs(udphdr.uh_dport);
S> // Fform.Memo1.Lines.Add('UDP - '+inet_ntoa(sa1)+'-'+IntToStr(Ports)+'------>'+inet_ntoa(sa2)+'-'+IntToStr(Portd));
S> End;
S> Else
S> Ports := 0;
S> Portd := 0;
S> End;
S> if (((sa1.S_addr and inet_addr(PChar(FForm.ipaMask.Text)))= sa1.S_addr) And ((sa2.S_addr and inet_addr(PChar(FForm.ipaMask.Text)))= sa2.S_addr))
S> and ((sa1.S_addr = inet_addr(PChar(FForm.ipServer.Text)))Or (sa2.S_addr = inet_addr(PChar(FForm.ipServer.Text))))
S> And (FForm.InPorts(Ports) or FForm.InPorts(Portd))
S> And (FForm.ClientsWatch(inet_ntoa(sa1)) or FForm.ClientsWatch(inet_ntoa(sa2))) And FForm.isProtocol(hdr.iph_protocol)
S> Then
S> Begin
S> FSum := FSum + ntohs(hdr.iph_length);
S> FForm.SetBytes(inet_ntoa(sa1),ntohs(hdr.iph_length),False);
S> FForm.SetBytes(inet_ntoa(sa2),ntohs(hdr.iph_length),True);
S> FForm.Memo1.Lines.Add(inet_ntoa(sa1)+':'+IntToStr(Ports)+' --> '+inet_ntoa(sa2)+':'+IntToStr(Portd))
S> End;
S> Synchronize(DoData);
S> End;
S> End;
S> closesocket(s);
S> WSACleanup;
S>
S>Пожалуйста подскажите, в чем дело?
