為什么appsever的function 會自己變成procedure ? |
|
答題得分者是：jieshu
|
|
donlly
一般會員   發表：45 回覆：73 積分：23 註冊：2004-11-30 發送簡訊給我 |
type
TXXZX = class(TRemoteDataModule, IXXZX)
Query1: TQuery;
Database1: TDatabase;
DataSetProvider1: TDataSetProvider;
DataSource1: TDataSource;
Function cc:integer;
...
Function cc:integer;
begin
result:=1;
end;
.... 保存后,在client段調用 procedure TForm1.Button8Click(Sender: TObject);
begin
ShowMessage(intToStr(SocketConnection1.AppServer.cc));
end; 變成: type
TXXZX = class(TRemoteDataModule, IXXZX)
Query1: TQuery;
Database1: TDatabase;
DataSetProvider1: TDataSetProvider;
DataSource1: TDataSource;
procedure cc; safecall;
...
procedure TXXZX.cc;
begin
result:=1;
end;
.... 到底為什么它自己會改程式碼?
|
|
jieshu
版主   發表：42 回覆：894 積分：745 註冊：2002-04-15 發送簡訊給我 |
引言:
在Type Library上設好存檔後, 他會幫您更新到RemoteDataModule, 請檢查是否Type Library上的設定有問題, 有時候Function是不太好設, 我是用Delphi5, 目前都改用DataRequest事件來處理, 您可搜尋看看. <iFrame src="http://www.coss.com.tw/jieshu/sign.htm" width=400 height=105 scolling="NO" border="0"></iFrame>
震江系統(股)公司: http://www.coss.com.tw/
捷舒軟體設計坊: http://www.coss.com.tw/jieshu/
------
人生有夢，逐夢而行 人若為善，福雖未至，禍已遠離 人若為惡，禍雖未至，福已遠離 http://www.taconet.com.tw/jieshu/ |
|
donlly
一般會員 發表：45 回覆：73 積分：23 註冊：2004-11-30 發送簡訊給我 |
發表時間：2004-12-10 12:29:56
IP:218.13.xxx.xxx 未訂閱
系統時間：2024-04-27 1:25:34
聯絡我們 | Delphi K.Top討論版
| 本站聲明 |
|
1. 本論壇為無營利行為之開放平台，所有文章都是由網友自行張貼，如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權，而損及您的利益，請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨，是藍是綠本站無權干涉，但這裡不是政治性論壇！ |