Menampilkan Nama Komputer dan IP Address di Inject Delphi

Langkah Pertama silahkan buka Delphi anda atau Project anda yang sudah dibuat sebelumnya, lalu Langsung perhatikan menuju tulisan WIN32 lalu tambahkan status bar double klik dan lihat lajurnya seperti gambar dibawah ini:

Langkah yang kedua kemudian bagi status bar anda menjadi dua form atau 2 panel seperti dibawah ini dengan cara mengklik status bar yang sudah anda tambahakan pada langkah 1 diatas double klik saja harus seperti nampak gambar dibawah ini, lalu pada status bar 1 lagi klik add new ans dan harus menjadi  status 2 panel kaya gambar editing.

Langkah yang ketiga lalu pindahke Init1.pas atau carai saja tulisan user dibawah interface kaya gambar dibawah ini lalu tambahkan tulisan WINSOCK secara manual jadi anda harus ketik secara manual lihat gambar dibawah ini:

Langkah yang keempat lalu cari tulisan {$R *.dfm} tepat dibawah tulisan implementation, lihat gambar dibawah ini, lalu masukan source kode dibawah:

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

Langkah yang kelima klik SYSTEM lalu tambahkan timer atau gambar jam dengan double klik, lihat gambar dibawah ini, lalu double klik gambar jamnya.

Langkah yang keenam setelah anda mendouble klik gambar jamnya, lalu masukan source kode var Host, IP, Err: string; tepat dibawah procedure TForm1.Timer1Timer(Sender: TObject) lalu masukan sorce kode ifGetIPFromHost(Host, IP, Err) then begin

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

Tepat dibawah begin, atau kode lengkapnya bisa anda lihat di gambar atau dibawah gambar ini

procedure TForm1.Timer1Timer(Sender: TObject)

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

Langkah yang terakhir lalu klik ran gambar Segitiga, jika tidak ada yang error atau benar seharusnya previewnya seperti gambar dibawah ini, dan kalau berhasil silahkan save atau save as project anda.

Tutorial ini akan masih berlanjut karena masih banyak yang harus ditambahkan setelah ini misal cara menambahkan player musik disana, pasang alpaskin, pasang auto route, atau bahkan pasang bugs manual host juga bisa dan lain sebaginnya, jadi ditunggu saja ya.

Dan hanya itu saja info seputar Cara Menampilkan Nama Komputer dan IP Address di Inject Delphi 2015 semoga bermanfaat dan membantu dan jika bermanfaat silahkan share dan bagikan ke rekan dan sekaligus buat pacar anda, terima kasih ^_^

Demikianlah Artikel tentang Menampilkan Nama Komputer dan IP Address di Inject Delphi

Sekian dulu artikel tentang Menampilkan Nama Komputer dan IP Address di Inject Delphi, mudah - mudahan bisa memberi manfaat untuk anda semua. jika anda masih binggung atau belum jelas tentang artikel yang saya sampaikan anda bisa berkomentar dan jika anda juga ingin requset tentang beberapa ( Akun SSH Premium,inject PC,Config Http injector,Config KPN,config Eproxy.config Open VPN dan tips dan trick ). di kolom komentar. jika artikel yang saya berikan bermanfaat dan berguna anda juga bisa share artikel saya ke teman teman anda semua ( berbagi itu indah )

• Tweet
• Share
• Share
• Share
• Share

About Admin

Halo Sobat Blogger, Saya Hanyalah Seorang Blogger Pemula dan Saya Berharap Anda dan Saya Bisa Berhasil dan Sukses Kedepannya. Selamat Datang Teman Teman Dan Terima Kasih Sudah Berkunjung Diblog Website kami.

Related Post