unit1.pas

来自「< Delphi网络通信协议分析与应用实现>>一书的源代码。」· PAS 代码 · 共 47 行

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls,winsock, ExtCtrls;

type
  TForm1 = class(TForm)
    Label1: TLabel;
    EditPresentation: TEdit;
    Label2: TLabel;
    EditResult: TEdit;
    Button1: TButton;
    Label3: TLabel;
    edtHex: TEdit;
    Bevel1: TBevel;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.Button1Click(Sender: TObject);
var
   Host:DWORD;
begin
     Host:=inet_addr(PCHAR(EditPresentation.Text));
     edtHex.Text:=inttohex(host,16);
     EditResult.Text:=Format('%d.%d.%d.%d',
                             [Lo(LOWORD(Host)),
                              Hi(LOWORD(Host)),
                              Lo(HIWORD(Host)),
                              Hi(HIWORD(Host))]);
end;

end.