Создать Terminal Services Client

Delphi , Программа и Интерфейс , Процессы и Сервисы

Оформил: DeeCo
Автор: http://www.swissdelphicenter.ch

{ 
"WINDOWS2000 SERVER" / "WINDOWS XP" terminal services are very important in a computer  
network: each client computer can emulate server's desktop by using a simple executable  
named "mstsc.exe". This executable uses the ActiveX control "MStscax" defined in  
"mstscax.dll".  
These files are automatically installed in Windows XP and Windows 2000 Server but not  
in Windows2000 Professional or Windows98. You can download the entire package containing 
these file at the following url:  

http://www.microsoft.com/windows2000/downloads/recommended/TSAC/tsmsi.asp?Lang= 

After downloading the executable "tsmsisetup.exe", run it to unpack. Now let's 
take into consideration the folder "System32": this is the folder containing  
"mstsc.exe" and "mstscax.dll". 
Now register the ActiveX control "MsTscAx": 

  1)Start->Run-> 
  2)type the following command line: regsvr32 <path to mstscax.dll>\mstscax.dll 

where <path to mstscax.dll> is the complete path to the file "mstscax.dll". 
    
In this article I will show you how to embed the ActiveX control "MsTscAx"  
in a Delphi application in order to build a substitute of "mstsc.exe".  

First of all you must import the ActiveX control "mstscax": 
in the Delphi IDE: 
1)Component->Import ActiveX Control 
2)Select "Microsoft Terminal Services Control"  
  the class name will be "TMsTscAx" 
3)Select the unit dir name and press "Create Unit": you have created the import Unit. 
4)Create a package or select an existing one and add the created unit to this package 
  Recompile the package and now delphi palette will contain (in the ActiveX tab if you 
  haven't changed it in the importing process) the MstScax component. 

Now create a new Delphi project and add the Mstscax component to it. 
Let's go to analize the interesting properties of this new component:  

1)Server: this is the IP of the Windows2000 Server computer whose desktop we want 
  to emulate 
2)BitmapPeristence:  
  1 if you want to cache Bitmaps or 0 otherwise  
3)Compress: 
  1 if you want to cache data or 0 otherwise   

With the "Connect" method I open a terminal emulation session. 
With the "Disconnect" method I disconnect from a terminal emulation session but the 
session itself isn't closed on the server. 

Another important feature of "Client Terminal Service" is the ability to define a 
program that automatically run when the client machine opens a terminal  
emulation session. You can programatically achieve this target in this manner: 

Set_StartProgram(<Path to Exe>\<Exe filename>); 

Once defined an automatically running program, the client computer will see a remote 
desktop which is clear except for the presence of the program itself; this is 
useful if you want to restrict the operative range of your client computers to the  
program itself. When the program is closed, the connection is closed and the session 
on the windows 2000 server computer is closed. 

this is the code of my example project: 
}

 unit Main;

 interface

 uses
   Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
   OleCtrls, ExtCtrls, StdCtrls,
   MSTSCLib_TLB;//the import Unit: substitute it with the name you assigned 
               //during the import process if this is different to it 

type
   TForm1 = class(TForm)
     MsTscAx1: TMsTscAx;
     Panel1: TPanel;
     btConnect: TButton;
     procedure btConnectClick(Sender: TObject); //connection button 
    procedure FormCreate(Sender: TObject);
     procedure FormClose(Sender: TObject; var Action: TCloseAction);
     procedure MsTscAx1Disconnected(Sender: TObject;
       DisconnectReason: Integer);
     procedure MsTscAx1Connecting(Sender: TObject);
   private
     { Private declarations }
   public
     { Public declarations }
   end;

 var
   Form1: TForm1;

 implementation

 {$R *.DFM}

 procedure TForm1.btConnectClick(Sender: TObject);
 begin
   MsTscAx1.Connect;
 end;

 procedure TForm1.FormCreate(Sender: TObject);
 begin
   Left   := 0;
   Top    := 0;
   Height := Screen.Height - 20;
   Width  := Screen.Width;

   MsTscAx1.Server := '1.2.3.4'; //substitute it with the IP Address of your server  
  with MsTscAx1.AdvancedSettings do
   begin
     BitmapPeristence := 1;//enable bitmap cache 
    Compress         := 1;//enable data cache 
  end;
   with MsTscAx1.SecuredSettings do
   begin
     Set_StartProgram('C:\Sviluppo\Delphi\DbBrowser.exe');
     //the program I want to run  
  end;
 end;

 procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
 begin
   if not btConnect.Enabled then
    //I must close the automatically running program before closing 
  //my terminal emulation program 
  begin
     MessageDlg('Close "DbBrowser.exe" before closing the application!',
       mtInformation, [mbOK], 0);
     Action := caNone;
   end;
 end;

 procedure TForm1.MsTscAx1Disconnected(Sender: TObject;
   DisconnectReason: Integer);
 begin
   btConnect.Enabled := True;
 end;

 procedure TForm1.MsTscAx1Connecting(Sender: TObject);
 begin
   btConnect.Enabled := False;
 end;

 end.

  { 
In order to run this application in another computer you must copy the file 
"mstscax.dll" on the target  
computer and register it with "regsvr32" as shown at the beginning of this 
article. You can automate this 
process by embedding the file in your executable, etc.. 

Carlo Pasolini, Riccione(Italy), ccpasolini@libero.it 
}

