Category

Development Platform
Home > SourceCode/Document > Delphi VCL > View Code
TLibCliF.pas
Package: delphi.rar　[view]
Upload User: fh681027
Upload Date: 2022-07-23
Package Size: 1959k
Code Size: 3k
Category:

Delphi VCL

Development Platform:

Delphi

TLibCliF.pas：Code Content
  1. unit TLibCliF;
  3. interface
  5. {$WARN SYMBOL_PLATFORM OFF} 
  7. uses
  8.   Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  9.   StdCtrls, ExtCtrls, TLibDemo_tlb, Variants;
  11. type
  12.   TClientForm = class(TForm)
  13.     BtnColor1: TButton;
  14.     BtnColor2: TButton;
  15.     BtnIntf: TButton;
  16.     BtnVariant: TButton;
  17.     BtnDispIntf: TButton;
  18.     Bevel1: TBevel;
  19.     ListResult: TListBox;
  20.     BtnColorBis: TButton;
  21.     procedure FormCreate(Sender: TObject);
  22.     procedure BtnColor1Click(Sender: TObject);
  23.     procedure BtnColor2Click(Sender: TObject);
  24.     procedure BtnIntfClick(Sender: TObject);
  25.     procedure BtnVariantClick(Sender: TObject);
  26.     procedure BtnDispIntfClick(Sender: TObject);
  27.     procedure BtnColorBisClick(Sender: TObject);
  28.   private
  29.     { Private declarations }
  30.   public
  31.     { Public declarations }
  32.     MyServer, MyServerBis: Variant;
  33.     IMyServer, IMyServerBis: IFirstServer;
  34.     DMyServer: IFirstServerDisp;
  35.   end;
  37. var
  38.   ClientForm: TClientForm;
  40. implementation
  42. {$R *.DFM}
  44. procedure TClientForm.FormCreate(Sender: TObject);
  45. begin
  46.   // creates server objects
  47.   IMyServer := CoFirstServer.Create;
  48.   DMyServer := CoFirstServer.Create as IFirstServerDisp;
  49.   MyServer := CoFirstServer.Create;
  50. end;
  52. procedure TClientForm.BtnColor1Click(Sender: TObject);
  53. begin
  54.   IMyServer.ChangeColor;
  55. end;
  57. procedure TClientForm.BtnColor2Click(Sender: TObject);
  58. begin
  59.   MyServer.ChangeColor;
  60. end;
  62. procedure TClientForm.BtnIntfClick(Sender: TObject);
  63. var
  64.   I, K: Integer;
  65.   Ticks: Cardinal;
  66. begin
  67.   Screen.Cursor := crHourglass;
  68.   try
  69.     Ticks := GetTickCount;
  70.     K := 0;
  71.     for I := 1 to 100 do
  72.       K := K + IMyServer.Value;
  73.     Ticks := GetTickCount - Ticks;
  74.     ListResult.items.Add (Format (
  75.       'Interface: %d - Seconds %.3f', [K, Ticks / 1000]));
  76.   finally
  77.     Screen.Cursor := crDefault;
  78.   end;
  79. end;
  81. procedure TClientForm.BtnVariantClick(Sender: TObject);
  82. var
  83.   I, K: Integer;
  84.   Ticks: Cardinal;
  85. begin
  86.   Screen.Cursor := crHourglass;
  87.   try
  88.     Ticks := GetTickCount;
  89.     K := 0;
  90.     for I := 1 to 100 do
  91.       K := K + MyServer.Value;
  92.     Ticks := GetTickCount - Ticks;
  93.     ListResult.items.Add (Format (
  94.       'Variant: %d - Seconds %.3f', [K, Ticks / 1000]));
  95.   finally
  96.     Screen.Cursor := crDefault;
  97.   end;
  98. end;
  100. procedure TClientForm.BtnDispIntfClick(Sender: TObject);
  101. var
  102.   I, K: Integer;
  103.   Ticks: Cardinal;
  104. begin
  105.   Screen.Cursor := crHourglass;
  106.   try
  107.     Ticks := GetTickCount;
  108.     K := 0;
  109.     for I := 1 to 100 do
  110.       K := K + DMyServer.Value;
  111.     Ticks := GetTickCount - Ticks;
  112.     ListResult.items.Add (Format (
  113.       'DispIntf %d - Seconds %.3f', [K, Ticks / 1000]));
  114.   finally
  115.     Screen.Cursor := crDefault;
  116.   end;
  117. end;
  119. procedure TClientForm.BtnColorBisClick(Sender: TObject);
  120. begin
  121.   if varType (MyServerBis) = varEmpty then
  122.     MyServerBis := CoFirstServer.Create;
  123.   MyServerBis.ChangeColor;
  125.   if not Assigned (IMyServerBis) then
  126.     IMyServerBis := CoFirstServer.Create;
  127.   IMyServerBis.ChangeColor;
  128. end;
  130. end.