ExecuteData

procedure TRDMCardServer.ExecuteData(const sSQL: WideString; out pResult: WideString; out pMsg: WideString); safecall; 通貨
safecall; リアル
var
ADOComm: TADOCommand;
begin
Inc(i_CMDOrder);
if i_CMDOrder = 20 then
i_CMDOrder := 1;

ADOComm := TADOCommand(FindComponent('ADOComm' + IntToStr(i_CMDOrder)));
with frmServer do
begin
if GetDBConnectionState <> 0 then Exit;
end;

try
ADOComm.CommandText := sSQL;
ADOComm.Execute;
pResult := '1';
pMsg := '';
except
pResult := '0';
pMsg := '';
end;
end;