WONG BODOH NGAKU PINTER: lihat nama dan ip lokal komputer dengan delphi

sekarang saya akan share cara mengetahui nama dan IP lokal komputer kita dengan menggunakan delphi , kebetulan saya juga menemukan skrip ini diinternet jadi skalian saya share langsung biar gak lupa ..!! ^,^ .

langsung aja bikin form kosong lalu tambahkan sebuah button dan sebuah label setelah itu masuk ke script editor .. hapus semua script yang ada .. dan copas dengan skript dibawah kalo sudah jalankan applikasi dengan klik F9

selamat mencoba..!!!

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Button1: TButton;
    Label1: TLabel;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}
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;
procedure TForm1.Button1Click(Sender: TObject);
var Host, IP, Err: string;
begin
if GetIPFromHost(Host, IP, Err) then begin
    label1.caption:='Name : '+Host+'  /  IP : '+IP;
  end
  else
    MessageDlg(Err, mtError, [mbOk], 0);
end;

end.

download source code

WONG BODOH NGAKU PINTER

Selasa, 10 Juli 2012

lihat nama dan ip lokal komputer dengan delphi

Tidak ada komentar:

Posting Komentar