Type Library設定的問題 |
答題得分者是:speedup
|
terrychen
尊榮會員 發表:90 回覆:794 積分:501 註冊:2003-05-01 發送簡訊給我 |
請教各位前輩
小弟有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的型態小弟該怎ㄇ選擇 而在設定完成後該如何產生如上述的程式碼 | ||
speedup
資深會員 發表:19 回覆:259 積分:280 註冊:2003-07-04 發送簡訊給我 |
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的形式讓你設定 混心雜欲 棄修身~唉
------
唉~ |
||
jieshu
版主 發表:42 回覆:894 積分:745 註冊:2002-04-15 發送簡訊給我 |
引言: 小弟的問題是如何在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/ |
||
terrychen
尊榮會員 發表:90 回覆:794 積分:501 註冊:2003-05-01 發送簡訊給我 |
|||
jieshu
版主 發表:42 回覆:894 積分:745 註冊:2002-04-15 發送簡訊給我 |
引言: 小弟試了一下 經設定後產生另一ㄍ錯誤訊息 為Undeclared identifier 'Class_DM'Class_DM是什麼東西,看起來像是你自己加入的程式碼,可否詳述!
------
人生有夢,逐夢而行 人若為善,福雖未至,禍已遠離 人若為惡,禍雖未至,福已遠離 http://www.taconet.com.tw/jieshu/ |
||
terrychen
尊榮會員 發表:90 回覆:794 積分:501 註冊:2003-05-01 發送簡訊給我 |
本站聲明 |
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇! |