請教各位前輩 小弟有2ㄍSERVER端的程序及副程式如下:

procedure TDM.SetSQL(Value: OleVariant);
begin
  if UpperCase(Value[0]) = 'PD010' then
     With Pd010 do begin Close; SQL.Clear; SQL.Add(Value[1]); end;
end;    function TDM.RunSql(Value: OleVariant): OleVariant;
begin
 if UpperCase(Value[0]) = 'E' then
    With ExSql do begin Close; SQL.Clear; SQL.Add(Value[1]);ExecSql;Result := VarArrayOf(['']); end;
.........
end;

小弟的問題是如何在Type Library中設定 在上圖的Return Type 及 Parameters的type的型態小弟該怎ㄇ選擇 而在設定完成後該如何產生如上述的程式碼

Return Type 不需要設 如果你要定義一個可以回傳值的function 你可以加入新的Parameter如returnValue,VARIANT *,[out,retval] 之後按refresh implementation 即可 如果你不太會用IDL形式的Type Libary Editor 你可以在 Delphi環境中從選單Tools->Environement Options->Type Library->Language 選Pascal 之後Type Libary Editor 就會以Pascal的形式讓你設定 混心雜欲 棄修身~唉

------
唉~

引言: 小弟的問題是如何在Type Library中設定 在上圖的Return Type 及 Parameters的type的型態小弟該怎ㄇ選擇 而在設定完成後該如何產生如上述的程式碼

都選OleVariant即可，沒有傳回值的Return Type選None(Procedure)，依你Method的定義，在Parameters內的Name應該是要給Value，存檔時即會產生定義在Type Library和RDM，只要在RDM定義內填入你的實做碼即可。如

  if UpperCase(Value[0]) = 'PD010' then
    With Pd010 do
    begin
      Close;
      SQL.Clear;
      SQL.Add(Value[1]);
    end;

人生有夢，逐夢而行。 人若為善，福雖未至，禍已遠離。 人若為惡，禍雖未至，福已遠離。 http://www.taconet.com.tw/jieshu/

小弟試了一下 經設定後產生另一ㄍ錯誤訊息 為Undeclared identifier 'Class_DM'

引言: 小弟試了一下 經設定後產生另一ㄍ錯誤訊息 為Undeclared identifier 'Class_DM'

Class_DM是什麼東西，看起來像是你自己加入的程式碼，可否詳述！

人生有夢，逐夢而行。 人若為善，福雖未至，禍已遠離。 人若為惡，禍雖未至，福已遠離。 http://www.taconet.com.tw/jieshu/

Undeclared identifier 'Class_DM'這ㄍ錯誤訊息是在設定 Type Library後 'Class_DM'會變為CLASS_Trydbexpress 而DM內的'Class_DM'沒跟著改所導致的錯誤 現在可以了,感謝兩位前輩的回應