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?