Programinha pra verificar a conexao em rede

Question

Preciso fazer um programinha bem simples, e precisaria de umas id�ias.Preciso fazer um programinha assim: numa m�quina ficar� um servidor, pode ser idTCP ou qualquer outrona outra m�quina ficar� um cl...

Massuda · Answer

[quote:02ab67e090=�vitor^_^�]1) depois do client conectado, ele n�o percebe que foi desconectado, s� se tentar enviar um dado...[/quote:02ab67e090]Infelizmente, esse � o modo de funcionamento do TCP... voc� s� percebe que est� desconectado se tentar comunicar com o servidor (e vice versa).

O que voc� pode fazer � enviar periodicamente algo do cliente para o servidor (isso � o PING) ou mandar algo do servidor para o cliente (geralmente isso se chama KEEP ALIVE); o PING � mais f�cil de fazer.

No cliente, coloque um timer e periodicamente envie o PING para o servidor; fa�a o servidor responder algo �til (costuma-se por algo relacionado com tempo, assim d� para medir quanto tempo demora para ir do cliente para o servidor).

[quote:02ab67e090=�vitor^_^�]... eu n�o vou colocar um timer pra ficar fazendo isso.[/quote:02ab67e090]N�o sei como faria sem um timer.

Vitor Rubio · Answer

Beleza, digamos que vamos fazer com timer mesmo.
Eu envio um comando ou mensagem do client pro server, mas eu n�o sei como fazer pro server responder, nem como pegar essa resposta no client. Alem disso, mesmo com o server desativado, a m�quina ainda pode estar na rede....

Massuda · Answer

[quote:e2a81af454=�vitor^_^�]...n�o sei como fazer pro server responder, nem como pegar essa resposta no client.[/quote:e2a81af454]O jeito mais f�cil � fazer o cliente enviar algo simples, por exemplo, �PING�.

No TidTCPServer, no Object Inspector, selecione a propriedade CommandHandlers e d� um clique duplo (ou clique no bot�o com ...); clique no bot�o �Add new�. No Object Inspector, na propriedade Command, digite PING e na propriedade Response d� um clique duplo (ou clique no bot�o com ...) e digite OK. Isso deve ser suficiente se voc� n�o criou um (tratador de) evento para o evento OnExecute do servidor.

[quote:e2a81af454=�vitor^_^�]...Alem disso, mesmo com o server desativado, a m�quina ainda pode estar na rede....[/quote:e2a81af454]Concordo, com isso, mas acho que a� o problema seria outro, tamb�m �f�cil� de resolver. O problema seria garantir que o servidor est� sempre rodando. Nesse caso, voc� pode fazer algo como oIBGuardian do Interbase, que � um programa que checa se o servidor IB est� rodando e, se ele n�o estiver, ele iniciar o servidor. Ou voc� est� pensando em algo diferente?

Vitor Rubio · Answer

N�o, eu posso fazer desse jeito mesmo, o que eu preciso n�o � t�o sofisticado assim, eu estou fazendo a conex�o pela porta 6666, que eu escolhi aleatoreamente.
Apenas, se fosse possivel saber se a m�quina do servidor est� conectada, por qualquer protocolo ou porta (tipo pingar ele) eu gostaria de aprender como.

Com rela��o �PING�, beleza, o idTCPServer vai me responder �OK�, mas como eu pego esse �OK� no meu client? tem q dar readln no server?

Massuda · Answer

[quote:14ea743414=�vitor^_^�]...como eu pego esse �OK� no meu client? tem q dar readln no server?[/quote:14ea743414]O jeito mais simples � dar um WriteLn seguido de um ReadLn no cliente. Se a conex�o tiver sido terminada, o WriteLn falhar�; se n�o tiver resposta (defina um valor razo�vel de timeout), algo muito ruim aconteceu no seu servidor.

Vitor Rubio · Answer

se o writeln falhar, � porque t� desconectado, se n�o tiver resposta, � porque o programa server n�o est� funcionando! beleza, isso resolve!Valeu Massuda!...

Vitor Rubio · Answer

A� massuda, outra d�vida:criei um comandinho �snap� que quando eu mando para o server, o server faz um snapshot da sua tela atual, joga num bitmap e depois joga numa memory stream.como eu fa�o pra passar essa stream do servidor pro cliente?Assim eu poderia visualizar numa form...Valew!...

Massuda · Answer

[quote:f92bc1dc0b=�vitor^_^�]como eu fa�o pra passar essa stream do servidor pro cliente?[/quote:f92bc1dc0b]Na conex�o, al�m do WriteLn/ReadLn tem um WriteStream/ReadStream. Na hora de enviar fa�a algo assim...

SuaStream.Position := 0; // posiciona no in�cio
SuaConex�o.WriteInteger(SuaStream.Size);
SuaConex�o.WriteStream(SuaStream);

...e na hora de ler...

var
  Size: Integer;
...
  Size := SuaConex�o.ReadInteger;
  SuaConex�o.ReadStream(SuaStream, Size);

Vitor Rubio · Answer

Massuda, eu testei aquilo que voc� falou, mas n�o deu certo:
primeiro porque o server n�o tem os m�todos writeinteger e writestream, ent�o eu tive que adicionar um client no programa servidor pra escrever os dados no proprio server. (acho que isso deve ser normal)

Depois disso, ao usar o client para escrever a stream no server, ocorre uma exception dizendo que foi excedido o n�mero m�ximo de linhas que pode ser enviado. N�o adianta eu setar a propriedade maxlinelength pra 0 ou -1, continua com o mesmo erro. (alem disso eu acho que essa propriedade � o tamanho maximo de uma linha, e n�o omaximo de linhas)

