flexsim 如何使用server命令建立服务器

如何使用server命令建立服务器
3 R3 `" u, m+ h( h# y
; g$ Y+ m; }0 p0 a" f! g* B代码如下，可是连接不上

1. /**Custom Code*/
   
2. treenode current = ownerobject(c);
   3 B4 W8 D: b# U# H
3. 
   
4. senddelayedmessage(current,0.5,NULL);
   7 ~" k0 B: a5 B0 z7 c  @. }
5. //SERVER:初始化
   
6. if(getlabelnum(current,"startserver"))
   
7. {
   
8.         setlabelnum(current,"startserver",0);
   
9.        
   ) _; [( j% |6 Q! \) }+ R, v
10.         if(getlabelnum(current,"socknum"))              //防止重复起server
    8 @+ e5 |: I' _3 m
11.                 return 0;
    
12.        
    
13.         int m=getlabelnum(current,"serverport");
    # u3 N, {/ K5 X( r7 M
14.      servercreatemain(m);
    # l# {; C3 G, l: r
15.      
    
16.      setlabelnum(current,"servernum",1);            //初始化成功后将值存入servernum
    
17.      pt("server()成功！");pr();
    ' `- E2 b( f4 }# T- d7 J
18. }
    
19. 
    - ~" O9 M3 H) ~7 Z: x& u
20. 
    4 [5 C) c2 v  W% A! o# X
21. if(getlabelnum(current,"startserver"))
    2 \: y8 x& F9 }" Y. `$ Z" }# F
22. {
    * \3 b# Y9 s6 _' K6 f5 S
23. 
    
24.     int client = serveraccept(0);
    
25. }
    
26. 
    1 H# e; U6 U2 `) k3 t; g
27. //关闭连接
    
28. int client = serveraccept(0);        
    
29. if(getlabelnum(current,"servercloseconnection"))
    
30. {
    
31.         setlabelnum(current,"servercloseconnection",0);
    
32.        
    
33.         if(!getlabelnum(current,"servernum"))             //未启用server,则退出
    
34.                 return 0;
    
35.                
    ) |1 U+ L! X9 \" p, v# ~( b' a
36.      servercloseconnection(client);
    4 n# S8 e) f4 e  `9 T/ F
37.    
    
38.      pt("servercloseconnection()成功！");pr();   
    $ W: B: R: D+ t
39. 
    
40. }
    
41. 
    : T8 @5 O7 Y* I7 ~; h
42. //关闭SERVER
    
43. 
    ! \9 Q+ V# r4 X5 K* v% I) L+ Y
44. if(getlabelnum(current,"serverclosemain"))
    2 V$ F5 p% ~: j& a' b
45. {
    
46.         setlabelnum(current,"serverclosemain",0);
    
47.        
    
48.         if(!getlabelnum(current,"servernum"))             //未启用server,则退出
    
49.                 return 0;
    
50.                
    
51.      serverclosemain();
    
52.      setlabelnum(current,"servernum",0);
    3 S* o9 z3 }+ m4 |/ T0 Y  T
53.      pt("serverclosemain()成功！");pr();   
    : V6 M% j: b! ^1 j$ t6 T! M
54. }
    $ {0 ^$ p4 U5 {3 ]" ~+ _
55. 
    
56. 
    - v' p$ m+ E4 c  M& G/ u& O' A% b
57. //接受信息
    + x6 e+ O8 {% S* u4 v) ]- D) U
58. if(getlabelnum(current,"servernum"))                  //如果起了server服务(servernum标签非零)
    
59. {
    ' N4 \+ \+ q6 B6 X  R, l/ u0 s
60.         int servernum = getlabelnum(current,"servernum");
    1 }% V& q6 ?& `" t0 A
61.        
    7 I( v; e% V! o3 Z8 \, C, y
62.         string buffer = "";
    # E) J3 f8 r* F; c5 B5 \& ]
63.        
    
64.         buffer = clientreceive(servernum, NULL, 1024, 1);
    
65.        
    
66.         if(stringlen(buffer))
    
67.                 setlabelstr(current,"serverreceive",buffer);
    
68. 
    8 x7 [4 i+ U- x1 E
69. }
    
70. //发送信息
    ) z; J) z9 u8 E2 Y  d
71. 
    1 y! {. T$ N4 p" [: b1 B& o& ]8 L
72. 
    ) I# K* P+ k- o' e/ ?* n
73. if(getlabelnum(current,"servernum"))                     //如果起了SERVER服务(servernum标签非零)
    
74. {
    # R$ ?& D# O) Q" r
75.         string buffer = getlabelstr(current,"serversend");
    ) D: f( S5 y) D+ v. N
76.        
    ; ~" L# {6 {; B  `: _. n. b
77.         if(stringlen(buffer))
    ! w: j$ p% |& M  x
78.         {
    0 r* R/ L! n/ z8 U! ~9 L2 P# Y6 d
79.                 int servernum = getlabelnum(current,"servernum");
    
80.                
    
81.                 serversend(servernum,buffer);
    2 ~$ E! J( N$ n+ O- _& I+ K
82.                 setlabelstr(current,"send","");
    $ R; [3 @- h  Z( u, c
83.                
    
84.                 pt("serversend()成功！");pr();
    . B  S  t/ D7 Z( s0 j: r
85.         }
    
86. }

复制代码

谢谢分享

lllflflf

附件为经测试成功的文件

6# 慧娴亚伦

老师，楼上附件里有调试工具，另外我找到原因了：在启动服务器时要将socket初始化。

您能上传或者介绍一下您使用的tcp调试工具么？另外请尝试使用高版本软件，最好使用最新的2016版本。

模型目标是能够利用flexsim建立服务器，并能通过tcp工具与外部通信

3# 慧娴亚伦
4 T, T* t+ p; V! W4 ?陈老师，您好
* b7 y7 G' Z5 Q
5 I. X$ u( }* b6 D9 P! d再将startserver标签设为1后，output console提示启动成功，可是tcp调试工具却无法连接FLEXSIM,好困扰！
# C) s7 f: P$ ^3 {' s* L& F1 z6 U
我将文件重新修改了一下，如附件。

您的目标是什么呢？这个是FlexSim的模型之间用socket链接的功能。
" T- L+ ]( p, n4 b, g4 g9 I连接不上的话有什么报错么？

求教