| | |
| | | String filePath |
| | | ) |
| | | { |
| | | TextBody: |
| | | [* |
| | | // 请求参数 |
| | | pathBudget := filePath + budgetFileName; |
| | | isArchive := ifexpr( isBudgetArchive, "true", "false" ); |
| | | minorKey := [String]macroPlan.MDSID().MinorKey(); |
| | | json := JSON::Object() |
| | | .Add( "path", pathBudget ) |
| | | .Add( "isArchive", isArchive ) |
| | | .Add( "minorKey", minorKey ).Build().AsString(); |
| | | |
| | | // 写入临时文件 |
| | | Archive::WriteTempFile( pathBudget, budgetBinaryValue ); |
| | | |
| | | info( json ); |
| | | |
| | | // 调用接口 |
| | | //url := "/PR/Import"; |
| | | //i := HTTPInterface::Create( archive.JavaInterfaceAddress(), archive.JavaInterfacePort() ); |
| | | //i.URL( url ); |
| | | //i.PostMethod( true ); |
| | | // |
| | | //try { |
| | | // i.Call( json ); |
| | | // |
| | | // htmlresult := i.Result(); |
| | | //} onerror { |
| | | // |
| | | //} |
| | | *] |
| | | } |
| | |
| | | String filePath |
| | | ) |
| | | { |
| | | TextBody: |
| | | [* |
| | | // 请求参数 |
| | | pathPP := filePath + ppFileName; |
| | | isArchive := ifexpr( isPPArchive, "true", "false" ); |
| | | minorKey := [String]macroPlan.MDSID().MinorKey(); |
| | | json := JSON::Object() |
| | | .Add( "path", pathPP ) |
| | | .Add( "isArchive", isArchive ) |
| | | .Add( "minorKey", minorKey ).Build().AsString(); |
| | | |
| | | // 写入临时文件 |
| | | Archive::WriteTempFile( pathPP, ppBinaryValue ); |
| | | |
| | | info( json ); |
| | | |
| | | // 调用接口 |
| | | //url := "/PR/Import"; |
| | | //i := HTTPInterface::Create( archive.JavaInterfaceAddress(), archive.JavaInterfacePort() ); |
| | | //i.URL( url ); |
| | | //i.PostMethod( true ); |
| | | // |
| | | //try { |
| | | // i.Call( json ); |
| | | // |
| | | // htmlresult := i.Result(); |
| | | //} onerror { |
| | | // |
| | | //} |
| | | *] |
| | | } |
| | |
| | | String filePath |
| | | ) |
| | | { |
| | | TextBody: |
| | | [* |
| | | // 请求参数 |
| | | pathPPA := filePath + ppaFileName; |
| | | pathCurve := filePath + curveFileName; |
| | | pathIDS := filePath + idsFileName; |
| | | //isArchive := ifexpr( isPRArchive, "true", "false" ); |
| | | minorKey := [String]macroPlan.MDSID().MinorKey(); |
| | | json := JSON::Object() |
| | | .Add( "pathPPA", pathPPA ) |
| | | .Add( "pathCurve", pathCurve ) |
| | | .Add( "pathIDS", pathIDS ) |
| | | .Add( "minorKey", minorKey ).Build().AsString(); |
| | | |
| | | // 写入临时文件 |
| | | Archive::WriteTempFile( pathPPA, ppaBinaryValue ); |
| | | Archive::WriteTempFile( pathCurve, curveBinaryValue ); |
| | | Archive::WriteTempFile( pathIDS, idsBinaryValue ); |
| | | |
| | | info( json ); |
| | | |
| | | // 调用接口 |
| | | //url := "/PR/Import"; |
| | | //i := HTTPInterface::Create( archive.JavaInterfaceAddress(), archive.JavaInterfacePort() ); |
| | | //i.URL( url ); |
| | | //i.PostMethod( true ); |
| | | // |
| | | //try { |
| | | // i.Call( json ); |
| | | // |
| | | // htmlresult := i.Result(); |
| | | //} onerror { |
| | | // |
| | | //} |
| | | *] |
| | | } |
| | |
| | | // 写入临时文件 |
| | | Archive::WriteTempFile( pathPR, prBinaryValue ); |
| | | |
| | | info( json ); |
| | | |
| | | // 调用接口 |
| | | //url := "/PR/Import"; |
| | | //i := HTTPInterface::Create( archive.JavaInterfaceAddress(), archive.JavaInterfacePort() ); |