Alle im Netzwerk befindlichen Clients scannen

[MuTzE.Y85]

Pingen kannst du damit:

IP's anpingen


Indy würde ich lassen, da brauchste 1. Adminrechte und 2. kackt mir das immer mit dem Fehler #10040 ab.

[mjustin]

Zitat von MuTzE.Y85:

Pingen kannst du damit:

IP's anpingen


Indy würde ich lassen, da brauchste 1. Adminrechte und 2. kackt mir das immer mit dem Fehler #10040 ab.

Ping unter WIndows braucht immer Admin-Rechte, nur bei Verwendung der icmp.dll trickst Windows und gibt sich die Rechte selbst. Microsoft weist auch darauf hin, dass icmp.dll in späteren Windows Versionen nicht mehr enthalten ist.

Zum 10040 wird ein sehr einfacher Workaround hier beschrieben:

Delphi Indy Ping Error 10040

MyIdIcmpClient.PacketSize := 24;

p.s. eine Lösung mit der man auch in mehreren Threads pingen kann wird hier beschrieben:

http://stackoverflow.com/questions/1...ltithread-ping

[MuTzE.Y85]

Zitat von mjustin:

Zitat von MuTzE.Y85:

Pingen kannst du damit:

IP's anpingen


Indy würde ich lassen, da brauchste 1. Adminrechte und 2. kackt mir das immer mit dem Fehler #10040 ab.

Ping unter WIndows braucht immer Admin-Rechte, nur bei Verwendung der icmp.dll trickst Windows und gibt sich die Rechte selbst. Microsoft weist auch darauf hin, dass icmp.dll in späteren Windows Versionen nicht mehr enthalten ist.

Zum 10040 wird ein sehr einfacher Workaround hier beschrieben:

Delphi Indy Ping Error 10040

MyIdIcmpClient.PacketSize := 24;

Funktioniert nicht!!!!! Habe mich die halbe Nacht im Netz belesen, nichts brauchbares gefunden.
Ich pinge sogar mit 16 und es klappt nicht.

[mjustin]

Zitat von MuTzE.Y85:

Ich pinge sogar mit 16 und es klappt nicht.

Welches Betriebssystem ist es, Windows 8?

[MuTzE.Y85]

Windows 7 HP 64

[borstenei]

Hi pinge mit dieser Funktion:

Delphi-Quellcode:

uses
  Windows, SysUtils, Variants, Classes, Graphics, Controls,
  ExtCtrls, ComCtrls, winsock, StdCtrls, wininet;


function Ping(IP:string; TimeOut:Cardinal):Boolean;
   var hICMP : DWORD;
       pierWork : PICMP_ECHO_REPLY;
       dwSize : DWORD;
       Class1,Class2,Class3,Class4 : String;
       i,j : Byte;
 begin
   Result:=False;
   j:=1;
   for i:=1 to Length(IP) do begin
     if IP[i]<>'.' then begin
       case j of
         1: Class1:=Class1+IP[i];
         2: Class2:=Class2+IP[i];
         3: Class3:=Class3+IP[i];
         4: Class4:=Class4+IP[i];
       end;
     end else
       Inc(j);
   end;
   hICMP := IcmpCreateFile;
   if hICMP = INVALID_HANDLE_VALUE then exit;
   try
    dwSize := SizeOf(ICMP_ECHO_REPLY)+8;
     pierWork := AllocMem(dwSize);
     try
       if IcmpSendEcho(hICMP,MAKELONG(MAKEWORD(StrToInt(Class1), StrToInt(Class2)),MAKEWORD(StrToInt(Class3), StrToInt(Class4))),nil,0,nil,pierWork,dwSize,TimeOut) = 0 then
         Result:=False
       else
         Result:=True;
     finally
      FreeMem(pierWork,dwSize);
    end;
  finally
    IcmpCloseHandle(hIcmp);
  end;
end;

ist hier aus dem Forum.