Menampilkan IP Address dan Nama Komputer dengan Delphi 7

Mungkin ada diantara agan-agan bingung atau tidak tahu cara menampilkan IP address dan Nama Komputer dengan Projek delphi berikut akan saya pandu cara menampilkan IP address dan nama komputer dengan Delphi 7. seperti biasa Tutorial akan di lengkapi juga dengan Video. Langsung saja saya kita mulai.

hal-hal yang dibutuhkan
1.komponent status bar
2. satu buah timer
3. projek kosong atau projek yang akan digunakan untuk melihat IP address dan Nama Komputer. sini saya menggunakan projek injek telkomsel sederhana contoh projeknya bisa pada gambar dibawah ini:


langsung saja kita mulai
1. Buka projek delphi anda atau buat projek baru dengan delphi
2. Tambahkan  Status bar dari komponen win32 (lihat gambar)

3. Bagi status bar menjadi 2 panel, caranya klik dua kali pada status bar yang sudah ditambahkan ke dalam projek delphi, kemudian add new (ins) sebanyak dua sehingga menjadi seperti ini.

4. silahkan diatur panjang panel sesuka hati.
5. Tambahkan Winsock kedalam Uses secara manual. (lihat gambar dan perhatikan yang digaris bawah warna merah)
6. Tepat dibawah {$R *.dfm} masukkan source code berikut :

function GetIPFromHost (var HostName, IPaddr, WSAErr: string): Boolean;
type
  Name = array[0..100] of Char;
  PName = ^Name;
var
  HEnt: pHostEnt;
  HName: PName;
  WSAData: TWSAData;
  i: Integer;
begin
  Result := False;
  if WSAStartup($0101, WSAData) <> 0 then begin
    WSAErr := 'Winsock is not responding."';
    Exit;
  end;
  IPaddr := '';
  New(HName);
  if GetHostName(HName^, SizeOf(Name)) = 0 then
  begin
    HostName := StrPas(HName^);
    HEnt := GetHostByName(HName^);
    for i := 0 to HEnt^.h_length - 1 do
     IPaddr :=
      Concat(IPaddr,
      IntToStr(Ord(HEnt^.h_addr_list^[i])) + '.');
    SetLength(IPaddr, Length(IPaddr) - 1);
    Result := True;
  end
  else begin
   case WSAGetLastError of
    WSANOTINITIALISED:WSAErr:='WSANotInitialised';
    WSAENETDOWN      :WSAErr:='WSAENetDown';
    WSAEINPROGRESS   :WSAErr:='WSAEInProgress';
   end;
  end;
  Dispose(HName);
  WSACleanup;
end;



7. Masukkan Komponen Timer dari system kemudian double click

8. masukkan variable berikut kedalam timer (antara procedure TForm1.Timer1Timer(Sender: TObject) dengan begin)

var Host, IP, Err: string;



9. diantara begin dan end; masukkan source code berikut

    if GetIPFromHost(Host, IP, Err) then begin
   statusbar1.Panels[0].Text:=Host  ;
   statusbar1.Panels[1].Text:=IP;
  end
  else
    MessageDlg(Err, mtError, [mbOk], 0);






9. Selesai, silahkan uji coba projek anda

bagi anda yang membutuhkan contoh projeknya silahkan didownload melalui link berikut:
Projek Injek Sederhana + Skin.rar - 1.3 MB



 Jika masih bingung juga silahkan simak tutorial berikut dengan video

tag: Tutorial menampilkan IP dan Nama Komputer dengan delphi

Category: Download, Proxy, Sock, SSH, Tips Trik Komputer, Trik Internet, VPN