连接上网成功后会产生什么事件或者消息？

Question

又即：如果需要用此软件实现PPPoE拨号，有什么好的控件或者方法推荐吗？好像我开没看见有能够PPPoE拨号的控件。

Answer 1

procedure TForm1.Button1Click(Sender: TObject);
begin
  if TCP1.LocalIp = '0.0.0.0' then 
   ShowMessage('Your not connected!');
  else 
   ……;
end;

Answer 2

使用函数RasConnectionNotification可以监视上网消息,可惜只对Modem拨号有效,帮你UP一下.

Answer 3

procedure TForm1.Button1Click(Sender: TObject);
begin
if findcomputer(edit1.text) then
showmessage(edit1.text+'在网上')
else
showmessage(edit1.text+'不在网上');
end;function TForm1.Findcomputer(Computername:string):boolean;
var wsadata:twsadata;
hostent:phostent;
begin
result:=true;
wsastartup(2,wsadata);
hostent:=gethostbyname(pchar(computername));
if hostent=nil then result:=false;
wsacleanup;
end;
要用到winsock单元