服務端：建立一個Remote Data Module，類名F_AServer
自定義一個方法
function GetRecord(const Sql: WideString): OleVariant; safecall;
回傳的是 DataSetProvider.Data
客戶端:
呼叫GetRecord
客戶端添加一個DataMoule，名稱F_DM,拖放一個DCOM控制元件名稱為con1,
一個ClientDataSet控制元件，名稱為ds1,
放一個按鈕，按鈕事件如下：（呼叫服務端的GetRecord方法）
procedure TForm1.btn_1Click(Sender: TObject);
var
obj:IF_AServer;
begin
obj:= CoF_AServer(DM.F_DM.con1.GetServer).Create;
DM.F_DM.ds1.Data:=obj.GetRecord('select * from hy_info');
end;
提示 服務器出現意外情況。 該如何呼叫服務端的方法？？？
uj5u.com熱心網友回復：
procedure TForm1.btn_1Click(Sender: TObject);begin
DM.F_DM.con1.Open;
DM.F_DM.ds1.Data:= DM.F_DM.con1.AppServer.GetRecord('select * from hy_info');
end;
除錯的時候，發現呼叫GetRecord方法時，引數并沒有傳遞到服務端，服務端獲取的字串引數=''
,如果沒有傳遞字串引數，如果我在服務端賦值引數，回傳的OleVariant，客戶端提示Unsigged,
賦值給ClientDataSet時，出現InValid Data Packet
uj5u.com熱心網友回復：
http://bbs.csdn.net/topics/380125338 看看這個兄弟轉載請註明出處，本文鏈接：https://www.uj5u.com/houduan/117404.html
標籤：數據庫相關
下一篇：有沒有好的excel報表控制元件