Tutorial Mengecek IP Adress

ini adalah tutorial mengecek IP adress dengan Delphi7

komponen yang saya pakai adalah TLabel, TEdit, dan TButton.

Berikut adalah contoh yang saya buat :

syntax-nya adalah sebagai berikut :

unit Unit1;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, StdCtrls;

type

TForm1 = class(TForm)

Button1: TButton;

Label1: TLabel;

Edit1: TEdit;

procedure Button1Click(Sender: TObject);

private

function LocalIP: string;

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

implementation

uses Winsock;

{$R *.dfm}

function TForm1.LocalIP : string;

type 

TaPInAddr = array [0..10] of PInAddr;

PaPInAddr = ^TaPInAddr;

var 

phe : PHostEnt;

pptr : PaPInAddr;

Buffer : array [0..63] of char;

I : Integer;

GInitData : TWSADATA;

begin

WSAStartup($101, GInitData);

Result := '';

GetHostName(Buffer, SizeOf(Buffer));

phe :=GetHostByName(buffer);

if phe = nil then 

begin

Exit;

end; 

pptr := PaPInAddr(Phe^.h_addr_list);

I := 0;

while pptr^[I] <> nil do

begin 

result:=StrPas(inet_ntoa(pptr^[I]^));

Inc(I);

end;

WSACleanup;

end;

procedure TForm1.Button1Click(Sender: TObject);

begin

Edit1.Text := LocalIP;

end;

end.

lalu compile dengan ctrl+F9 , dan inilah hasil Running Programnya :)

SELAMAT MENCOBA & GOOD LUCK :)