NexusDB

var
  aSession: TnxSession;
  adb: TnxDatabase;
  aQuery: TnxQuery;
  i: integer;
begin
  aSession:=TnxSession.Create(nil);
  adb:=TnxDatabase.Create(nil);
  aQuery:=TnxQuery.Create(nil);
  try
    aSession.ServerEngine:=ServerEngine;
    aSession.Active:=true;
    adb.AliasName:='Test';
    adb.Session:=aSession;
    adb.Open;
    aQuery.Database:=adb;
    aQuery.SQL.Text:='select * from test';
    aQuery.Open;
    while not aQuery.eof do
    begin
      for i:=0 to aQuery.FieldCount-1 do
        Output.Write(aQuery.Fields.Fields[i].AsString+',');
      Output.WriteLn('');
      aQuery.Next;
    end;
    Output.SaveToFile('c:\out.txt');
  finally
    aQuery.Free;
    adb.free;
    aSession.Free;
  end;
end.

uses
  ...
  nxdb, nxtwWinsockTransport, nxreRemoteServerEngine,
  nxrcRemoteCommandsPluginClient, nxsdServerEngine, nxsdTypes
  ...

function ExecCommand(aserver: string; aport: integer;
  auser, apassword, ascript, aparams: string): string;
var
  Transport: TnxWinsockTransport;
  ServerEngine: TnxRemoteServerEngine;
  Session: TnxSession;
  rc: TnxRemoteRemoteCommandsPlugin;
  error: integer;
  errormessage: string;
  Taskinfo: TnxAbstractTaskInfo;
  Database: TnxDatabase;
  ProgressTable: TnxTable;
  Completed: Boolean;
  Status: TnxTaskStatus;
  ResultData: TStringlist;
begin
  Transport:=TnxWinsockTransport.Create(nil);
  ServerEngine:=TnxRemoteServerEngine.Create(nil);
  Session:=TnxSession.Create(nil);
  rc:=TnxRemoteRemoteCommandsPlugin.Create(nil);
  ResultData:=TStringlist.Create;
  try
    try
      Transport.ServerNameRuntime:=aserver;
      Transport.Port:=aport;
      ServerEngine.Transport:=Transport;
      Session.ServerEngine:=ServerEngine;
      Session.UserName:=auser;
      Session.Password:=apassword;
      rc.Session:=Session;
      rc.Active:=true;

      rc.ExecCommand('cmdExecScript', ascript, aparams, error, errormessage, Taskinfo);
      if (error<>0) or (Taskinfo=nil) then
        ResultData.Add(inttostr(error)+' - '+errormessage)
     else
     begin
        Database:=TnxDatabase.Create(nil);
        ProgressTable:=TnxTable.Create(nil);
        if Assigned(TaskInfo) then
        try
          Database.Session:=Session;
          Database.AliasName:='ServerRemoteCommand';
          Database.Open;
          ProgressTable.Database:=Database;
          ProgressTable.TableName:='ServerRemoteCommand_'+IntToStr(Taskinfo.RemoteID);
          repeat
            ProgressTable.Open;
            while not ProgressTable.Eof do
            begin
              ResultData.Add(ProgressTable.FindField('Lines').AsString);
              ProgressTable.Delete;
            end;
            ProgressTable.Close;
            TaskInfo.GetStatus(Completed, Status);
            if not Completed then begin
              Sleep(500);
            end;
          until Completed;
          ProgressTable.Open;
          while not ProgressTable.Eof do
          begin
            Write(ProgressTable.FindField('Lines').AsString);
            ProgressTable.Delete;
          end;
          ProgressTable.Close;
        finally
          ProgressTable.Free;
          Database.Free;
          TaskInfo.Free;
        end;
      end;
    except
      on E:Exception do
      begin
        ResultData.Add(E.Classname + ': ' + E.Message);
      end;
    end;
  finally
    result:=ResultData.Text;
    rc.Free;
    Session.Free;
    ServerEngine.Free;
    Transport.Free;
    ResultData.Free;
  end;
end;

// exec script direct
procedure TformRemoteCommandTest.Button1Click(Sender: TObject);
var
  params:TStringlist;
begin
  params:=TStringlist.Create;
  try
    Params.Values['/direct']:='begin Output.Write(''abc'');end.';
    Memo1.Lines.Text:=ExecCommand(
      edServer.Text, strtointdef(edPort.Text, 16000),
      edUser.Text, edPassWord.Text,
      '', params.text);
  finally
    params.Free;
  end;
end;

// exec SQL
procedure TformRemoteCommandTest.Button2Click(Sender: TObject);
var
  params:TStringlist;
begin
  params:=TStringlist.Create;
  try
    Params.Values['/database']:='Test';
    Params.Values['/sql']:='select * from t1';
    Params.Values['/delimiter']:=',';
    Params.Values['/qualifier']:='"';
    Memo1.Lines.Text:=ExecCommand(
      edServer.Text, strtointdef(edPort.Text, 16000),
      edUser.Text, edPassWord.Text,
      'runsql.nxscript', params.text);
  finally
    params.Free;
  end;
end;

// exec Backup
procedure TformRemoteCommandTest.Button3Click(Sender: TObject);
var
  params:TStringlist;
begin
  params:=TStringlist.Create;
  try
    Params.Values['/Source']:='Test';
    Params.Values['/Destination']:='c:\testbackup';
    Memo1.Lines.Text:=ExecCommand(
      edServer.Text, strtointdef(edPort.Text, 16000),
      edUser.Text, edPassWord.Text,
      'Backup.nxscript', params.text);
  finally
    params.Free;
  end;
end;

nxCommand /Type:cmdExecScript /Script:myscript.nxscript [/param1:asneededbythescript ...]

/Direct:"begin Output.Write('abc');end."

nxCommand /Type:cmdExecScript /Script:runsql.nxscript /database:dbname
  /sql:"select * from t1" /delimiter:%20 /qualifier:%22 > export.txt

nxCommand /Type:cmdExecScript /Script:Backup.nxscript /Source:srcalias|srcpath
  /Destination:destalias|destpath