cBandiT
Сообщений: 15
Оценки: 0
Присоединился: 2004-08-12 15:08:02
|
procedure TFServer.TcpServer1Accept - тут отправка собщений работает!!!
а когда хочу сам отправить типа
procedure TFServer.TVUsersChange
var
ClientSocket: TCustomIpClient;
begin
if TcpServer1.active = false then
begin
TcpServer1.RemoteHost := Rip;
TcpServer1.RemotePort := Rport;
TcpServer1.Active := True;
ClientSocket.Sendln(''i#'');
end;
end; - вроде бы как бы и отправляется но на клиента ничего не приходит [sm=11.gif]!!!
procedure TFClient.TcpClient1Receive(Sender: TObject; Buf: PAnsiChar;
var DataLen: Integer);
begin
LBMessages.Items.Add(TcpClient1.Receiveln);
end;
|
TcpServer(TcpClient) - 
