用delphi制作OCX库文件（三）
开发步骤：
1、创建ActiveX Library工程。
2、创建COM Object。
3、创建Type Library，并创建相应接口。
4、创建接口对应的函数和实现。
具体如下：
3、创建Type Library，并创建相应接口。
view|type library
找到已经生成的type library,其实和TLB文件是对应的。
我们可以看到上一步生成的对象也含在里面。
我们在里面生成新的方法，并定义好方法的参数。
注意：integer和String在OCX里对应的类型分别为long和BStr或者WideString。目的是为了便于网络上传播时各个系统兼容的需要。
返回值必须为指针类型，Modifier为返回标志，[in]为输入参数，[out,RetVal]为输出加返回值。
在Class Name(本例里类名里填Object，可按自己需要填写) 填写类名.(Instancing:实例创建方式,Threading Model:线程模式.) 其
中Implemented Interface(接口名)自动生成.
点刷新按钮之后，在TLB和实现单元里都有了关于这个接口函数的定义。
剩下的只要在实现单元里完成实现的代码即可。
4、创建接口对应的函数和实现。
具体实现。
type
TOjbect = class(TTypedComObject, IOjbect)
protected
function Method1(Param1, Param2: Integer; out Param3: Integer): HResult;
stdcall;
end;
implementation
uses ComServ;
function TOjbect.Method1(Param1, Param2: Integer;
out Param3: Integer): HResult;
begin
//具体实现
end;
相关文档：
获取post，或者get返回的cookie，除了过滤返回的字符串之外，最简单的方法是使用idhttp的CookieManager属性
比如获得IDhttp返回的全部Cookie
if idhttp1.CookieManager.CookieCollection.Count > 0 then
for i := 0 to idhttp1.CookieManager.CookieCollection.Count - 1 do
temp := temp + idhttp1.Cooki ......
Client:TSocketConnection 和Server: Scktsrvr关系----压缩数据传输
一直用SocketConnection和服务端的传输数据在三层数据库中，从来没有注意到它们之间的数据传输，只是想着，管它了，网络的事，前段时间在Delphi中的Demos中发现Demos\Midas\Intrcpt.dpr例子，呵呵，再看了半天的VCL发现可以将Client端发送的给Server的� ......
// 判断是否是数值型 By yangxiao 2007.7.21
function isNumeric(strText: WideString): Boolean;
var
s: string;
i, l, p: Integer;
begin
Result := False;
l := Length(strText);
if l = 0 then Exit;
s := '';
for i:=1 to l do
......
开发步骤：
1、创建ActiveX Library工程。
2、创建COM Object。
3、创建Type Library，并创建相应接口。
4、创建接口对应的函数和实现。
具体如下：
1、创建ActiveX Library工程。
new|other|activeX|activeX library
Delphi会自动生成框架代码，直接编译的话就可以得到一个dll文件了；
如果想编译出来的是ocx文 ......
