INDYコマンドハンドラ。パラメータの成功応答

Question

私はデモに従っていて、うまく動作しています。クライアントには、サーバーにコマンドを送信して応答を処理する機能があります。

最初のいくつかのコマンドの罰金だったと私は

サーバは今

ASender.Reply.SetReply(200, 'OK'); ... or ... 
ASender.Reply.SetReply(400, 'NAK');  

を送信していますが、私は新しいコマンドを追加したいと結果がなる

var result : String; 
    TCPclient.SendCmd(theMessage); 
    TCPclient.GetResponse(Result); 

    if Result <> 'OK' then .... 

によってそれを扱う

NAKまたはACKのいずれかPLUS値0,1または2

2つのパラメータ、1つの数値、および1つの応答コードが不安定です電子の原文....

が

私はちょうどその場しのぎと「Ok0」、「OK1」、または「OK2」を送るが、それは非常に醜いです（そしておそらく悪いこと）

私は私が考えることができ成功するために200を使用し、テキストパラメータで0,1,2を送信する（または「OK」を使用して数字コードとして0,1または2を送信するか、数値コードとして200,201,202を使用する）か？

誰かが私がコーディングしなければならないことを理解するのを助けることができますか？なぜですか？ （それともURLで私を指す）のおかげ

Answer 1

SendCmd()はあなたのために、サーバからの応答を読み込み、そのサーバーは、実際には2つの別々の応答を送信しない限り、SendCmd()後GetResponse()を呼び出さないでください。

応答は、通常の形式をとります。

<Response Code> <Optional Text> 

応答コード番号またはテキストのキーワードのいずれかである

。

サーバは、数値応答コードを送信した場合、このようにそれを扱う：

サーバー：

// sends: 
// 
// 200 1 
// 
ASender.Reply.SetReply(200, '1'); 

クライアント：

if TCPclient.SendCmd(theMessage) = 200 then 
    Value := StrToInt(TCPclient.LastCmdResult.Text.Text); 

または：

// raises an exception if a non-200 response is received 
TCPclient.SendCmd(theMessage, 200); 
Value := StrToInt(TCPclient.LastCmdResult.Text.Text); 

の場合サーバーから送信されます

サーバー：

// sends: 
// 
// OK 1 
// 
ASender.Reply.SetReply('OK', '1'); 

クライアント：

if TCPclient.SendCmd(theMessage, '') = 'OK' then 
    Value := StrToInt(TCPclient.LastCmdResult.Text.Text); 

または：xtual応答コードは、このようにそれを扱う

// raises an exception if a non-OK response is received 
TCPclient.SendCmd(theMessage, ['OK']); 
Value := StrToInt(TCPclient.LastCmdResult.Text.Text); 

応答のオプションのテキスト、存在する場合、 プロパティでアクセスできます。可能であればTStringsですフォームで複数行の応答を送信します

<Response Code>-<Optional Text> 
<Response Code>-<Optional Text> 
... 
<Response Code> <Optional Text> 

サーバー：

// sends: 
// 
// 200-The value is 
// 200 1 
// 
ASender.Reply.SetReply(200, 'The value is'); 
ASender.Reply.Text.Add('1'); 

クライアント：

TCPclient.SendCmd(theMessage, 200); 
Value := StrToInt(TCPclient.LastCmdResult.Text[1]); 

ます。また、この形式で回答した後、二次複数行のテキストを送信することができます：

<Response Code> <Optional Text> 
<Secondary Text> 
. 

サーバー：

// sends: 
// 
// 200 Data follows 
// Hello world 
// How are you? 
// . 
// 
ASender.Reply.SetReply(200, 'Data follows'); 
ASender.Reply.Response.Add('Hello world'); 
ASender.Reply.Response.Add('How are you?'); 

クライアント：

TCPclient.SendCmd(theMessage, 200); 
TCPclient.IOHandler.Capture(SomeTStringsObj);