NMUDP component

Hvilken Delphi version?  Der er forskelige Inet componenter i version  fra ver 3(2?) til 5.

NiP

Hvad er det egentligt du vil læse via IP, dvs. faktisk hvilken protokol?  Eller er det bare info om aktuelt IP nr. mv.

NiP

Denne lille unit returnere alle dine ipadresser adskilt med et mellemrum. D.v.s. den returnere f.eks. både lokal nettets ip adresse og den ip adresse du evt. har på internettet.

unit IPAddress;

interface

uses
  SysUtils, WinSock;

function Get_Local_IPAddr : string;

implementation

function Get_Local_IPAddr : string;
type
  TaPInAddr = array [0..10] of PInAddr;
  PaPInAddr = ^TaPInAddr;
var
  phe    : PHostEnt;
  pptr  : PaPInAddr;
  Buffer : array [0..63] of char;
  I      : Integer;
  GInitData : TWSADATA;
begin
  try
    WSAStartup($101, GInitData);
    Result := '';
    GetHostName(Buffer, SizeOf(Buffer));
    phe := GetHostByName(buffer);
    if phe = nil then Exit;
    pptr := PaPInAddr(Phe^.h_addr_list);
    i := 0;
    result := '';
    while pptr^[I] <> nil do
    begin
      result:= result + StrPas(inet_ntoa(pptr^[I]^)) + ' ';
      Inc(I);
    end;
  finally
    WSACleanup;
  end;
end;

end.

>>Canman, kan man også få subnet(255.255.0.0) adressen på en lignede måde?

Måske. Det har jeg ikke haft brug for.

>>canman, Du kan få lidt point hvis du finder ud af det :)

Sorry, jeg har ikke tid til at sætte mig ind i det. Jeg havde tilfældigvis bare det ovenstående eksempel liggende.

okay

snorga - sig lige til hvis du finder det - kunne også godt bruge det *s*

<g> Okay