Программирование клиента для удаленного доступа к терминалу с помощью Delphi:

Шаг 1: Импорт ActiveX-контрола Для вставки Microsoft Terminal Services Control (MSTscAx) в ваше приложение Delphi, вам нужно импортировать ее как ActiveX-контроль. Следуйте этим шагам:

• Перейдите в меню "Компонент" > "Импорт ActiveX-контрола"
• Выберите "Microsoft Terminal Services Control" из списка доступных контролов
• Назовите класс компонента (например, TMsTscAx)
• Укажите папку для единицы и нажмите "Создать единицу"
• Добавьте созданную единицу в существующий пакет или создайте новый
• Перекомпилируйте пакет

Шаг 2: Создание нового проекта Delphi Создайте новый проект Delphi и добавьте компонент MstScax в него. Вы можете это сделать, перетаскивая компонент из палеты компонентов на форму или добавляя его вручную, выбрав его в палете компонентов и нажав "Добавить" в инспектор объектов.

Шаг 3: Настройка компонента Настройте компонент MstScax, установив его свойства. В этом примере мы будем устанавливать следующие свойства:

• Server: Установите на IP-адрес компьютера Windows Server, чей десктоп вы хотите эмулировать
• BitmapPeristence: Установите на 1 (истина) для включения кэширования битмапов
• Compress: Установите на 1 (истина) для включения кэширования данных

Шаг 4: Реализация методов Connect и Disconnect Реализуйте метод Connect для открытия сессии эмуляции терминала, а метод Disconnect для отключения от сессии. В этом примере:

• Метод btConnectClick вызывает метод Connect, когда пользователь нажимает кнопку "Connect"
• Метод MsTscAx1Disconnected устанавливает свойство Enabled кнопки "Connect" в значение True, когда соединение закрыто

Шаг 5: Реализация событий FormClose и MsTscAx1Connecting Реализуйте событие FormClose для запроса пользователя закрыть автоматически запущенный программу перед закрытием приложения. В этом примере:

• Событие FormClose проверяет, является ли кнопка "Connect" включенной (т.е., соединение закрыто) и спрашивает пользователя о закрытии программы
• Событие MsTscAx1Connecting устанавливает свойство Enabled кнопки "Connect" в значение False, пока соединение не будет установлено

Шаг 6: Запуск приложения Чтобы запустить это приложение на другом компьютере, вам нужно скопировать файл mstscax.dll на целевой компьютер и зарегистрировать его с помощью regsvr32. Альтернативно, вы можете вставить файл в ваш исполняемый файл или автоматизировать процесс с помощью других средств. Это базовый пример создания клиента для удаленного доступа к терминалу с помощью Delphi. Вам может потребоваться дополнительная настройка приложения, добавление дополнительных функций, таких как обработка ошибок или улучшение интерфейса пользователя.

Создать Terminal Services Client: статья описывает процесс создания клиентского приложения для эмуляции десктопа сервера Windows 2K или XP с помощью ActiveX-контрола MsTscAx и языка программирования Delphi.

Комментарии и вопросы

Получайте свежие новости и обновления по Object Pascal, Delphi и Lazarus прямо в свой смартфон. Подпишитесь на наш Telegram-канал delphi_kansoftware и будьте в курсе последних тенденций в разработке под Linux, Windows, Android и iOS

:: Главная :: Процессы и Сервисы ::