求助:网络编程

Question

将域名(DNS)解释成IP地址,去哪找这方面的知识??快快,急

Answer 1

unit UnitDNS;interfaceuses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, Winsock;type
  TFormMain = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    EditPresentation: TEdit;
    EditResult: TEdit;
    edtHost:TEdit;
    BtnGetHostByName: TButton;
    Label3: TLabel;    procedure FormCreate(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
    procedure BtnGetHostByNameClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;var
  FormMain: TFormMain;implementation{$R *.DFM}procedure TFormMain.FormCreate(Sender: TObject);
Var
   WSAData:TWSAData;
begin
     //initiates use of WS2_32.DLL
     if (WSAStartup(MAKEWORD(2,0),WSAData)<>0) then
        raise Exception.Create('Winsock Version Error');
end;procedure TFormMain.FormDestroy(Sender: TObject);
begin
     WSACleanUP;
end;
procedure TFormMain.BtnGetHostByNameClick(Sender: TObject);
var
   Host: pHostent;
   ConsultResult:String;
   Err:Integer;
begin
     Try
        Host := GetHostByName(PChar(EditPresentation.Text));
     Except
        Err:=WSAGetLastError();
        EditResult.Text:='Error Code:'+InttoStr(Err);
        Exit;
     end;
     if Host=NIL then
     begin
        EditResult.Text:='Host does not exist';
        exit;
     end;
     ConsultResult:=Copy(Host.h_addr^,0,4);
     EditResult.Text:=Format('%d.%d.%d.%d',
                              [ord(ConsultResult[1]),
                               ord(ConsultResult[2]),
                               ord(ConsultResult[3]),
                               ord(ConsultResult[4])]);
     edtHost.Text:=Host.h_name;
end;end.DELPHI网络编程中的第五章源码．

Answer 2

MSDN里什么都有，自己查吧！
或者参考DEPHI中的help -> windows SDK