有人知道怎么解决吗？焦急等待中。。。

[tzq0572]

我在Main主框架中建立了一个机构体
UserInfo = Record
strUserName: string[20];
strUserID: string[6];
end;
var
gUserInfo: UserInfo;

我想在动态链接库中得到这个gUserInfo的值，该怎么做？请高手指点。

[kuangning]

在动态连接库中也定义类似的结构

[DWGZ]

增加一个指针类型不就OK了？

[tzq0572]

我想在自动化对象中是用一个方法，返回gUserInfo,怎么用？我用下面的方法不行，救救我！！
function TDBCtl.GetUserInfo: OleVariant;
begin
Result := gUserInfo;
end;

[xz1980]

Result := mainFrm.gUserInfo

[xz1980]

进程内

[tzq0572]

可以写在COM自动化对象的接口方法中吗？

[tzq0572]

我在自动化对象中用出现错误，怎么回事，该怎么解决？请高手指点。
function TDBCtl.GetUserInfo: OleVariant;
begin
Result := gUserInfo;
end;

[Error] UntCom.pas(145): Incompatible types: 'OleVariant' and 'pUserInfo'

[tzq0572]

问题已经解决，谢谢大家！以下是 zjqyb() 解决的方法
function TDBCtl.GetUserInfo: OleVariant;
begin
Result := integer(@gUserInfo);
end;