1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:

procedure TForm_Start.Button1Click(Sender: TObject);
Function GetIPAdress: string;
var  phoste :PHostEnt;
     Buffer :array [0..100] of char;
     WSAData :TWSADATA;
begin
result :='';
if WSAStartup($0101,WSAData)<> 0  then exit;
GetHostName(Buffer,SizeOf(Buffer));
phoste:=GetHostByName(buffer);
if phoste =nil then
 begin
 result:='99' ;
 end
 else
 Begin
 result :=StrPas(inet_ntoa(PInAddr(phoste^.h_addr_list^)^));
 WSACleanup;
 End;                    

1:

[dcc32 Fehler] Unit_Start.pas(114): E2010 Inkompatible Typen: 'PAnsiChar' und 'array[0..100] of Char'