想寫一個Terminal Client，但每次送出command後，在[IdTelnet1DataAvailable]事件就會跳出一個[Reply Code is not valid:xxx]的視窗出來ㄝ？不知為什麼？     還有送出echo test>a.txt 這類的command，為何畫面也顯示不出來？ PS：其實是很想寫一個跟DOS模式一樣的Telnet client程式，但是實在是不知道要怎麼寫？ 程式如下： var Form1: TForm1; implementation {$R *.dfm} procedure TForm1.Connect_ButtonClick(Sender: TObject); begin memo1.Clear; IdTelnet1.Host:=Host_IP.Text; IdTelnet1.Port:=strtoint(Host_Port.Text); IdTelnet1.Terminal:='vt100'; IdTelnet1.Connect(); IdTelnet1.SendCmd(Host_Password.Text); end; procedure TForm1.IdTelnet1DataAvailable(Sender: TIdTelnet; const Buffer: string); begin memo1.Lines.Append(buffer); end; procedure TForm1.IdTelnet1Disconnected(Sender: TObject); begin memo1.Clear; end; procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction); begin IdTelnet1.Disconnect(); IDTelnet1.Free; end; procedure TForm1.Command_ButtonClick(Sender: TObject); begin IdTelnet1.SendCmd(My_Command.Text); end; end.

爬了幾篇前輩文章自個兒把問題解決了，程式改成下面的寫法後就沒有問題了。 procedure TForm3.Connect_ButtonClick(Sender: TObject); var s:string; i:integer; begin memo1.Clear; IdTelnet1.Host:=Host_IP.Text; IdTelnet1.Port:=strtoint(Host_Port.Text); IdTelnet1.Terminal:='vt100'; IdTelnet1.Connect(); s:=Host_Password.Text; for i := 1 to length(s) do IdTelnet1.SendCh(s[i]); IdTelnet1.SendCh(#13); end; procedure TForm3.IdTelnet1DataAvailable(Sender: TIdTelnet; const Buffer: string); begin memo1.Lines.Append(buffer); end; procedure TForm3.IdTelnet1Disconnected(Sender: TObject); begin memo1.Clear; IdTelnet1.Disconnect(); IDTelnet1.Free; end; procedure TForm3.FormClose(Sender: TObject; var Action: TCloseAction); begin memo1.Clear; IdTelnet1.Disconnect(); IDTelnet1.Free; end; procedure TForm3.Command_ButtonClick(Sender: TObject); var s:string; i:integer; begin s:=My_Command.Text; for i := 1 to length(s) do IdTelnet1.SendCh(s[i]); IdTelnet1.SendCh(#13); end; end.

提問者您好:


以上回應是否已得到滿意的答覆？


若已得到滿意的答覆，請在一週內結案，否則請在一週內回覆還有什麼未盡事宜，不然，
將由版主(尚無版主之區域將由副站長或站長)採自由心證,選擇較合適之解答予以結案處理，
被選上之答題者同樣會有加分獎勵，同時發問者將受到扣 1 分的處分。不便之處，請見諒。


有問有答有結案，才能有良性的互動，良好的討論環境需要大家共同維護，感謝您的配合。

------
我是機器人,我不接受簡訊.