Skip to content
No description, website, or topics provided.
Pascal
Branch: master
Clone or download
Fetching latest commit…
Cannot retrieve the latest commit at this time.
Permalink
Type Name Latest commit message Commit time
Failed to load latest commit information.
Fontes Access PC - Delphi 7 Initial commit Dec 29, 2018
Fontes Access PC - Delphi XE5 Initial commit Dec 29, 2018
.gitattributes Initial commit Dec 29, 2018
.gitignore Initial commit Dec 29, 2018
Informações do Access PC.pdf Initial commit Dec 29, 2018
Leia-Me.txt Initial commit Dec 29, 2018
README.md Initial commit Dec 29, 2018

README.md

Delphi_Remote_Access_PC

Remote access in Delphi 7 and Delphi XE5 (With sharer files, CHAT and Forms Inheritance)

Acesso Remoto em Delphi 7 e Delphi XE5 (Com Compartilhador de Arquivos, CHAT e Herança de Formulários)

			Estas fontes foram criadas por Maickonn Richard.
			Contato: maickonnrichard@gmail.com
			
			A distribuição destas fontes são gratuitas!
			
			NÃO ME RESPONSABILIZO PELO MAU USO DESTAS FONTES.
			
			GitHub: https://www.github.com/Maickonn

Recursos:

  • Acesso Remoto com algorítimo RFB (Captura apenas o que foi alterado na tela).
  • Compressões de Dados.
  • Compartilhador de Arquivos.
  • Chat.
  • Herança de Formulários (Permite que você acesse várias máquinas ao mesmo tempo em várias janelas).

#Todos os componentes utilizados são nativos do próprio Delphi.

Provavelmente quando você abrir o projeto, vai aparecer uma mensagem avisando que falta componente. O que você deve fazer é seguir os seguintes passos:

-> Delphi 7:

  • Com o Delphi aberto, vá ao menu "Component"
  • Em seguida clique em "Install Packages..."
  • Clique no botão "Add"
  • Vá no diretório onde o Delphi está instalado e entre na pasta "Bin". ( C:\Program Files (x86)\Borland\Delphi7\Bin )
  • Selecione o arquivo "dclsockets70.bpl" e clique em Abrir.
  • Feche o Delphi e abra o projeto novamente.

-> Delphi XE5:

  • Com o Delphi aberto, vá ao menu "Component"
  • Em seguida clique em "Install Packages..."
  • Clique no botão "Add"
  • Vá no diretório onde o Delphi está instalado e entre na pasta "Bin". ( C:\Program Files (x86)\Embarcadero\RAD Studio\12.0\bin )
  • Selecione o arquivo "dclsockets190.bpl" e clique em Abrir.
  • Feche o Delphi e abra o projeto novamente.

Na pasta Units, você encontrará:

  • Unit zLibEx.pas com a pasta zLib - Usada para comprimir dados. (Você deve copiar a pasta zLib para dentro do Projeto).
  • StreamManager.pas - Criada para capturar a tela, e fazer a comparação.
  • SndKeys32.pas - Serve para simular tecla pressionada.

Entendendo o funcionamento do Software.

  • Cliente conecta com o servidor. Ao conectar o primeiro Socket ele irá conectar os outros, que definem se vai ser para transferência de imagens, download e upload de arquivos ou de teclado remoto. O primeiro Socket transfere mensagens, a posição, e o clique do mouse.

  • Servidor pede a primeira imagem. Cliente irá capturar a tela (Captura é feita em Bitmap, 8bit para reduzir o tamanho) então ele irá receber uma compressão zLib. Após a compressão irá enviar a primeira imagem e logo após salvará a mesma na memória. Quando o servidor receber a imagem ele irá requisitar outra, onde o cliente irá comparar com a antiga e enviar só o que foi alterado. (Sempre comprimindo os dados).

You can’t perform that action at this time.