Jump to content
Fórum Script Brasil
  • 0

Problema ao tentar executar comandos via Socket


devil69

Question

Ola pessoal.

procedure TForm1.ServerSocket1ClientRead(Sender: TObject;
Socket: TCustomWinSocket);
begin
  if socket.receivetext='ligar'then begin
    button1.Click;
  end;
  if socket.receivetext='ver'then begin
    button2.click:
  end;
  if socket.receivetext='fechar'then begin
    button3.click;
  end;
end;
end.

é o seguinte quando eu me conecto com o servidor, consigo uzar o primeiro comando neste caso o button1.click mas os outros já não consigo..alguém sabe porque????

Link to comment
Share on other sites

1 answer to this question

Recommended Posts

  • 0
é o seguinte quando eu me conecto com o servidor, consigo uzar o primeiro comando neste caso o button1.click mas os outros já não consigo..alguém sabe porque????

Este evento vai ocorrer apenas quando uma informação for enviada pelo client. Supostamente, se o cliente manda uma string 'ligar', o servidor recebe a string e executa o button1.click. Para executar outro, outra string deverá ser recebida.

você deve ver como está enviando as mensagens para o servidor - se ela não chegar não será "processada". Observe se você não está enviando com caracteres maiúsculos ou algo assim, pois você testa apenas com a seqüência minúscula.

Também sugiro que você utilize a lógica correta - if .. then .. else - porque não faz sentido receber um único comando e testá-lo para todas as opções. Tão logo seja processado, não há mais o que testar.

procedure TForm1.ServerSocket1ClientRead(Sender: TObject; Socket: TCustomWinSocket);
begin
  if socket.receivetext = 'ligar' then
    button1.Click
  else if socket.receivetext = 'ver' then
    button2.click:
  else if socket.receivetext = 'fechar' then
    button3.click;
end;

Abraços

Link to comment
Share on other sites

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

Guest
Answer this question...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.



  • Forum Statistics

    • Total Topics
      152.1k
    • Total Posts
      651.8k
×
×
  • Create New...