用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]                    lappend sendlist "$mailfile($i)"             }         }     }     set multiT [mime::initialize -canonical multipart/mixed -parts [linsert $sendlist 0 $textT]]     smtp::sendmessage $multiT {*}$opts -queue false -atleastone false -usetls false     mime::finalize $multiT

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]         set packet "$SOH[binary format H2 [format %02x $BlockNumber]][binary format H2 [format %02x $InverseBlockNumber]]$databyte[binary format H4 $checksum]"         chan puts -nonewline $comport $packet                 after 500         set resp [read $comport]         if { [string equal $resp $ACK] } {             if { $last } {                 chan puts -nonewline $comport $EOT                 break             }             if { $BlockNumber