• Revista PROGRAMAR: Já está disponível a edição #53 da revista programar. Faz já o download aqui!

c0cac00l

Delphi ClientSocket e ServerSocket

4 mensagens neste tópico

Olá.. eu tenho um  problema que tipo tenho um script para ver a memoria em uso do pc e tipo eu queria que o clientsocket envia-se ao serversocket as informações e colocar na memo2 após ao click do button a memo2 está no serversocket e o botão tambem.. alguem pode ajudar?

Codigo:

const

  cBytesPorMb = 1024 * 1024;

var

  M: TMemoryStatus;

begin

  M.dwLength := SizeOf(M);

  GlobalMemoryStatus(M);

  Memo1.Clear;

  with Memo1.Lines do begin

    Add(Format('Memória em uso: %d%%',

      [M.dwMemoryLoad]));

    Add(Format('Total de memória física: %f MB',

      [M.dwTotalPhys / cBytesPorMb]));

    Add(Format('Memória física disponível: %f MB',

      [M.dwAvailPhys / cBytesPorMb]));

    Add(Format('Tamanho máximo do arquivo de

paginação: %f MB',

      [M.dwTotalPageFile / cBytesPorMb]));

    Add(Format('Disponível no arquivo de paginação: %f

MB',

      [M.dwAvailPageFile / cBytesPorMb]));

    Add(Format('Total de memória virtual: %f MB',

      [M.dwTotalVirtual / cBytesPorMb]));

    Add(Format('Memória virtual disponível: %f MB',

      [M.dwAvailVirtual / cBytesPorMb]));

  end;

end;

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Não sei se percebi a tua dúvida dado que a explicação é bastante confusa...

O que queres é comunicar entre um cliente e um servidor é isso?

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Tipo.. o meu problema é que eu ja fiz todas as configurações da conexão entre server e cliente mas.. acontece que o server está com o receivetext em uma variavel de dados e o sendtext tambem o que eu queria mesmo era saber como fazer varias receivetext do mesmo cliente ou seja isto está trocado pois eu quero que o cliente se conecte ao server e o server a que recebe e quero que receba numa memo.. mas felizmente ja resulvi não está muito bem feito mas ja deu para desenrascar obrigado na mesma...

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Ainda bem que resolveste porque a tua explicação não clarificou nada...

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Crie uma conta ou ligue-se para comentar

Só membros podem comentar

Criar nova conta

Registe para ter uma conta na nossa comunidade. É fácil!


Registar nova conta

Entra

Já tem conta? Inicie sessão aqui.


Entrar Agora