Question

我在Delphi XE2中设置了OLE自动化服务器和OLE客户端。我的两个方法如下：

function TMyCom2.Get_Text() : IStrings;
begin
   GetOleStrings(unit1.Form1.Memo1.Lines, Result);
end;

和

procedure TMyCom2.Set_Text(const value: IStrings);
begin
  SetOleStrings(unit1.Form1.Memo1.Lines, value);
end;

现在我试着打电话给客户。第二个方法（Set_Text）工作得非常好。但第一个（Get_Text）应该收集服务器备忘录的内容并将其写入客户端的备忘录中，导致此异常：

服务器的异常错误！

要获取Ole信息，我在客户端写了这个：

procedure TForm1.Button1Click(Sender: TObject);
var
  aStrings : IStrings;
begin
    aStrings.Add(Server.Get_Text);
    SetOleStrings(Memo1.Lines, aStrings);
end;

我不知道会出现什么问题，如果有人能看看这段代码告诉我到底出了什么问题，我感到非常感激; D

PS：我已经使用Integers进行了测试，但它确实有问题，因此问题必须与字符串

有关

我在Dropbox上传了这两个项目，所以随时下载它们：客户：here 服务器：here

Ole Automation Server中的故障

0 个答案: