简单问题.

Question

function TForm1.GetIPByName(HostName: string): widestring;
var
  WSAData: TWSAData;
  HostEnt: PHostEnt;
begin
  result:='';
  WSAStartup(2, WSAData);
  HostEnt := gethostbyname(PChar(HostName));
  if HostEnt <> nil then
  begin
  with HostEnt^ do
    result:= Format('%d.%d.%d.%d', [Byte(h_addr^[0]), Byte(h_addr^[1]), Byte(h_addr^[2]), Byte(h_addr^[3])]);
  end;
  WSACleanup;
end;执行到WSAStartup(2, WSAData);就出错. access violation

Answer 1

我搞明白了我use了idwinsock,应该use winsock就可以了晕啊,接贴