错了不是; 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;
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;
如果换控件应该用什么呢?
能实现这种功能的控件很多,你也可以用nmmsg 和 nmmsgserv ,nmstrm 和 nmstrmserv