Bilgisayarin IP adresinin alinmasi
uses Winsock;

function DetectHostIP(var IP: string): Boolean;
var
wsdata : TWSAData;
hostName : array [0..255] of char;
hostEnt : PHostEnt;
addr : PChar;
begin
WSAStartup ($0101, wsdata);
try
    gethostname (hostName, sizeof (hostName));
    hostEnt := gethostbyname (hostName);
    if Assigned (hostEnt) then
      if Assigned (hostEnt^.h_addr_list) then begin
        addr := hostEnt^.h_addr_list^;
        if Assigned (addr) then begin
          IP := Format ('%d.%d.%d.%d', [byte (addr [0]),
          byte (addr [1]), byte (addr [2]), byte (addr [3])]);
          Result := True;
        end
        else
          Result := False;
      end
      else
        Result := False
    else begin
      Result := False;
    end;
finally
    WSACleanup;
end
end;

// Kullanimi:
procedure TForm1.Button1Click(Sender: TObject);
var IPAdres: string;
begin
if DetectHostIP(IPAdres) then
   Label1.Caption := IpAdres
else
   Label1.Caption := 'Ip Adresi alinamadi';
end;

DELPHI - 7

Sayfayı Yazdır | Pencereyi Kapat