Coding Menampilkan IP di Project jadi langsung aja tanpa basa basi



1. Tambahkan 1 Timer dan 1 Label pada project

2. Tambahkan winsock di uses

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


Tambahkan code di timer / klik 2x pada timer :


pada label1 diatas sesuaikan dengan label yang anda pakai

(12-24-2013 10:51 AM)suryadewa Wrote:  Coding Menampilkan IP di Project jadi langsung aja tanpa basa basi



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?

kalo menampilkan ip ssh nya gmna gan??jdi bkan ip opsel tpi ip ssh nya gt?

(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



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

oh gini caranya biar muncul IP di injek or project VB heheh..lumayan bermanfaat