[suryadewa]

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

[yoan]

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?

[kasara]

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

[suneo_honekawa]

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

[shenjai47]

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