如何解决Delphi 10.3 MIDAS AppServer自定义过程
我已经创建了一个基本的DataSnap Server。 文件-> 新建-> 其他-> DataSnap -> DataSnap Server 。
在DataSnap Server向导中,我使用了以下选项。
[x] Windows
[x] Forms Application
[x] VCL Application
[x] Protocols TCP/IP,Server Methods Class,Sample Methods
[x] TCP/IP Port 32900
[x] TDSServerModule
然后我在ServerMethods1中添加了一个数据库连接,一个查询和一个DataSetProvider。
在客户端上我添加了一个Android设备 DSProviderConnection1 SQLConnection1 和ClientDataSet。
这很棒。只是为了确认DataSnap Server和客户端进行通信。
现在,我想从客户端执行存储过程。
因此,在服务器上,我在ServerMethods1下创建了一个公共过程。
procedure DEVICE_STATUS( ID,UserName,SSID : string; SignalStrength,BatteryLevel : integer);
这显然正在测试中...
procedure TServerMethods1.DEVICE_STATUS( ID,BatteryLevel : integer);
begin
Form1.Edit1.Text:=ID;
end;
回到我尝试过的Android手机
NEBULA.AppServer.DEVICE_STATUS('N-01','-',0);
但是出现错误IAppServer不包含名为'DEVICE_STATUS'的成员。我在这里想念什么?
谢谢。
解决方法
解决方案:
在设置SQLConnection之后,在Android客户端上,右键单击它,然后单击“生成Datasnap客户端类”。保存单位。将此单元添加到要执行该过程的uses子句中,然后。
procedure TMainScreen.btnStatusClick(Sender: TObject);
var
Temp : TServerMethods1Client;
begin
SQLConnection1.Connected:=true;
Temp := TServerMethods1Client.Create(SQLConnection1.DBXConnection);
try
Temp.DEVICE_STATUS('N-01','-',0);
finally
Temp.Free;
end;
end;
版权声明:本文内容由互联网用户自发贡献,该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容, 请发送邮件至 dio@foxmail.com 举报,一经查实,本站将立刻删除。