请求将Python文件上传服务器交互代码转写为Tcl并生成exe

以下是满足需求的Tcl代码，包含参数解析、文件上传、JSON解析和跨平台浏览器打开功能，代码带详细注释：

# 加载依赖包（需确保tcllib库已安装）
package require http
package require mime
package require json

# 解析命令行命名参数（格式：--参数名=值）
set params [dict create]
foreach arg $argv {
    if {[regexp {^--([^=]+)=(.*)$} $arg -> key val]} {
        dict set params $key $val
    }
}

# 校验必选参数
foreach required {server type file} {
    if {![dict exists $params $required]} {
        puts stderr "错误：缺少必选参数 --$required"
        exit 1
    }
}

# 提取参数值
set server [dict get $params server]
set type [dict get $params type]
set file_path [dict get $params file]
set wksName [dict get $params wksName ""] ;# 可选参数默认空字符串

# 校验文件类型合法性
if {$type ni {xdt png}} {
    puts stderr "错误：type参数仅支持xdt或png"
    exit 1
}

# 校验目标文件存在
if {![file exists $file_path]} {
    puts stderr "错误：指定文件 $file_path 不存在"
    exit 1
}

# 读取待上传文件内容
set fd [open $file_path rb]
set file_data [read $fd]
close $fd

# 构造multipart/form-data请求体（适配文件上传格式）
set type_part [mime::initialize -canonical text/plain -string "type=$type"]
set parts [list $type_part]

# 若提供了wksName参数，添加到请求体
if {$wksName ne ""} {
    lappend parts [mime::initialize -canonical text/plain -string "wksName=$wksName"]
}

# 添加文件数据部分
lappend parts [mime::initialize -canonical application/octet-stream -string $file_data \
    -headers [list Content-Disposition [format {form-data; name="file"; filename="%s"} [file tail $file_path]]]]

set multipart_msg [mime::initialize -canonical multipart/form-data -parts $parts]
set request_body [mime::buildmessage $multipart_msg]
set content_type_header [mime::getheader $multipart_msg Content-Type]

# 发送POST请求到服务器
try {
    set http_token [http::geturl $server -method POST -headers [list Content-Type $content_type_header] -query $request_body]
    set response_data [http::data $http_token]
    set response_code [http::ncode $http_token]
    
    if {$response_code != 200} {
        puts stderr "服务器返回错误：HTTP状态码 $response_code"
        puts stderr "响应内容：$response_data"
        exit 1
    }
} on error {err} {
    puts stderr "请求服务器失败：$err"
    exit 1
} finally {
    # 清理资源
    catch {http::cleanup $http_token}
    catch {mime::finalize $multipart_msg}
}

# 解析服务器返回的JSON响应
try {
    set response_dict [json::json2dict $response_data]
    set target_url [dict get $response_dict url]
} on error {err} {
    puts stderr "解析JSON响应失败：$err"
    puts stderr "响应内容：$response_data"
    exit 1
}

# 跨平台调用浏览器打开目标URL
try {
    switch $::tcl_platform(platform) {
        windows {
            exec start "" $target_url &
        }
        unix {
            if {$::tcl_platform(os) eq "Darwin"} {
                exec open $target_url &
            } else {
                exec xdg-open $target_url &
            }
        }
        default {
            puts stderr "不支持当前平台打开浏览器"
            exit 1
        }
    }
} on error {err} {
    puts stderr "打开浏览器失败：$err"
    exit 1
}

puts "操作完成：已在浏览器打开URL $target_url"

关键说明 #

1. 依赖准备：需要安装tcllib库（包含http、mime、json模块），可通过系统包管理器或tcl官方渠道获取。
2. 参数使用：运行脚本（或打包后的EXE）时需传入参数，示例：

   uploader.exe --server=https://localhost:0008 --type=png --file=C:/test.png --wksName=test123
   

3. 错误处理：代码包含参数校验、文件存在性检查、HTTP请求错误捕获、JSON解析错误捕获等，确保程序健壮性。

打包为Windows EXE #

要将脚本转为可执行文件，可使用tclkit和sdx工具：

1. 下载Windows版tclkit.exe和sdx.kit
2. 将脚本保存为uploader.tcl
3. 在命令行执行：

   tclkit.exe sdx.kit wrap uploader.tcl -runtime tclkit.exe
   

4. 生成的uploader.exe即可独立运行

内容的提问来源于stack exchange，提问作者Theoretical Physics