Senin, 30 Maret 2015

Download Source Code Cara Menampilkan IP Di Delphi 7

Download Source Code Program Cara Menampilkan IP Di Borland Delphi 7 sebelumnya juga sudah saya share seputar Cara Membuat Aplikasi Software Menjadi Portable Dengan Winrar 2015 ok tanpa panjang lebar lagi bagi anda yang membutuhkan source codenya silahkan bisa anda ambil dibawah dan berikut adalah listing codingnya.

Source Code Program Cara Menampilkan IP Di Borland Delphi 7
Komponen Yang Digunakan: Label (1), Timer (1)

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Label1: TLabel;
    Timer1: TTimer;
    procedure Timer1Timer(Sender: TObject);
    procedure FormCanResize(Sender: TObject; var NewWidth,
      NewHeight: Integer; var Resize: Boolean);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}
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;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
Label1.Caption:=getips.Text;
end;

procedure TForm1.FormCanResize(Sender: TObject; var NewWidth,
  NewHeight: Integer; var Resize: Boolean);
begin
 resize:=false;
end;

end.

Postingan Selanjutnya: Source Code Cara Membuat Multy Select Skin Manager di Delphi 7

Untuk Download source codenya silahkan ambil DISINI atau DISINI pass rarnya adalah www.indoblog.me Hanya Itu Saja Info seputar Download Source Code Cara Menampilkan IP Di Delphi 7 2015 Semoga bermanfaat dan membantu terima kasih.