X
xiaoxiami0
Unregistered / Unconfirmed
GUEST, unregistred user!
procedure TForm1.btnfingerClick(Sender: TObject);
begin
nmfinger1.ReportLevel:=status_basic;
nmfinger1.TimeOut:=2000;
nmfinger1.Host:=edthost.text;
nmfinger1.Port:=79;
nmfinger1.user:=edtjuser.text;
meminfo.text:=nmfinger1.FingerStr;
meminfo.refresh;
end;
procedure TForm1.NMFinger1Connect(Sender: TObject);
begin
statusbar1.SimpleText:='connected';
end;
procedure TForm1.NMFinger1ConnectionFailed(Sender: TObject);
begin
showmessage('connection failed');
end;
procedure TForm1.NMFinger1Disconnect(Sender: TObject);
begin
if statusbar1<>nil then
statusbar1.SimpleText:='disconnected';
end;
procedure TForm1.NMFinger1HostResolved(Sender: TComponent);
begin
statusbar1.SimpleText:='host resolved';
end;
procedure TForm1.NMFinger1Status(Sender: TComponent; Status: String);
begin
if statusbar1<>nil then
statusbar1.SimpleText:=status;
end;
procedure TForm1.NMFinger1InvalidHost(var Handled: Boolean);
begin
statusbar1.SimpleText:='invalidhost,input infomation again';
end;
begin
nmfinger1.ReportLevel:=status_basic;
nmfinger1.TimeOut:=2000;
nmfinger1.Host:=edthost.text;
nmfinger1.Port:=79;
nmfinger1.user:=edtjuser.text;
meminfo.text:=nmfinger1.FingerStr;
meminfo.refresh;
end;
procedure TForm1.NMFinger1Connect(Sender: TObject);
begin
statusbar1.SimpleText:='connected';
end;
procedure TForm1.NMFinger1ConnectionFailed(Sender: TObject);
begin
showmessage('connection failed');
end;
procedure TForm1.NMFinger1Disconnect(Sender: TObject);
begin
if statusbar1<>nil then
statusbar1.SimpleText:='disconnected';
end;
procedure TForm1.NMFinger1HostResolved(Sender: TComponent);
begin
statusbar1.SimpleText:='host resolved';
end;
procedure TForm1.NMFinger1Status(Sender: TComponent; Status: String);
begin
if statusbar1<>nil then
statusbar1.SimpleText:=status;
end;
procedure TForm1.NMFinger1InvalidHost(var Handled: Boolean);
begin
statusbar1.SimpleText:='invalidhost,input infomation again';
end;