Continuo sem saber como enviar e receber um stream. meu stream n�o � muito grande, o n�mero de bytes n�o chega nem perto de exceder o limite de um integer. Ali�s, ele tem uns 50000 bytes no m�ximo.

Obrigado pela for�a! ^^

Firekiller · Answer

Sei que se o que vou dizer, seria meio que pedir pra se retroagir, mas, l� vai... Se voc� estiver usando CLientSocket e ServerSockert (palheta Internet), voc� envia o stream, assim ServerSocket.Socket.SendStream() ou ent�o use SendBuf(). Para receb�-lo, coloque assim no evento OnRead do ClientSocket (ou ClientRead do ServerSocket)

var
s:TMemoryStream;
b:String;
i:Integer;

s := TMemorySTream.create;
i := Socket.ReceiveLength;
while i > 0 do begin
Socket.ReceiveBuf( b , i);
s.WriteBuf( b , length(b) );
sleep(200);
i := Socket.ReceiveLength;
end;

Estes componentes s�o mais simples para se trabalhar (pelo menos na minha opini�o), por�m j� est�o deixados de lado... atualmente utiliza-se os da palheta Indy mesmo (os que voc� est� usando), por�m eu acho eles mais complicados.

Vitor Rubio · Answer

Eh... nem tudo que � novo � melhor ou mais �til s� porque � novo.... mas esses componentes que voc� citou eu nunca usei na minha vida ... e como todas as outras funcionalidades do programa est�o prontas, so faltava essa, seria meio dificil migrar de componentes agora. Vou ver se alguem sabe mandar e receber streams usando indy, se n�o aparecer ninguem, vou tentar migrar tudo o que eu j� fiz do jeito que voc� explicou.

Obrigado pela ajuda :wink:

Massuda · Answer

N�o testei, mas isso deve transferir uma stream do servidor para o cliente...

// no comando SNAP do servidor
procedure TForm1.IdTCPServer1CmdSnapCommand(ASender: TIdCommand);
var
  Stream: TMemoryStream;
begin
  Stream := TMemoryStream.Create;
  try
    // gera um bitmap e copia para Stream

    Stream.Position := 0; // posiciona no in�cio
    ASender.Thread.Connection.WriteInteger(Stream.Size);
    ASender.Thread.Connection.WriteStream(Stream);
  finally
    Stream.Free;
  end;
end;

// no cliente

procedure TForm2.PedeSnapshot(var ASnapshot: TBitmap);
var
  Stream: TMemoryStream;
  Size: Integer;
begin
  Stream := TMemoryStream.Create;
  try
    IdTCPClient1.Writeln(�SNAP�);
    Size := IdTCPClient1.ReadInteger;
    IdTCPClient1.ReadStream(Stream, Size);

    // copia o bitmap da Stream
  finally
    Stream.Free;  
  free;
end;

Vitor Rubio · Answer

Massuda, eu acho que esse c�digo at� deve funcionar, mas o problema � o seguinte: o meu cliente fica �conversando� com o servidor, sempre mandando o comando ping e recebendo de volta a string �ok�+ a hora.

Quando eu paro a execu��o dos 2 timers (cliente e servidor) ainda tem um monte de strings �ok� na fila. Se eu sou um writeinteger no servidor, ele entra depois desses �ok�. Se eu dou um readinteger no cliente, ele vai tentar transformar esses 8 bytes te texto num n�mero, transsformando assim num n�mero esdr�xulo e uma stream errada.

precisaria saber como se limpa as linhas do server.

mas estamos quase conseguindo ^^

Massuda · Answer

[quote:398fe5ff32=�vitor^_^�]o meu cliente fica �conversando� com o servidor, sempre mandando o comando ping e recebendo de volta a string �ok�+ a hora. Quando eu paro a execu��o dos 2 timers (cliente e servidor) ainda tem um monte de strings �ok� na fila.[/quote:398fe5ff32]com que frequencia voc� manda o ping? Porque tem 2 timers?

Vitor Rubio · Answer

Conseguiiiiiiii Massudaaa!!!Eu nem expliquei direito como que o programa funcionava, seguinte:Tenho um banco de dados interbase num servidor que todo mundo (as outras m�quinas) conhecem e sabem onde est�. Tem uma tabela nesse banco que meu programinha server fica gravando o endere�o IP dele a cada 30 minutos (isso porque o ip pode mudar quando a m�quina for reiniciada, � dinamico).  � por isso que tem timer no server tamb�m. Nada haver n�? Ali�s, esqueci de falar, ambos, tanto o client como o server iniciam junto com o windows, porque eu criei uma entrada l� no run do registro.A cada 2 segundos o cliente �pinga� o server, se n�o conseguir conex�o, ele verifica na tabela do banco de dados interbase se o IP n�o mudou, se mudou ele pega o novo, se mesmo assim ele n�o conseguir conectar ele desiste. Ah, antes de pingar a primeira vez ele verifica qual � o primeiro ip que t� l� n�? (d�n).Bom, eu consegui mandar e ler a stream fazendo uma gambiarra. Eu poderia usar um outro server em outra porta pra isso, e outro client, mas o que eu fiz: Quando eu congelo os 2 timers, eu dou um write(�|�) no server (n�o writeln). No cliente eu dou um readln(�|�). Ou seja, como o novo terminador � �|� ao inv�s de #13, ele vai ler todos os bytes at� encontrar o �|�, inclusive ele mesmo. O �nico problema � se minha stream contiver um �|� tamb�m.... mas a� � muita sacanagem do murphy hauahau.Depois de mandar/receber os streams, eu mando/recebo um �|� de novo, pra zerar tudo, e reativo os timers. Antes...

F�rum Programinha pra verificar a conexao em rede #299897