求助:为何在Active Library 中使用MessageBox会出错？

Question

begin//写进程
  with procSession do begin//一个存贮过程
    Close;
    ParamByName('VAR_APP_INFO').value:= sInput;
    ExecProc;
    if ParamByName('Nerrno').asinteger<>0 then begin
      Application.MessageBox(pchar(ParamByName('Varerrstr').asString),'注意',MB_OK or MB_ICONWARNING);
      Abort;
    end;
  end;
end;
为何该方法在active library中编译会提示[Error] Incompatible types: 'TMessageButtons' and 'Integer'

Answer 1

你把pchar去掉看看是否可行.
因为你的messagebox里面ParamByName('Varerrstr').asString本就是字符型.

Answer 2

在COM组件中不允许出现 视化 的东西，如果你做的Dll在Asp中运行的话你就很明白这个道理，因为所有的dll都在服务器端运行，如果所有的客户都调用这个dll，那服务器就会一直弹出窗口。