另一个客户如何回应指定的客户?
请帮助。
客户端:
procedure TForm1.Button2Click(Sender: TObject);
begin
tAProfile.SendString(tManager.RemoteProfiles.First,'cSend3','Sent by CLIENT 3'); //Send to client 3
end;
procedure TForm2.tAProfileResourceReceived(const Sender: TObject;
const AResource: TRemoteResource);
var i:integer;
begin
if AResource.Hint='cSend3' then
begin
Label1.Text:=AResource.Value.AsString;
tAProfile.SendString(tManager.RemoteProfiles[1],'client','Sent by client'); //Send to Client
end;
end;