Comunicacao TCP Server

[joseadolfojr]

Os arquivos em anexo ao tópico estão corrompidos.

 

Estou tentando fazer uma transferência de arquivos via TCP e ocorreu algumas falhas.

 

Na aplicação servidor: ACBrTCPServer

Evento  RecebeDados:

var
  memoryStream : TMemoryStream;
  pathEXE      : String;
begin
  //Memo1.Lines.Add(Recebido);

  pathEXE := ExtractFilePath(Application.ExeName);

  memoryStream := TMemoryStream.Create;
  memoryStream.Clear;


  TCPBlockSocket.RecvStream(memoryStream,5000);

  memoryStream.Seek(0, soBeginning);

  if memoryStream.Size=0 then
  begin
    Memo1.Lines.Add('Stream empty');
    exit;
  end;
  memoryStream.SaveToFile( pathEXE+'teste.txt');
  memoryStream.Free;

no cliente utilizando TTCPBlockSocket

var
  sock          : TTCPBlockSocket;
  memoryStrem   : TMemoryStream;
  arquivoEnviar : String;
  tam           : Integer;
  pathEXe       : String;
begin
  pathEXe := ExtractFilePath(Application.ExeName);

  sock := TTCPBlockSocket.Create;
  sock.Connect('localhost','10802');
  if sock.LastError>0 then
  begin
    ShowMessage('Erro ao conectar...');
    exit;
  end;

  if OpenDialog1.Execute then
    arquivoEnviar := OpenDialog1.FileName
  else
    arquivoEnviar := '';

  if Trim(arquivoEnviar)='' then
    exit;

  memoryStrem := TMemoryStream.Create;
  memoryStrem.LoadFromFile(arquivoEnviar);

  memoryStrem.Seek(0, soBeginning);
  sock.SendStream(memoryStrem);
  if sock.LastError>0 then
    ShowMessage('Erro ao transferir...');



  sock.Free;
  memoryStrem.Free;

end;

Ocorre que arquivos pequenos não transfere.

Um arquivo com 32k está vindo apenas 23k.

To quebrando a cabeça e já pesquisei bastante e não consegui resolver...

 

Grato

[walter faria]

Boa noite, Junior.

 

Seria possível me mandar um demo de como esta fazendo a comunicação com :ACBrTCPServer

 e com TTCPBlockSocket

 

*** Tenho que montar uma forma de enviar os XML para servidor Principal , ex: Empresa com 1 matriz + 3 filial a emissão de NF-e fica em cada filial, porem preciso enviar o XML para a Matriz de todas as Filial .... entendeu?

 

Obrigado, fico grato se poder me mandar este demo de como funciona !!!

[Daniel Simoes]

Veja os comandos LoadFromFile e SaveToFile nos fontes do programa ACBrMonitor

[ALA]

Senhores, bom dia. Tenho que desenvolver uma aplicação que receba os dados de uma catraca e depois pesquise no meu banco de dados se o acesso do  associado esta liberado, após este procedimento devo retornar para catraca a informação se libera ou não a entrada do associado. Esta comunicação deve ser realizada através da Ethernet ou Serial. Será que consigo executar esse procedimento com o ACBrTCPServe

[leostyles]

Em 06/06/2012 at 17:14, francisco.itb disse:

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

tcp.zip

ACBrSocket.pas

Este exemplo que vc anexou esta corrompido, teria como postar novamente?

[Juliomar Marchetti]

3 horas atrás, leostyles disse:

Este exemplo que vc anexou esta corrompido, teria como postar novamente?

No svn na pasta de projetos senão me engano tem exemplos

[leostyles]

6 horas atrás, Juliomar Marchetti disse:

No svn na pasta de projetos senão me engano tem exemplos

Tem sim... porem nao de enviar arquivos.