home *** CD-ROM | disk | FTP | other *** search
/ PC Pro 1999 February / DPPCPRO0299.ISO / February / Delphi / Install / DATA.Z / MAINTEST.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1996-06-11  |  1.2 KB  |  52 lines
  1. unit MainTest;
  2.  
  3. { This is the client half of a 'simplest possible case' Delphi Automation
  4.   example. Before this program will work correctly, you need to compile and run
  5.   the AutoProj example program. When you run AutoProj, pass in /regserver as a
  6.   parameter using the Run|Parameters dialog. }
  7.  
  8. interface
  9.  
  10. uses
  11.   Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  12.   StdCtrls;
  13.  
  14. type
  15.   TForm1 = class(TForm)
  16.     bRunAuto: TButton;
  17.     procedure bRunAutoClick(Sender: TObject);
  18.   end;
  19.  
  20. var
  21.   Form1: TForm1;
  22.  
  23. implementation
  24.  
  25. {$R *.DFM}
  26.  
  27. uses
  28.   OleAuto;
  29.  
  30. procedure TForm1.bRunAutoClick(Sender: TObject);
  31. var
  32.   V: Variant;
  33. begin
  34.   try
  35.     V := CreateOleObject('AutoProj.MyAuto');
  36.     V.ShowDialog;
  37.     V.MyProp := 'This string was passed to the MyProp property ' +
  38.       'of AutoProj by TestAp';
  39.     V.ShowDialog;
  40.   except
  41.     on E: Exception do
  42.     begin
  43.       Application.HandleException(E);
  44.       ShowMessage('Make sure you compile AutoProj first and run it either ' +
  45.         'from the commmand line with the /regserver switch or from ' +
  46.         'Delphi after you set the Run|Parameters dialog to /regserver');
  47.     end;
  48.   end;
  49. end;
  50.  
  51. end.
  52.