代碼如下
procedure TForm1.Button1Click(Sender: TObject);
begin
idTelnet1.Host:='127.0.0.1';
idTelnet1.Port:=23;
idTelnet1.Connect;
end;
procedure TForm1.IdTelnet1DataAvailable(Sender: TIdTelnet;
const Buffer: string);
begin
Memo1.Lines.Add(Buffer);
end;
procedure TForm1.IdTelnet1Status(ASender: TObject; const AStatus: TIdStatus;
const AStatusText: string);
begin
Memo1.Lines.Add(AStatusText);
end;
end.
IdTelnet1Status反應是正常的，Memo1中顯示
Connecting to 127.0.0.1.
Connected.
似乎IdTelnet1DataAvailable沒有觸發，Memo1中看不到Login
我用Windows的Telnet是正常的.
是否有高手可以幫我指出錯誤。
轉載請註明出處，本文鏈接：https://www.uj5u.com/houduan/132853.html
標籤：網絡通信/分布式開發