Thread Rating:
  • 0 Vote(s) - 0 Average
  • 1
  • 2
  • 3
  • 4
  • 5
Coding Menampilkan IP di Project
#1
Coding Menampilkan IP di Project jadi langsung aja tanpa basa basi

[Image: Untitled.png]

1. Tambahkan 1 Timer dan 1 Label pada project

2. Tambahkan winsock di uses

3. Tambahkan kode ini tepat di bawah {$R *.dfm}

Code:
function getIPs: Tstrings;
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 := TstringList.Create;
  Result.Clear;
  GetHostName(Buffer, SizeOf(Buffer));
  phe := GetHostByName(buffer);
  if phe = nil then Exit;
  pPtr := PaPInAddr(phe^.h_addr_list);
  I    := 0;
  while pPtr^[I] <> nil do
  begin
    Result.Add(inet_ntoa(pptr^[I]^));
    Inc(I);
  end;
  WSACleanup;
end;

Tambahkan code di timer / klik 2x pada timer :

Code:
Label1.Caption:=getips.Text;

pada label1 diatas sesuaikan dengan label yang anda pakai
[Only registered and activated users can see links Click here to register]
Reply
#2
(12-24-2013, 10:51 AM)suryadewa Wrote: Coding Menampilkan IP di Project jadi langsung aja tanpa basa basi

[Image: Untitled.png]

1. Tambahkan 1 Timer dan 1 Label pada project

2. Tambahkan winsock di uses

3. Tambahkan kode ini tepat di bawah {$R *.dfm}

Code:
function getIPs: Tstrings;
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 := TstringList.Create;
  Result.Clear;
  GetHostName(Buffer, SizeOf(Buffer));
  phe := GetHostByName(buffer);
  if phe = nil then Exit;
  pPtr := PaPInAddr(phe^.h_addr_list);
  I    := 0;
  while pPtr^[I] <> nil do
  begin
    Result.Add(inet_ntoa(pptr^[I]^));
    Inc(I);
  end;
  WSACleanup;
end;

Tambahkan code di timer / klik 2x pada timer :

Code:
Label1.Caption:=getips.Text;

pada label1 diatas sesuaikan dengan label yang anda pakai
mas surya, ane kurang ngerti. ada ngk tutornya lewat video?
Reply
#3
kalo menampilkan ip ssh nya gmna gan??jdi bkan ip opsel tpi ip ssh nya gt?
Reply
#4
(12-24-2013, 06:32 PM)yoan Wrote:
(12-24-2013, 10:51 AM)suryadewa Wrote: Coding Menampilkan IP di Project jadi langsung aja tanpa basa basi

[Image: Untitled.png]

1. Tambahkan 1 Timer dan 1 Label pada project

2. Tambahkan winsock di uses

3. Tambahkan kode ini tepat di bawah {$R *.dfm}

Code:
function getIPs: Tstrings;
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 := TstringList.Create;
  Result.Clear;
  GetHostName(Buffer, SizeOf(Buffer));
  phe := GetHostByName(buffer);
  if phe = nil then Exit;
  pPtr := PaPInAddr(phe^.h_addr_list);
  I    := 0;
  while pPtr^[I] <> nil do
  begin
    Result.Add(inet_ntoa(pptr^[I]^));
    Inc(I);
  end;
  WSACleanup;
end;

Tambahkan code di timer / klik 2x pada timer :

Code:
Label1.Caption:=getips.Text;

pada label1 diatas sesuaikan dengan label yang anda pakai
mas surya, ane kurang ngerti. ada ngk tutornya lewat video?

bingung dimananya om
itu dh lengkap...

tinggal copy paste aja hehe
Reply
#5
oh gini caranya biar muncul IP di injek or project VB heheh..lumayan bermanfaat
Reply
  


Possibly Related Threads…
Thread Author Replies Views Last Post
  Membuat Warna Trafik pada Project suryadewa 14 1,217 10-14-2015, 06:54 PM
Last Post: raditya
Sad [Share] Source Code Menampilkan Detail Info PC [DELPHI XE5] assasaha 8 685 10-14-2015, 06:31 PM
Last Post: wawan740