Suche WSocket unit für D2010 (Unicode)

[pertzschc]

Zitat von Klaus01:

..magst Du wsockets.pas nicht selber anpassen.

Ich habe es versucht: PChar -> PAnsiChar und Char -> AnsiChar.

Zitat von Klaus01:

Welche Fehler bekommst Du denn, wenn Du die Unit benutzt?

[DCC Fehler] WSockets.pas(909): E2010 Inkompatible Typen: 'Array' und 'PAnsiChar'
bei ->:

Delphi-Quellcode:

function TCustomWSocket.GetLocalHostAddress: string;
var
  SockAddrIn: TSockAddrIn;
  HostEnt: PHostEnt;
  szHostName: array[0..128] of AnsiChar;
begin
->  if gethostname(szHostName, 128) = 0 then
  begin
    HostEnt := gethostbyname(szHostName);
    if HostEnt = nil then
      Result := ''
    else
    begin
      SockAddrIn.sin_addr.S_addr := longint(plongint(HostEnt^.h_addr_list^)^);
      Result := inet_ntoa(SockAddrIn.sin_addr);
    end;
  end
  else
    SocketError(WSAGetLastError);
end;

Gruß, Christoph