以下錯誤 procedure Tpicasso.getname(var sname: OleVariant); begin result:='aaa';//錯誤在這一行不能執行 end; 謝謝

引言:

以下錯誤
procedure Tpicasso.getname(var sname: OleVariant);改為
function Tpicasso.getname(var sname:OleVariant):String;
begin
 result:='aaa';//錯誤在這一行不能執行
end;
謝謝     

學而時習之不亦樂乎!

Function Tpicasso.getname(var sname: OleVariant):String;
begin
  result:='aaa';//錯誤在這一行不能執行
end;
請改成Function才可以有傳回值(Result)

前輩對不起我沒有表達好我要做dcom 如果我把procedure 改成function function getname(var sname: OleVariant); safecall;//那麼這一行就會出現錯誤 function Tpicasso.getname(var sname: OleVariant); begin result:='aaa'; end; 如是要做dcom那麼要怎麼改呢謝謝

procedure Tpicasso.getname(var sname: OleVariant); safecall;// begin  //result:='aaa';//錯誤在這一行不能執行   sName := 'aaa' ; // 改成這個 end;

多看看PASCAL的書吧.....這是基礎呢 @@~~飛翔在天際的精靈~~@@

------
@@~~飛翔在天際的精靈~~@@

I thought,you should use the TLB Designer to maintain your COM/DCOM method, for general COM Object, the method mapping to a procedure,for Automation COM Object, the method mapping to a function. for general COM object, procedure can use out revised word to specified the return value to the original parameters. for Automation COM object, you can use *Variant type to get the return value.