delphi开发com及调试

1、你的接口部分可以定义一个 OleVariant 的参数GetUserObj(.,out tem:OleVariant;然后在程序结束的时候将 UserData10付给 tem:tem:=UserData在 Client 端也定义一个 OleVariant 的变量 ,obj:OleVariant就可以使用了obj0.a=.obj0.b=.use comobj;.var varole:olevariant;vararray:array of .beginvarole:=createoleobjete( ;vararray:=varole;-=Olevariant 的高级用法是构造可变数组;调用 v

2、ararraycreate(function vararraycreate(const bounds:array of integer;vartype:integer:variant;var a,b:olevariant;i:integer;begina:=vararraycreate(0,9,varinteger;for i:=0 to 9 do ai:=i+1;b:=vararraycreate(1,4,0,9,varvariant;.可变数组的基类型不能是 varstring, 要创建一个字符串类型的可变数组,应当用 varolestr 来代替 varstring;vararraayio

3、f(vararraydimcount|(vararraylowbound(vararraylock(vararrayunlock(function Tform1.VariantToList(VarOle:OleVariant:TStringList;/先把 olevariant 转换成为 TStringList 类型varList:TStringList;StrRecord:OleVariant;i:integer;High:integer;Low:integer;beginif not VarIsArray(VarOle thenExit;List:=TstringList.Create;H

4、igh:=VarArrayHighBound(VarOle,1;Low:=varArrayLowBound(VarOle,1;for i:=Low to High doList.Add(VarOlei;R esult:=List;end;function Tform1.SearchBill(BillNumber:OleVariant:OleVariant;varQuery : TQuery;StrRecord:OleVariant; /存入查寻所得结果BillList:TStringList; /存放单据号列表strBillNo:String; /存放单据号strBillPerfix:Stri

5、ng; /存放单存类型StrBillName:string; /单据名称StrBillMName:string; /表名i,index:integer;beginBillList:=TstringList.Create;BillList:=VariantToList(BillNumber;/调用上面定义的函数Query := TQuery.Create(nil;Query.DatabaseName:='materiel_mgr'i:=BillList.Count;StrRecord:=VarArrayCreate(1,'i',1,6,OleVariant;for

6、 i:=0 to BillList.Count-1 dobeginstrBillNo:=BillList.Stringsi;index:=pos('-',strBillNo;strBillPerfix:=copy(strBillNo,1,index-1;tryQuery.SQL.Clear;Query.SQL.Add('select BillName,BillMName from TableType_Tab whereBillPerfix='#39+strBillPerfix+#39;Query.Open;StrBillMName:=Query.FieldVal

7、ues'BillMName'StrBillName:=Query.FieldValues'BillName'Query.SQL.Clear;Query.SQL.Add('select makeDate,FDate,OutMan,State,LogInsertDate from '+StrBillMName+' where BillNo='+#39+strBillPerfix+#39;Query.Open;StrR ecordi1:=StrBillName;StrR ecordi2:=Query.FieldValues'ma

8、keDate'StrR ecordi3:=Query.FieldValues'FDate'StrR ecordi4:=Query.FieldValues'OutMan'StrR ecordi5:=Query.FieldValues'State'StrR ecordi6:=Query.FieldValues'LogInsertDate'exceptR esult:=-1;end;end;R esult:=StrRecord;end;vartemp: Variantptr: PChar;begintemp := VarArra

9、yCreate(0.1024*1024, varByte; / 建立 1m 内存ptr := VarArrayLock(temp;tryptr0 := 'h' / 在这放一个断点 , 看 windows 任务管理器 , 等一会 , 看内存占 用ptr1 := #0;ShowMessage(strint(ptr;finallyVarArrayUnlock(ptr;end;end; / 在退回后 , 调用者下一句放断点 , 看内存会不会释放还有 , Variant, OleVariant 在 delphi 下是通用的 , 只要定义 Variant 类型就可调用任何 com 方法 .COM 工程