admin
2025-01-22 7e31442f0e9b07764e9c6a9680d3d4aeba5fe1de
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
Quintiq file version 2.0
#parent: #root
StaticMethod HandleBESI (
  Archive archive,
  MacroPlan macroPlan,
  String besiFileName,
  BinaryValue besiBinaryValue,
  String filePath
) as owning JSON
{
  TextBody:
  [*
    // 请求参数
    pathBESI     := filePath + besiFileName;
    macroPlanKey := [String]macroPlan.MDSID().MinorKey();
    json         := JSON::Object()
                    .Add( "pathBESI", pathBESI )
                    .Add( "minorKey", macroPlanKey ).Build().AsString();
    
    // 写入临时文件
    Archive::WriteTempFile( pathBESI, besiBinaryValue );
    
    // 调用接口
    url := "/BESI/Import";
    
    i := HTTPInterface::Create( archive.JavaInterfaceAddress(), archive.JavaInterfacePort() );
    i.URL( url );
    i.PostMethod( true );
    i.MediaType( "application/json" );
    i.TimeOut( Duration::Minutes( 5 ) );
    
    i.Call( json );
      
    htmlresult := i.Result();
      
    respJSON   := JSON::Parse( htmlresult );
    
    return &respJSON;
  *]
}