内存锁定问题，高手们请指教？？

[keki]

各位高手请帮忙：小弟在测试OLE自动化对象（C/S）时，出现异常：S端采用动态绑定，当RUN S端时，C端能正常启动，但S端提示“内存已锁定”，不知所因？？部分代码如下：

...var new :variant;...
uses ComObj,Axctrls;
procedure TForm1.FormCreate(Sender: TObject);
var i:integer;
begin
try
new:=CreateOleObject('Server.wzf');//类型库：server_TLB,CoClassName:wzf,
for i:=0 to new.GetNames.count-1 do
cmbNames.Items.Add(new.GetNames.item[i]);
Except
Application.HandleException(self);
end;
GetDataFromServer;//自定义过程：显示C端部分数据。
end;

[DelphiBoy2003]

你先下断点，看代码是执行到那一段发生的内存锁定错误，因为我不知道你GetDataFromServer中的代码，所以不好判断

[keki]

Iwzf = interface(IDispatch)
...
function getFieldValue(const FieldName: WideString): WideString; safecall;
...
以上是C端类型库：server_TLB中部分代码
S端GetDataFromServer代码如下：
procedure TForm1.GetDataFromServer;
begin
edtName.text:=new.GetFieldValue('fname');
edtcard.text:=new.GetFieldValue('card_num');
edtserial.text:=new.GetFieldValue('serial_id');
end;
//断点设过，异常为for...
//非常感谢！！！

[888888888888]

关注