🚀 go-pugleaf

代理投稿です．

==================================================
        こんにちは！ 邵＠徳島大学と申します．

Tcl-DPを使って，簡単なFTPサーバを作りました．

普通のファイルを簡単に伝送することができますが，

しかし，gifファイルの場合は，伝送することができませんでした．

何にか，いい方法がありませんか？教えて下さい．

---------------------------------server.tcl
#! /usr/local/bin/dpwish3.5 -f
dp_MakeRPCServer 1905
proc SendFile {host port filename} {
    set inFile [open $filename r]
    set info [dp_connect $host $port]
    set socket [lindex $info 0]
    while {![eof $inFile]} {
        set data [read $inFile 8192]
        dp_send $socket $data nonewline
    }
    close $inFile
    close $socket
}
---------------------------------client.tcl
#! /usr/local/bin/dpwish3.5 -f

proc ConnectImage {ImageHost} {
    return [dp_MakeRPCClient $ImageHost 1905]
}
proc GetFile {server remoteFile localFile} {
    set outfile [open $localFile w]
    set cinfo [dp_connect -server 0]
    set csocket [lindex $cinfo 0]
    set cport [lindex $cinfo 1]
    set host [dp_hostname]
    dp_RDO $server SendFile $host $cport $remoteFile
    set dinfo [dp_accept $csocket]
    close $csocket
    set dsocket [lindex $dinfo 0]
    while {1} {
        if [catch {dp_receive $dsocket} data] {
            break;
        }
        puts -nonewline $outfile $data
        puts -nonewline "#"
        flush stdout
    }
    puts ""
    close $outfile
}
set server [ConnectImage *********(address)]
GetFile $server filename filename

===================================================================
=   徳島大学 大学院工学研究科  知能情報工学専攻  1年  矢野研究室  =
=                                                                 =
=    邵 穎志(Shao Yinzhi)[E-mail:shao@n132.is.tokushima-u.ac.jp]  =
=                                                                 =
=                孔子曰：有朋自遠方来，不亦楽乎 ？                =
===================================================================