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

Question

我在Main主框架中建立了一个机构体
  UserInfo = Record
    strUserName: string[20];
    strUserID: string[6];
  end;
var
  gUserInfo: UserInfo;
  
  我想在动态链接库中得到这个gUserInfo的值，该怎么做？请高手指点。

Answer 1

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

Answer 2

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

Answer 3

我在自动化对象中用出现错误，怎么回事，该怎么解决？请高手指点。
function TDBCtl.GetUserInfo: OleVariant;
begin
  Result := gUserInfo;
end;[Error] UntCom.pas(145): Incompatible types: 'OleVariant' and 'pUserInfo'

Answer 4

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