Hallo hat jemand eine Idee wieso der o.g. Fehler auftritt?

markieren

Code:

function sLocalIP: 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)); //Error1
  phoste:=GetHostByName(buffer);//Error2
  if phoste = nil then
    result := '127.0.0.1'
  else
    result := StrPas(inet_ntoa(PInAddr(phoste^.h_addr_list^)^));
  WSACleanup;
end;

Danke im vorraus



EDIT:// Hat sich erledigt!

Lösung zum Problem:

function sLocalIP: 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)); //Error1
phoste:=GetHostByName(@buffer);//Error2
if phoste = nil then
result := '127.0.0.1'
else
result := StrPas(inet_ntoa(PInAddr(phoste^.h_addr_list^)^));
WSACleanup;
end;

GetHostByName gibt es nur als ANSI-Version.

PChar ist also falsch, vorallem seit Delphi 2009, da dort PChar = PWideChar.


Mit deinem D2010 müßtest du also jetzt immernoch eine Warnung bekommen, welche man nicht ebenfalls überhören sollte.