Comunicacao TCP Server

[francisco.itb]

Amigos,

Com o acbrtcpserver, e possivel comunicar com varios clientes ao mesmo tempo?

Tipo:

Vou term um servidor que fica esperando alguma coisa ou ate mesmo enviando para os clientes, e vou ter varios clientes que ficam enviando para o servidor ou recebendo alguma coisa do servidor.

Alguem ja fez algo parecido?

Francisco A Souza

[Daniel Simoes]

Sim, é premissa de todo Servidor aceitar múltiplas conexões...

Veja o Demo do ACBrTCP na pasta Exemplos

[francisco.itb]

Oi daniel, até ai entendi, mas no caso pra gerenciar as conexoes e até enviar alguma coisa para o cliente, mesmo sem ele solicitar? é necessário criar thread com tcp server?

[francisco.itb]

Daniel, mais uma pequena duvida? no acbrtcp eu consigo enviar um ou arquivo txt? ou receber tambem?

[Daniel Simoes]

Sempre o Cliente que deve iniciar a "conversa" e nunca o servidor...

Você pode enviar qualquer informação ou tipo de dado... no caso do TXT, leia-o em um StringList e envie como qq outra string

[francisco.itb]

Sempre o Cliente que deve iniciar a "conversa" e nunca o servidor...

Você pode enviar qualquer informação ou tipo de dado... no caso do TXT, leia-o em um StringList e envie como qq outra string

Daniel, mas se o cliente estiver conectado, o server pode iniciar uma conversa com ele né? ou enviar alguma coisa?

[Daniel Simoes]

perfeito... o problema é a conexão inicial, que só o Client pode iniciar... depois de conectado ambos os lados podem enviar dados...

[francisco.itb]

So mais uma coisinha... rsrs... no cliente vou usar o tcpclient do indy? minha aplicacao vai estar fazendo outros processos, vou precisar colocar ele numa thread? pra receber os dados e tratar?

[francisco.itb]

perfeito... o problema é a conexão inicial, que só o Client pode iniciar... depois de conectado ambos os lados podem enviar dados...

Daniel, pesquisei na net, e fiz uma rotina para comunicar com o acbrtcp dentro de uma thread.

Bom ele conecta, envia dados... mas nao consegue receber, e possivel vc dar uma olhadinha pra ver onde estou errado? nao consegui descobrir ...

Obrigado...

Francisco A Souza

tcp.zip

[Daniel Simoes]

Não uso Delphi nem a Indy... fica difícil analisar...

Uso Lazarus/FPC e a própria Synapse (usada para construir o ACBrTCP) como Client..

[walter faria]

Boa tarde, será que poderiam me dizer como posso enviar um arquivo utilizando o AcbrTCP.

Obrigado

[francisco.itb]

Boa tarde, será que poderiam me dizer como posso enviar um arquivo utilizando o AcbrTCP.

Obrigado

Walter, se for string, vc pode usar um stringlist e enviar o text, fiz esse teste e foi blz.

Agora se for outro tipo de arquivo, vc pode criar uma propriedade pra enviar um stream, eu fiz isso no meu tcp, ate enviei aqui na mensagem anterior para atualizar o svn, mas é muito simples... entra no fonte do tcp, e copia a procedure enviarstring, e muda o tipo para stream.

[walter faria]

francisco.itb, bom dia

Entendi, mas no exemplo do AcbrTCPServer fica do lado servidor correto onde fica escutando uma conexão. Mas e na parte cliente , como q funciona ? como que vc fez? qual componente utilizou para conectar no AcbrTCPServer ?

Obrigado.

[Daniel Simoes]

Veja um exemplo bem simples, usando a Synapse que é distribuída com o ACBr em:

http://www.ararat.cz/synapse/doku.php/p ... tcpwithssl

http://www.ararat.cz/synapse/doku.php/public:howto

[walter faria]

Daniel, obrigado pelo link

Vc teria algum exemplo de como enviar um JPG para o servidor ?

