Ältere Funktion mit inkompatiblen Typen PAnsiChar

[s.h.a.r.k]

Bei mir schaut es wie folgt aus:

Delphi-Quellcode:

function GetComputerName(): string;
var
  Size: DWORD;
begin
  Size := MAX_COMPUTERNAME_LENGTH + 1;
  SetLength(Result, Size);
  if (not Winapi.Windows.GetComputerName(PChar(Result), Size)) then
    RaiseLastOSError();
  SetLength(Result, lstrlen(PChar(Result));
end;

function GetIpAddresses(): TArray<string>;
const
  PPInAddr = ^PInAddr;
var
  wsaData: TWSAData;
  HostInfo : PHostEnt;
  HostName : Array[0..255] of AnsiChar;
  Addr: PPInAddr;
  n : Integer;
begin
  SetLength(Result, 0);
  if (WSAStartup($0101, wsaData) = 0) then
  begin
    try
      HostName := '';
      if (Winapi.Winsock.GetHostName(@HostName, SizeOf(HostName)) = 0) then
      begin
        HostInfo := GetHostByName(@HostName);
        if (Assigned(HostInfo)) then
        begin
          Addr := Pointer(HostInfo^.h_addr_list);
          if (Assigned(Addr)) and (Assigned(Addr^)) then
          begin
            n := 0;
            while (Addr^ <> nil) do
            begin
              Inc(Addr);
              Inc(n);
            end;

            Addr := Pointer(HostInfo^.h_addr_list);
            SetLength(Result, n);
            n := 0;
            while (Addr^ <> nil) do
            begin
              Result[n] := string(inet_ntoa(Addr^^));
              Inc(n);
              Inc(Addr);
            end;
          end;
        end;
      end;
    finally
      WSACleanup();
    end;
  end;  
end;

Der Code für das Auslesen der IP-Adressen ist nicht von mit und ich weiß auch leider nicht mehr woher ich ihn habe. Habe ihn gerade auch abgetippt, von dem her hoffe ich mal, dass alles korrekt und vollständig ist.