cTS:=ConnectServer("tsl.tinysoft.com.cn",443,array("Address":"192.168.0.250","Port":808,"AuthMode":0));

lg:=LoginServer("TSUser","UserPass",msg);

if lg=0 then

begin

echo "登陆成功!"; 

Script:='program TS_testFunc;

    Begin

     r:=1->5;

Return r;

    End.';

if SendExecuteAndWait(Script,getSysParams(),Result,ErrMsg)=0 then //Execute Success

echo tostn(Result),'\r\n';

else 

echo '远端执行失败！\r\n';

DisconnectServer();

end

else

echo "登陆失败，报错：(",cTS,",",msg,")\r\n";