1.TIdTelnetCommand = (tncNoLocalEcho, tncLocalEcho, tncEcho);
請問有人知道這樣的寫法的意義嗎?
若要使用這樣的變數, 要如何施行?
2.請問是否在使用TIDTelnet元件時, 有什麼方法可以判斷Server端的資料已輸出完成
我有利用回傳值是提示詞(如$, :, >, ..等)來判斷, 但無法很穩定的執行, 大約過一段時
間後, 就會判別錯誤,

有懂的人, 請不吝賜教

http://www.indyproject.org/Sockets/Demos/index.en.aspx
你參考一下範例！應該對你有幫助！

------
「人們所以覺得寂寞，是因為他們會築牆，卻不會搭橋。」
程式寫的越久，卻發現自己越來越不會寫程式！

參考看看
1. 增加變數宣告
public
{ Public declarations }
TelnetWorking : boolean;
2. IdTelnet.OnDataAvailable 程式
procedure TFmTelnet.IdTelnet1DataAvailable(Sender: TIdTelnet;
const Buffer: String);
const
EndCR:array[0..1] of string = (':'#32 , '$'#32); // Command Completed Identifier
var
i : Integer;
begin
for i := Low(EndCR) to High(EndCR) do
if (Copy(Buffer,length(Buffer)-Length(EndCR[i]) 1 , Length(EndCR[i])) = EndCR[i]) then
TelnetWorking := False;
end;
3. 執行 Command
TelnetWorking := True;
Cmd := 'ls';
for j := 1 to Length(Cmd) do IdTelnet1.SendCh(Cmd[j]);
IdTelnet1.SendCh(#13);
st := GetTickCount;
repeat
Application.HandleMessage;
until (not TelnetWorking) or ((GetTickCount - st)>(5000)); // 5 Second Timeout