Oncelikle formunuzun Indy Misck yaprağında bulunan IdIPWatch kontrolu,Bir adet listbox,bir adet
timer,bir adet buton ve bir adet status bar (0,1,2 panel acin: 0 in Width sini 250 1 in de 250 yapın esit bolunsun)kontrolleri ekleyin.

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ComCtrls, ExtCtrls, IdBaseComponent, IdComponent,
IdIPWatch;

type
TForm1 = class(TForm)
IdIPWatch1: TIdIPWatch;
Timer1: TTimer;
StatusBar1: TStatusBar;
ListBox1: TListBox;
Button1: TButton;
procedure Button1Click(Sender: TObject);
procedure Timer1Timer(Sender: TObject);
procedure FormCreate(Sender: TObject);

private

public

end;

var
Form1: TForm1;

implementation



procedure TForm1.Button1Click(Sender: TObject);
var
deger:TStrings;
begin
deger:=TStringList.Create;
deger:=IdIPWatch1.IPHistoryList;
ListBox1.Items:=deger;

end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
if IdIPWatch1.IsOnline Then//bağlantı varsa
begin
StatusBar1.Panels[0].Text:=IdIPWatch1.CurrentIP;
StatusBar1.Panels[1].Text:=IdIPWatch1.LocalName;
StatusBar1.Panels[2].Text:=IdIPWatch1.PreviousIP;
end;
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
IdIPWatch1.Active:=true;
end;

end.

acıklama;

• IdIPWatch1.Active
Ağ bağlantısında olabilecek değişiklikleri izlemek icin bu ozelliğe true değerinin
aktarılması gerekecektir.
• IdIPWatch1.IsOnline
Ethernet veya modem bağlantısının var olup olmadığını bu ozellikle kontrol
edebilirsiniz. True değerinin donmesi lokal veya internet bağlantınızın olduğu
anlamını taşımaktadır.
• dIPWatch1.CurrentIP
Bilgisayarınızın o an kullandığı “IP” numarasını oğrenebilmeniz icin
kullanabileceğiniz ozelliktir. Geriye string tip değer donecektir.
• IdIPWatch1.LocalName
Bilgisayarınızın ismini oğrenebileceğiniz ozelliğidir.
• IdIPWatch1.PreviousIP
Bir once kullanılmış olan “IP” numarasını oğrenebilmek icin kullanılan
ozelliğidir. Daha once bilgisayarın kullandığı “IP” numaraları “History”
icerisinde saklanmaktadır (belli bir değere kadar).
• IdIPWatch1.IPHistoryList
History de birikmiş (daha once kullanılmış olan) “IP” numaralarını listelemek
icin kullanılan ozelliğidir. Şayet kurulum aşamasından sonra tek bir “IP” değeri
kullanılımışsa liste boş gelebilir.

calışmalarınızda başarılar.

ALINTIDIR.
__________________