Einzelnen Beitrag anzeigen

codenoob
(Gast)

n/a Beiträge
 
#1

PAnsiChar und PWidechar

  Alt 15. Mai 2015, 16:24
Hi Delphianer's

Ich habe ein codeschnipsel gefunden das sich mit multitreaded sockets befasst.
Sihe unten stehenden code.

Delphi-Quellcode:
function ResolveAddress(Address: String): TInAddr;

implementation

var WSAData: TWSAData;

function ResolveAddress(Address: String): TInAddr;
var
  Host: PHostEnt;
begin
  Result.S_addr := inet_addr(PChar(Address));
  if Result.S_addr = INADDR_NONE then
  begin
    Host := gethostbyname(PChar(Address));
    if Host <> nil then
      Result := PInAddr(Host.h_addr_list^)^;
  end;
end;
Leider bekomme ich vom Compiuler Fehlermeldungen "Inkompatible Typen : 'PAnsiChar' und PWideChar'

wenn ich dann im Code die Zeile
  Result.S_addr := inet_addr(PChar(Address)); und die Zeile

   Host := gethostbyname(PChar(Address)); so umändere

  Result.S_addr := inet_addr('127.0.0.1'); und die Zeile

   Host := gethostbyname('127.0.0.1'); dann funktioniert es.
Was muss ich da genau ändern damit es wieder mit dem String Adress funktioniert?
  Mit Zitat antworten Zitat