15 lines
502 B
Plaintext
15 lines
502 B
Plaintext
|
|
//login 远程rpc_server
|
|
[err, h] := rpc_login("127.0.0.1:1234", "test", "password-token");
|
|
if err then
|
|
return echo "login fail:", err;
|
|
|
|
for i:=0 to 99 do Begin
|
|
echo "remote call demo_function1: ", i, "\n";
|
|
rpc_exec(h, 30*1000, "demo_function1", "hello: " $ datetimetostr(now()));//远程执行模型
|
|
End;
|
|
|
|
for i:=0 to 99 do Begin
|
|
echo "remote call demo_function2: ", i, "\n";
|
|
rpc_exec(h, 30*1000, "demo_function2", "world: " $ datetimetostr(now()));//远程执行模型
|
|
End; |