用google寫心得 My experience

    set opts {}     set sendlist {}     lappend opts -servers [list $server]     lappend opts -ports [list $serverport]     lappend opts -header [list "Subject" $subject]     lappend opts -header [list "From" $from]     lappend opts -header [list "To" $to]     set textT [mime::initialize -canonical text/plain -encoding "7bit" -string $body]     if { [llength $args] > 0 } {         set i 0         foreach {file} $args {             if { [file exists $file] } {                 incr i                 set "mailfile($i)" [mime::initialize -canonical "application/jpg; name=\"$file\"" -file $file]     ...

Google 字典被取消了 找了好久 終於˙有替代方案 就改用 網路 Dr.eye http://dict.dreye.com/ews/dict.php

    set last 0     while { 1 } {         incr BlockNumber         set InverseBlockNumber [expr 255 - $BlockNumber]         set databyte [string range $data 0 127]         set datasize [string length $databyte]         set data [string range $data 128 end]         if { $datasize < 128 } {             set last 1             for { set i 1 } { $i <= [expr 128 - $datasize]} { incr i } {                 append databyte $CTRLZ             }         }         set checksum [::crc::xmodem -format %04X $databyte]  ...