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);
beginClose;
end;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
Planeta Delphi - www.planetadelphi.com.br - Todos os direitos reservados | Copyright 2001-2009