LAN-Suchmaschine wie realisieren

[MrKnogge]

also standardmäßig gibts sowas nicht, aber mann kann sichs selber basteln, ComputerNameToIpAdresse:

Delphi-Quellcode:

Uses
  WinSock;

FUNCTION GetIpAddressByName(const AComputerName: STRING): STRING;
VAR
  TMPResult: STRING;
  WSA: TWSAData;
  H: PHostEnt;
  P: PChar;
BEGIN
  IF WSAStartUp($101, WSA) = 0 THEN
    BEGIN
      GetMem(P,255 + 1);
      StrPCopy(P, ComputerName);
      H:=GetHostByName(P);
      FreeMem(P);
      IF H <> NIL THEN
        BEGIN
          P:=inet_ntoa(PInAddr(H^.h_addr_list^)^);
          TMPResult:=StrPas(P)
        END;
      WSACleanUp;
      IF TMPResult <> '' THEN
        Result:=TMPResult
      ELSE
          Result:= '0';
    END;
END;

Wie man nun bei jedem Rechner überprüft, was er freigegeben hat, weis ich leider nicht, würd mich allerdings auch interessieren ^^