熟悉COM的大侠过来看看啊，只需要一个例子(200分)

想自己写个com，能封装函数的那种就可以了。
新人，恳求哪位好心人能详细的写个完整的例子。
里面就带三，四个函数就可以了，最好包括查询和弹出个Form的.
很简单的，会者不难。拜托各位大侠了。
分数不是问题。不够再加。
晚上来结贴。叩谢，叩谢~~``

delphi6开发人员指南第Part 15有7个例子，自己下载来看看就成了。

谢谢
我正在下

非常感谢
还望多指教

不要下书啊，要下delphi6开发人员指南代码

Com对象代码：
library SumSvr;

uses
ComServ,
USum in 'USum.pas',
UISum in 'UISum.pas',
SumSvr_TLB in 'SumSvr_TLB.pas';

exports
DllGetClassObject,
DllCanUnloadNow,
DllRegisterServer,
DllUnregisterServer;

{$R *.TLB}

{$R *.RES}

begin
end.

unit UISum;

interface

type
ISum = Interface
['{A39177C7-EA39-4719-B24F-AED9A00D3856}']
function Sum(const a,b:integer):integer;
end;

const
Class_Sum: TGUID = '{A39177C7-EA39-4719-B24F-AED9A00D3856}';

implementation

end.

unit USum;

{$WARN SYMBOL_PLATFORM OFF}

interface

uses
Windows, ActiveX, Classes, ComObj,UISum;

type
TSum = class(TComObject,ISum)
public
function Sum(const a,b:integer):integer;
end;

implementation

uses ComServ;

{ TSum }

function TSum.Sum(const a, b: integer): integer;
begin
result:=a+b;
end;

initialization
TComObjectFactory.Create(ComServer, TSum, Class_Sum,
'Sum', '', ciMultiInstance, tmApartment);
end.


客户程序：
procedure TForm1.Button1Click(Sender: TObject);
var
FInts:ISum;
begin
FInts := CreateComObject(Class_Sum) as ISum;//创建COM
showmessage(inttostr(FInts.Sum(1,2)));
if FInts<>nil then FInts:=nil;
end;

在com服务器中封装了一个函数
function TSum.Sum(const a, b: integer): integer;

to：maikee1978
两个我都下了，一个50几M,一个5点几M
正在琢磨，呵呵。

to：liuying1129
谢谢你啊~~```
liuying=刘艺？？
是那个是写了《delphi精要》的那个刘艺吗？呵呵

看错了 是liuying 非liuyi

年轻轻轻，开始经常花眼了。晕啊

[8D],俺也去学习学习

多人接受答案了。