TCL客戶端沒有收到來自蟒蛇服務器

Question

package require itcl 
package require json 
package require ncgi 
namespace import ::itcl::* 
class StaffClientWithManhattan { 

    variable clientSocket 
    constructor {port} { 
     set host localhost 
     set clientSocket [socket $host $port] 
     fconfigure $clientSocket -buffering full -buffersize 4096 
    } 

    method send_message {message} { 
     set jsonMessage [json::dict2json $message] 
     set stringMessage [format "%s" $jsonMessage] 
     puts "request is: $stringMessage" 
     puts $clientSocket $stringMessage 
     flush $clientSocket 

     set replyFromServer [ncgi::decode [gets $clientSocket]] 
     puts " Response from server : $replyFromServer" 
     set resultInDict [json::json2dict $replyFromServer] 
     puts "from server in dict format: $resultInDict" 
     close $clientSocket 
     return $resultInDict 
    } 

    method create_component {varrequest_type varcommand varcomponent_type vardriver_path varrequest_timeout varhost varport} { 
     set message [dict create request_type $varrequest_type command $varcommand params [dict create component_type $varcomponent_type driver_path $vardriver_path request_timeout $varrequest_timeout host $varhost port $varport]] 
     puts "request in dictionary format: $message" 
     set response [send_message $message] 
     set component_id [dict get $response component_id] 
     return $component_id    
    } 

    method perform_action {varrequest_type varcommand varcomponent_id} { 
     set message [dict create request_type $varrequest_type command $varcommand params [dict create component_id $varcomponent_id]] 

     puts "Action message is: $message" 
     set response [send_message $message] 
     return $response 
    } 
} 
StaffClientWithManhattan scm 9999 
set component_id "[scm create_component action create_component ManhattanClient C://NodeWebKit//chromedriver2_server.exe 5 localhost 9999]" 

#StaffClientWithManhattan scm 9999 
#scm perform_action action find_people 1 

響應在這個程序中，我嘗試連接到一個Python服務器，服務器被正確接收請求和發送響應，但我的TCL客戶端不接收響應。請幫助我，我嘗試了很多，但無法理解問題所在。

Answer 1

首先，是真的掛在這條線嗎？

set replyFromServer [ncgi::decode [gets $clientSocket]] 

如果是的話，問題則可能是你已經有了行翻譯錯了 - 用插座，TCL默認使用CRLF，因爲這是網絡協議通常正確的事情 - 或者服務器不刷新其輸出緩衝區。在客戶端上使用strace將允許你弄清楚它是哪一個;客戶端應該自己接收數據，如果沒有，你會知道真正的問題是服務器緩衝區沒有被刷新。

如果這是一個行結束翻譯問題，例如，因爲另一端只發送一個換行符，您必須修復您的客戶端以期望。 （混了預期造成麻煩，比如無限等待一個永遠不會到來的字符。）這可能是因爲更新fconfigure有一個額外的選擇一樣簡單：

fconfigure $clientSocket -buffering full -buffersize 4096 -translation lf 

這很難說，更不知道哪裏是數據卡...