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

如何使用server命令建立服务器
- a! ^3 Y0 q; ]
: X/ u5 R  H7 g3 C4 n代码如下，可是连接不上

1. /**Custom Code*/
   
2. treenode current = ownerobject(c);
   - }0 ^4 \/ |% T/ X0 \6 |' |3 R1 [5 F. x
3. 
   5 M5 H" e$ M; t6 m
4. senddelayedmessage(current,0.5,NULL);
   
5. //SERVER:初始化
   * Z9 ^- J# ?9 f# a
6. if(getlabelnum(current,"startserver"))
   + G+ y* p3 e# T
7. {
     Z! q5 Z; H$ r: Q
8.         setlabelnum(current,"startserver",0);
   
9.        
   1 {2 J% _* S( O  V, A& k
10.         if(getlabelnum(current,"socknum"))              //防止重复起server
    
11.                 return 0;
    
12.        
    
13.         int m=getlabelnum(current,"serverport");
    
14.      servercreatemain(m);
    ! e9 _4 F9 c: ^9 z3 K
15.      
    
16.      setlabelnum(current,"servernum",1);            //初始化成功后将值存入servernum
    
17.      pt("server()成功！");pr();
    
18. }
    
19. 
    
20. 
    
21. if(getlabelnum(current,"startserver"))
    
22. {
    
23. 
    
24.     int client = serveraccept(0);
    
25. }
    
26. 
    1 h. B1 ?! u9 H3 Q% ~
27. //关闭连接
    ( x+ |. P' R2 s: Q* R: K
28. int client = serveraccept(0);        
    
29. if(getlabelnum(current,"servercloseconnection"))
    3 P: l- i. Y, M7 z) \( U
30. {
    1 Q5 i# x8 _. a) B, }( k
31.         setlabelnum(current,"servercloseconnection",0);
    ; r& p4 X" f3 P: R
32.        
    * z3 N0 V# T6 ^- [- g
33.         if(!getlabelnum(current,"servernum"))             //未启用server,则退出
    
34.                 return 0;
    
35.                
    
36.      servercloseconnection(client);
    
37.    
    
38.      pt("servercloseconnection()成功！");pr();   
    ! I1 w2 _: h. n4 _5 O- c# Y
39. 
    
40. }
    
41. 
    
42. //关闭SERVER
    
43. 
    
44. if(getlabelnum(current,"serverclosemain"))
    
45. {
    1 ^; h. L' _) [+ m) i
46.         setlabelnum(current,"serverclosemain",0);
    6 u/ e( ]7 m6 r5 b9 J; {  |
47.        
    * n+ B, w& l2 w/ k8 U* W& V3 p
48.         if(!getlabelnum(current,"servernum"))             //未启用server,则退出
    
49.                 return 0;
    & N6 `* W2 K  a5 y, C$ n
50.                
    
51.      serverclosemain();
    
52.      setlabelnum(current,"servernum",0);
    
53.      pt("serverclosemain()成功！");pr();   
    ! N) S+ T6 G3 k3 W" w9 S
54. }
    
55. 
    6 }+ k6 ]8 C9 _# M- E+ S2 T
56. 
    
57. //接受信息
      Y7 e$ n7 R1 Y3 J! f1 a" [9 j! ^" r
58. if(getlabelnum(current,"servernum"))                  //如果起了server服务(servernum标签非零)
    
59. {
    1 F1 c/ @# i% b+ |
60.         int servernum = getlabelnum(current,"servernum");
    
61.        
    
62.         string buffer = "";
    
63.        
    
64.         buffer = clientreceive(servernum, NULL, 1024, 1);
    : {4 k: p! z$ e- ?, w' v! D; G- h
65.        
    
66.         if(stringlen(buffer))
    
67.                 setlabelstr(current,"serverreceive",buffer);
    3 L# X) G+ x2 ^! C  b- U" s$ M
68. 
    % I( ~; u; E' e' D* ~
69. }
      Q9 A. X9 C( }- x
70. //发送信息
    . |) C5 T" H. |+ x
71. 
    
72. 
    9 ^& L0 O" x) r7 Z+ W) A. z- v7 f
73. if(getlabelnum(current,"servernum"))                     //如果起了SERVER服务(servernum标签非零)
    1 Y, F  ]( T& Z( a4 R0 R9 f
74. {
    0 b1 v9 V# E3 K% w, n4 e& V0 S
75.         string buffer = getlabelstr(current,"serversend");
    ' _; J" j/ r( A/ S
76.        
    
77.         if(stringlen(buffer))
    % u% }9 k: y; f4 B
78.         {
    
79.                 int servernum = getlabelnum(current,"servernum");
    
80.                
    
81.                 serversend(servernum,buffer);
    - V) h: X4 W1 D
82.                 setlabelstr(current,"send","");
    
83.                
    . }7 |$ Y" l# B& W; U
84.                 pt("serversend()成功！");pr();
    
85.         }
    - j, s# ]$ Y, W- F  y- K
86. }

复制代码

求教

您的目标是什么呢？这个是FlexSim的模型之间用socket链接的功能。
连接不上的话有什么报错么？

3# 慧娴亚伦
陈老师，您好

再将startserver标签设为1后，output console提示启动成功，可是tcp调试工具却无法连接FLEXSIM,好困扰！

我将文件重新修改了一下，如附件。

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

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

6# 慧娴亚伦

/ C$ k( \/ C' f& ], I4 m% X' @) ~& p2 _老师，楼上附件里有调试工具，另外我找到原因了：在启动服务器时要将socket初始化。

附件为经测试成功的文件

lllflflf

谢谢分享