Additional Server-Side Events
There are several additional events coded on the AstaPDAServerSocket in order to support remote PDA Clients.
OnPDAParamList
This is the most important event as all the SendParamList calls from PDA clients will flow through this event. The MsgToken comes from the remote Client call and if there is any kind of Error on the server just send a non-zero value back in PdaSendParamList.
procedure TTestForm.AstaServerSocketPDAParamList(Sender: TObject;
ClientSocket: TCustomWinSocket; PDAid, MsgID, MsgToken: Integer;
P: TAstaParamList);
var Error: Integer;
begin
Error:=0;
case MsgToken of
1001: Error:=DoPDAServerTime(ClientSocket, P);
1003: Error:=DoPalmSQLSelect(ClientSocket, P);
1004: Error:=DoPDATables(ClientSocket, P);
1005: Error:=DoPalmExecSQL(Clientsocket,p);
1006: Error:=DoPDAFields(ClientSocket, P);
1010: Error:=DoPalmMultiSQLSelect(ClientSocket, P);
1011: Error:=DoPDASelect(ClientSocket, P);
1012: Error:=DoPalmExecSQLParamList(ClientSocket,p);
else Error:=DoPDAServerTime(ClientSocket, P);
end;
AstaServerSocket.PDASendParamList(Error, ClientSocket, P);
end; |
|