各位大侠请帮我改改的internet程序

Question

在用 Tclientsocket Tserversocket 时我也发现该问题，
换别的控件就没事了。也可以找现成的控件。

Answer 1

错了不是；
TForm1.Button1Click(Sender: TObject);
begin
if serversocket1.Active then serversocket1.Active:=false;with clientsocket1 do
begin
//本机
address := '127.0.0.1';
post := 8848
active:=true;
clientsocket1.Socket.SendText('123');end;
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
if clientsocket1.Active then clientsocket1.Active:=false;
with serversocket1 do
begin
//service:='loveland-g2aqql';
post := 8848;
active:=true;
end;
end;

Answer 2

好愁啊　我按newyj(方恨少；寻找第二把刷子的人)　的程序改了一下程序又报错为asynchronous socket error 10061 ＤＥＬＰＨＩ这样报错上哪可以找到错误原因呢？
如果换控件应该用什么呢？

Answer 3

如果改不了　可以告诉我如何实现client/server 之间传递字符的程序也可以啊

Answer 4

我也试过 clientsocket  serversocket ，是不好用。
能实现这种功能的控件很多，你也可以用nmmsg 和 nmmsgserv ,nmstrm 和  nmstrmserv