求使用COM/DCOM做分布式系统的例子

Question

毕业设计使用COM/DCOM技术做个分布式的MIS系统，我看了李唯的相关书籍，可是还是不清楚具体的操作，谁有相关的例子、源码或者是DEMO能发给我个吗？急用。邮箱：[email protected]

Answer 1

在安装的路径里有：
\Delphi7\Demos\Midas

Answer 2

delphi的demo中有不错的例子，应该可以满足了吧。

Answer 3

unit Unit1;interfaceuses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, test_TLB, StdCtrls;type
  TForm1 = class(TForm)
    Button1: TButton;
    Memo1: TMemo;
    procedure FormActivate(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    FusePI:Itest;
  public
    { Public declarations }
  end;var
  Form1: TForm1;implementationuses Unit2;{$R *.dfm}procedure TForm1.FormActivate(Sender: TObject);
begin
try
 dm2.dcom1.Connected:=true;
 FusePt:=Itest(Idispatch(dm2.dcom1.GetServer));
except
 messagebox(0,'对不起，您没有授权访问','错误',MB_ICONERROR);
 application.Terminate;
 exit;
end;
end;
procedure TForm1.Button1Click(Sender: TObject);
var
 Rvalue:OleVariant;
 i:integer;
begin
 for i:=1 to 3000 do
 begin
  Rvalue:= FusePt.GetData('MKA01CE','*');
  memo1.Lines.Add(Rvalue);
 end;
end;end.
unit Unit2;interfaceuses
  SysUtils, Classes, DB, DBClient, MConnect;type
  Tdm2 = class(TDataModule)
    dcom1: TDCOMConnection;
  private
    { Private declarations }
  public
    { Public declarations }
  end;var
  dm2: Tdm2;implementation{$R *.dfm}end.