DLL使用全局变量.docVIP

DLL使用全局变量 有几个朋友经常向我问题在DLL中怎么共用一个全局变量。比如像用户登陆后的用户名(UserName)... 其实这个问题很简单。下面我把我的做法写出来大家一起分享。 把共享的变量放在主程序里:UserName,....等等, 在主程序里写两个函数 Function CurUserName():PChar; begin Result:=pchar(UserName); end; procedure SetCurUserName(LoginUserName: PChar) begin UserName:=LoginUserName; end; 然后在主程序的工程文件(*.dpr)里输出这两个函数里写 ..... {$R *.res} exports CurUserName, SetCurUserName; .... 这样在每个DLL里就可以使用这两个函数了 function CurUserName: PChar; //从主程序里获取当前登陆帐号 var GetCurUserName: function: pchar; begin @GetCurUserName := GetProcAddress(GetModuleHandle(pchar(application.Exename)), CurUserName); if Assigned(GetCurUserName) then //找到 result := GetCurUserName else result := admin; end; 上面的代码大家都可以看懂吗？如果有不明白的地方可以Email我。 在delphi中调用excel有四种方式，我们选取其中的一种用OleObject来装载excel工作表的方式来谈delphi控制excel的重要属性和方法。 首先给出通过OLE创建的一些主要代码步进行简单说明： 创建OLE对象： Var olecon: TOleContainer; Olecon:= TOleContainer.Create(self); Olecon.oleobject:= Olecon.CreateObject(excel.sheet,false)； 或选择导入一个excel文件来创建OLE对象： Olecon.oleobject:= Olecon.CreateObjectFromFile(xlsname,false)； 最好隐藏excel的几个工具条,这样就好象是嵌在你的程序中的一个表而已了： Olecon.OleObject.application.CommandBars[Standard].Visible:=false; Olecon.OleObject.application.CommandBars[Formatting].Visible:=false; Olecon.OleObject.application.CommandBars[Reviewing].Visible:=false; 然后显示并激活excel表,对TOleContainer定义的对象： Olecon.show; Olecon.doverb(0); 这样基本可以了，但TOleContainer有个不好的地方，就是当你一点击其它控件是就它就失去焦点，然后就自动退出，其实并没有真的退出，只是需要你再次激活它而已，关键是当它失去焦点的时候就excel对象就不见了，可以用Timage控件把TOleContainer所在的地方有EXCEL时候的区域图片截下来骗骗用户，我们这里主要不是讲这个，就不详述了。 下面我们就开始讲Excel_TLB中的接口的常用属性和方法，主要是针对导出和设定报表格式的一些接口元素。 单元格的读写属性： olecon.OleObject.application.cells.item[1,1]; olecon.OleObject.application.cells(1,1); olecon.OleObject.application.cells[1,1].Value; 上面三种都可以对工作表的‘A1’单元进行读写。 在delphi中对单元格(集)，区域，工作表等所有对象的操作都是要Variant来实现的。 自己的程序中选定区域赋给Range: Var range,sheet:Variant; Range:= olecon.OleObject.application.Range[A1:C3]; 或者： Sheet:= olecon.OleObject.application.Activesheet; Range:= olecon.OleObject.application.Range[sheet.cell