| | |
| | | DefinitionID: 'Responsedef_WebButton_OnClick' |
| | | Precondition: |
| | | [* |
| | | return cCurveEnable.Checked(); |
| | | //return cCurveEnable.Checked(); |
| | | *] |
| | | QuillAction |
| | | { |
| | |
| | | [* |
| | | try { |
| | | uploadJsonString := Application.GetFile(); |
| | | if ( uploadJsonString <> "" ) { |
| | | if ( uploadJsonString <> "" and not uploadJsonString.Regex( "Curve" ) ) { |
| | | WebMessageBox::Error( "文件名不匹配" ); |
| | | } else if ( uploadJsonString <> "" ) { |
| | | uploadJson := JSON::Parse( uploadJsonString ); |
| | | Archive::VerifyTheFileName( uploadJson ); |
| | | |
| | |
| | | efCurve.Text( fileName ); |
| | | dhBinaryDataCurve.Data( &webFileBinaryData ); |
| | | dhOriginalFileNameCurve.Data( fileName ); |
| | | |
| | | cCurveEnable.Checked( true ); |
| | | } |
| | | } onerror { |
| | | WebMessageBox::Error( e.GeneralInformation() ); |