请教各位网友,问个Delphi下与internet有关的编程:(0分)

  • 主题发起人 主题发起人 netbug
  • 开始时间 开始时间
N

netbug

Unregistered / Unconfirmed
GUEST, unregistred user!
请看下例:
procedure TForm1.Button1Click(Sender: TObject);
begin
memo1.Clear;
form1.ClientSocket1.Address:='202.104.32.238';
form1.ClientSocket1.Port:=23;
form1.ClientSocket1.Active:=true;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
form1.ClientSocket1.Active:=false;
end;

procedure TForm1.ClientSocket1Read(Sender: TObject;
Socket: TCustomWinSocket);
begin
memo1.Lines.Add(socket.LocalAddress);
memo1.Lines.Add(socket.LocalHost);
memo1.Lines.Add(inttostr(socket.LocalPort));
memo1.Lines.Add(socket.RemoteHost);
memo1.Lines.Add(socket.RemoteAddress);
memo1.Lines.Add(inttostr(socket.RemotePort));
memo1.Lines.Add(socket.ReceiveText);
memo1.Lines.Add(socket.ReceiveText);
end;

procedure TForm1.ClientSocket1Write(Sender: TObject;
Socket: TCustomWinSocket);
begin
socket.SendText('hello');
end;

我在温旧吧下用telnet 202.104.32.238,并为23端口可以远程登陆上,我用此程序
就没有任何动静,甚至连向此端口发送的'hello'、本地及远程的地址都没有显示
出来?请问我该如何做才行?
谢谢。
 
23端口是远程登陆端口,在你的程序中换个端口试一试(>1024),
<<本地及远程的地址都没有显示
要'202.104.32.238'向你发送数据时才有
 
请你能不能提供一个internet的地址与端口,使Delphi可以使用,让我测试一下,谢谢。

 
如果你在一台计算机上运行,IP地址为127.0.0.1。不妨试试。
 
接受答案了.
 
后退
顶部