spxelecxinf

Origado Jhonas o meu problema está resolvido.

Jhonas obrigado pela resposta! Mas tenho outra dúvida eu já sei como fazer para enviar a mensagem para todos os clientes conectados, mas se eu tiver por exemplo 5 clientes conectados como faco para enviar a mensagem só para o cliente nº 4 e os outros não receberem nada?

Ola a todos! Eu tenho um aplicação cliente servidor usando conexão reversa. cliente: Aqui envio uma menssagem para o servidor até aqui tudo bem! procedure TMainF.Envia1Click(Sender: TObject); begin serversocket1.socket.connections[0].sendText('Hello World'); end; Servidor Aqui é que eu tenho duvidas, poque se tiver mais que um servidor conectado só primeiro é que recebe a mensagem, já o segundo não recebe nada! procedure TForm1.ClientSocket1Read(Sender: TObject; Socket: TCustomWinSocket); var dados:String; begin dados:socket.receiveText; if dados = 'Hello World' then showmesage('Texto recebido'); end; Eu penso que seja algo assim, mas isto não trabalha: procedure TForm1.ClientSocket1ClientRead(Sender: TObject; Socket: TCustomWinSocket); var dados:string; i:integer; str:TstringList; begin dados:=Socket.ReceiveText; str:=TStringList.Create; if dados = 'Hello World' then for I := 0 to str.Count - 1 do if str[I] = Socket.RemoteAddress then begin ShowMessage('Texto Recebido') end; end; Se alguém me puder ajudar agradeço.

Amigo Jhonas! Voce tem razão, a resposta está nos links, peço desculpa pelo incomodo. Resolvido.

Vou explicar melhor o que eu estou tentando fazer… EX:Cliente O cliente envia uma variável msg com o text1 e outra variável caminho que envia a localização do arquivo a ser executado no servidor. procedure TForm1.Abrir1Click(Sender: TObject); var msg,caminho:string; begin msg:='texo1'; caminho:='c:\arquivo'; cs.Socket. sendText(msg+caminho); EX: Servidor Agora o servidor recebe a variável msg=texto1 e caminho=c:\arquivo, mas quando o servidor recebe as variáveis do cliente mas elas vêm juntas, existe alguma forma de contornar este problema? Nos links acima citados não encontro uma resposta a este problema. procedure TForm1.sSRead(Sender: TObject; Socket: TCustomWinSocket); var dados: string; begin dados:=Socket.ReceiveText; if dados = 'text1' then begin try ShellExecute(0,nil,'C:\arquivo'nil,nil,SW_show); {EX: ShellExecute(0,nil,pchar(caminho)nil,nil,SW_show);} socket.SendText('O arquivo Foi executado com sucesso!'); except socket.SendText('O Aquivo não foi executado com sucesso!') end; exit; end; Penso que agora me fiz entender, agradeço a reciprocidade.

Olá a todos mais uma vez! Após ter estudado a matéria que estão nos links continuo sem resposta ao meu problema, se houver outra sugestões agradeço.

Olá a todos. A minha dúvida é a seguinte, eu tenho um programa cliente e um servidor estou utilizando os componentes da paleta Internet o TClientSocket e TServerSocket. Através do programa cliente eu quero enviar duas strings, para o servidor, e quero recebe-las em separado. Desde já quero informar que tenho muito pouca experiência na área da programação. Mas estou estudando, já fiz um mini curso de lógica de programação e agora estou querendo aprender a programar em ambiente Windows. Ex: Cliente procedure Project.CSClientConnect(Sender: TObject; Socket: TCustomWinSocket); var msg : array [1..2] of string; begin msg[1] := 'dados1'; msg[2] :=’dados2’; ClientSocket.Socket.sendtext(msg[1]); ClientSocket.Socket.sendtext(msg[2]); end; end. EX: Servidor procedure Project.SSClientConnect(Sender: TObject; Socket: TCustomWinSocket); var dados:string; begin dados:=socket.ReceiveText; end; end. Como faço para receber no servidor as duas strings separadas.. Agradeço a atenção, sem outro assunto de momento.