home *** CD-ROM | disk | FTP | other *** search
/ Delphi Magazine Collection 2001 / Delphi Magazine Collection 20001 (2001).iso / DISKS / Issue51 / SafeCall / ComClientMainForm.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1999-08-19  |  1.2 KB  |  65 lines
  1. unit ComClientMainForm;
  2.  
  3. interface
  4.  
  5. uses
  6.   ComServer_TLB,
  7.   Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  8.   StdCtrls;
  9.  
  10. type
  11.   TForm2 = class(TForm)
  12.     Button1: TButton;
  13.     Button2: TButton;
  14.     Button3: TButton;
  15.     Button4: TButton;
  16.     Button5: TButton;
  17.     procedure FormCreate(Sender: TObject);
  18.     procedure Button1Click(Sender: TObject);
  19.     procedure Button2Click(Sender: TObject);
  20.     procedure Button3Click(Sender: TObject);
  21.     procedure Button4Click(Sender: TObject);
  22.     procedure Button5Click(Sender: TObject);
  23.   private
  24.     Server: IErrorTrappingTest;
  25.   end;
  26.  
  27. var
  28.   Form2: TForm2;
  29.  
  30. implementation
  31.  
  32. {$R *.DFM}
  33.  
  34. procedure TForm2.FormCreate(Sender: TObject);
  35. begin
  36.   Server := CoErrorTrappingTest.Create
  37. end;
  38.  
  39. procedure TForm2.Button1Click(Sender: TObject);
  40. begin
  41.   Server.Error1
  42. end;
  43.  
  44. procedure TForm2.Button2Click(Sender: TObject);
  45. begin
  46.   Server.Error2
  47. end;
  48.  
  49. procedure TForm2.Button3Click(Sender: TObject);
  50. begin
  51.   Server.Error3
  52. end;
  53.  
  54. procedure TForm2.Button4Click(Sender: TObject);
  55. begin
  56.   Server.Error4
  57. end;
  58.  
  59. procedure TForm2.Button5Click(Sender: TObject);
  60. begin
  61.   Server.Error5
  62. end;
  63.  
  64. end.
  65.