***utilizando este exemplo que foi passado

Obrigado

[francisco.itb]

walter, eu peguei aquele atalho que daniel mandou para voce, e bati cabeça até conseguir:

tcp.zip

ACBrSocket.pas

[walter faria]

Bom dia, eu abri o seu anexo, nao consegui simular o envio do Arquivo ( JPG ) para o servidor .

Consigo a conexão tudo, mas não o envio.

Como anexo uma imagem e envio ela.

Se poder me dar esta força fico grato, obrigado

[francisco.itb]

Walter, realmente eu nao fiz para enviar ao servidor, e sim do servidor para o cliente.

[walter faria]

Bom dia Francisco

Realmente o que eu presciso. Oque eu quero montar é o seguinte os cliente poder solicitar ao servidor o XML de uma NF.

Obrigado.

[francisco.itb]

valter, do jeito que esta entao ele funciona... eu fiz desse jeito: ele solicita ao server algum arquivo, e o mesmo envia por stream.

do servidor para o cliente faz, nao faz do cliente para o servidor.

[walter faria]

Bom dia , Francisco.

Fiz um teste sendo enviado um arquivo .TXT, para o cliente, ele recebe o TXT so que o arquivo e gravado no disco em BRANCO ( 0 KB ), sabe como resolver isto ?

Tava olhando sua função ( Abaixo ) acho esta faltando alimentar o STREAM ( arq ) com os dados recebidos !!!

Obrigado

procedure TReadingThread.Execute;

begin

txt:=tstringlist.Create;

arq:=TMemoryStream.Create;

Fstring:='';

while not Terminated do begin

FString := FConn.RecvPacket(1000);

if Fstring='01' then

begin

fconn.RecvStream(arq,100);

///ACHO Q ESTA FALTANDO ALIMENTAR A VARIAVEL arq AQUI !!! ANTES DE GRAVAR O ARQUIVO

arq.SaveToFile('c:\PizzaRecebido.txt');

arq.Free;

Fstring:=fstring+' recebido stream ';

end;

// if fstring<>emptystr then begin

// txt.Add(fstring) ;

// txt.SaveToFile('C:\pdv.txt');

//end;

Synchronize(AtualizarMemos);

end;

txt.Free;

end;

[francisco.itb]

walter, nao precisa criar nao.., pq a variavel arq ja esta sendo criada na classe da thread.

e esta sendo preenchida aqui:

fconn.RecvStream(arq,100);

e apos o rececimento ela é gravada.

arq.SaveToFile('c:\chico.txt'); aqui pode ser txt, jpeg, avi.. qualquer coisa...

arq.Free;

Fstring:=fstring+' recebido stream ';

no meu teste aqui funciona 100%

[walter faria]

boa noite, Francisco.

Obrigado , primeiramente por responder minhas perguntas.

*** Estranho que o arquivo chega vazio , sabe me dizer oque pode ser ?

para enviar pelo servidor faco assim :

Clique do botão no SERVER:

Var

I : Integer ;

Selecionado : Boolean ;

tStream : TMemoryStream;

begin

tStream := TMemoryStream.Create;

tStream.LoadFromFile('c:\Pizza.TXT');

Selecionado := False ;

For I := 0 to CheckListBox1.Items.Count-1 do

begin

if CheckListBox1.Checked then

begin

Selecionado := True ;

tStream.Position := 0;

ACBrTCPServer1.EnviarStream( tStream, I );

end ;

end ;

if not Selecionado then

begin

tStream.Position := 0;

ACBrTCPServer1.EnviarStream( tStream, -1 ); // -1 envia para Todas conexoes

end;

[igmaster2000]

Gostaria de saber se ele serve para comunicação de banco de dados via internet...

[EMBarbosa]

Gostaria de saber se ele serve para comunicação de banco de dados via internet...

 

Crie uma dúvida nova para um tópico novo conforme as regras. Veja neste em especial a "2.2 - Permaneça no assunto".