為什么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/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; .... 到底為什么它自己會改程式碼?
------
人生有夢,逐夢而行 人若為善,福雖未至,禍已遠離 人若為惡,禍雖未至,福已遠離 http://www.taconet.com.tw/jieshu/ |
donlly
一般會員 發表:45 回覆:73 積分:23 註冊:2004-11-30 發送簡訊給我 |
本站聲明 |
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇! |