請問大大... 我在ap server設一function 是傳回 oldVARIANT 現在可以傳到apserver 卻不能回傳values 錯誤訊息如下: Call Cancellation 已停用.. 我只是寫簡單的傳值回值 傳值主要是做些簡單的sql 回值只是回字串而已 請問大大們知道這是哪裡出錯嗎.... 我的程式碼如下 clinet ; procedure TForm1.Button1Click(Sender: TObject); var s :Variant; begin s:=memo2.Text; SocketConnection1.Connected:=true; SocketConnection1.AppServer.getdata(s); memo1.Lines.Text:=s; end; appserver : function TTtest3.Get_getdata: OleVariant; begin result:=form1.edit1.text end; procedure TTtest3.Set_getdata(Value: OleVariant); begin form1.edit1.text:=Value; form1.indata(form1.edit1.text); end;

clinet ; procedure TForm1.Button1Click(Sender: TObject); var s :OLEVariant; <--改成這樣試試 begin s:=memo2.Text; SocketConnection1.Connected:=true; SocketConnection1.AppServer.getdata(s); memo1.Lines.Text:=s; end; -- 聰明的人，喜歡猜心；雖然每次都猜對了，卻失去了自己的心 傻氣的人，喜歡給心；雖然每次都被笑了，卻得到了別人的心

------
聰明的人，喜歡猜心；雖然每次都猜對了，卻失去了自己的心
傻氣的人，喜歡給心；雖然每次都被笑了，卻得到了別人的心

Jasonwong 大大 一樣試過的結果一樣 一樣的錯誤訊息

看你的app server是定义的一个Property哟，是否该这样调用

procedure TForm1.Button1Click(Sender: TObject);
var s :Variant;
begin
  s:=memo2.Text;
  SocketConnection1.Connected:=true;
  SocketConnection1.AppServer.getdata:=s;
  memo1.Lines.Text:=s;
end;

或SocketConnection1.AppServer.set_getdata(s); 久病成良医--多试 千人之诺诺,不如一士之谔谔--兼听

------
江上何人初见月，江月何年初照人

幫忙修正:  

 
procedure TForm1.Button1Click(Sender: TObject);
var s :Variant;
begin
  s:=memo2.Text;
  SocketConnection1.Connected:=true;
  //SocketConnection1.AppServer.getdata:=s;
  
  s := SocketConnection1.AppServer.getdata;
  
  memo1.Lines.Text:=s;
end;

不好意思,AppServer 我沒經驗,不過getdata的資料型態 不能為WideString嗎?

JOW       這我不曉得說... 我記得我有看過一位大大發表的 一篇文章關於 ShortString ,AnsiString , WideString 這三個型態的差異性    AnsiString = string(內定為AnsiString) 長文字使用下 ...

不好意思,AppServer 我真的是沒有經驗,不過我可以提供 一點個人在Automation Object實作經驗,僅供參考,有誤莫怪.    以 IStrings 傳遞包含於TStrings中的字串.     

 
appserver :    (以TListBox代替TEdit,取其Items屬性)
function TTtest3.Get_getdata: IStrings;
begin
  GetOleStrings(Form1.ListBox1.Items, Result)
end;    procedure TTtest3.Set_getdata(Value: IStrings);
var
  L: TStringList;
begin
  L := TStringList.Create;
  try
    SetOleStrings(L, Value);
    ListBox2.Items.Assign(L);
  finally
    L.Free;
  end;
end;    clinet :    //Get 
procedure TForm1.Button1Click(Sender: TObject);
begin
  SocketConnection1.Connected:=true;
  SetOleStrings(inMemo.Lines, SocketConnection1.AppServer.getdata);
end;    //Set
procedure TForm1.Button2Click(Sender: TObject);
var
  Temp: IStrings;
begin
  SocketConnection1.Connected:=true;
  GetOleStrings(outMemo.Lines, Temp);
  SocketConnection1.AppServer.getdata := Temp;
end;