Buscar

Criando sua propria conexão com terminal server do windows

nome

Antonio Juliano F. L.

Colunista ainda sem descrição. Caro colunista, por favor envie-nos sua descrição.

Neste artigo iremos aprender a criarmos nosso próprio cliente para conexão com o Terminal Server

que poderá ser executado a partir do Windows 98 e versões posteriores, lembrando que você devera  ter um servidor com Windows 2000 Server ou Windows 2003 Server com o Terminal Server instalado e configurado corretamente, para poder acessa-lo com o Cliente Terminal que será criado por você

 

Estou utilizando o Delphi 7.0.

 

Para criar o Cliente Terminal é muito simples, basta importarmos um controle ActiveX do Windows e teremos a possibilidade de desenvolvermos esse aplicativo:

 

Vamos lá:

 

Para importar basta clicar no menu:

Componente – Import ActiveX Control...

Click na Opção Add...

Localize o arquivo Mstscax.dll – Este arquivo é distribuído junto com o Windows XP Windows 2003 Server – Eu desenvolvi com a dll do Windows 2003

Após Localizar o arquivo clique no botão OK.

Logo após clique no botão Install.

O Delphi irá criar um arquivo chamado MsTsClib_TLB.PAS na pasta imports do Delphi7

 

Pronto, pode fechar a tela Import ActiveX

Peça uma nova aplicação: No menu File – New - application

 

Nas propriedades do seu formulário Form1 , sete:

WindowState = wsMaximized

BorderStyle = bsSizeable

BorderIcons – biMaximize = False;

 

 

Localize no Delphi a guia ActiveX e você encontrara três novos componentes.

Adicione ao seu formulário o componente MsRdpClient.

 

Nas propriedades do componente MsRdpClient1. sete:

Align = alClient

Nome = TS

 

 


Adicione um botão ao seu formulário e sete:

Nome = btconectar

Caption = Conectar

 

No evento OnClick do botão btConectar adicione:

 

procedure TForm1.BtconectarClick(Sender: TObject);

begin

  TS.Server   := //Adicione aqui o nome ou IP do servido r- Ex.: ‘192.168.0.1’

  TS.UserName := //Adicione aqui o nome do usuárioex.- Ex.: ‘Administrador’

  TS.AdvancedSettings.BitmapPeristence := 1; //Ativa a propriedade BitmapPeristence

  TS.AdvancedSettings.Compress := 1; //Ativa a propriedade  compress

  TS.AdvancedSettings2.AcceleratorPassthrough :=1; //Ativa a propriedade AcceleratorPassthrough

  TS.AdvancedSettings2.BitmapCacheSize := 1; ; //Ativa a propriedade BitmapCacheSize

  TS.DesktopWidth := 800;

  TS.DesktopHeight := 600;

  TS.FullScreen := True;

  TS.Connect;

end;

 

____________________________________________________________________________

Adicione um botão ao seu formulário e sete:

Nome = btClose

Caption = Fechar

 

procedure TForm1.BtCloseClick(Sender: TObject);

begin

  Close;

end;


Pronto...

 

Lembrando que a DLL deverá ser distribuída junto com a aplicação e registrada no Windows

Para registrar a dll:

Copie a dll para a pasta de sistema do Windows

Vá ao prompt do ms-dos e digite: RegSvr32 MstsCax.dll

Você deverá receber uma mensagem como esta: DllRegisterServer em mstscax.dll teve êxito.

Execute o programa.

 

Qualquer duvida enviem e-mail para siscom@sercomtel.com.br

Publicidade

Vote no artigo




Quantidade de votos: 0 votos
Aceitação: 0%


Detalhes do artigo

Categoria: Windows
Adicionado dia: 14/07/04
Por: Antonio Juliano F. L.
Visualizado: 27305 vezes

Planeta Delphi - Tudo sobre programação Delphi Planeta Delphi - www.planetadelphi.com.br - Todos os direitos reservados | Copyright 2001-2009