怎样执行远端linux服务器上的命令

Question

delphi怎样实现执行远端linux服务器上的命令mkdir /ss。
对不起，我是新手，我用的是TTcpClient控件，下面是我的代码，总是有问题，receivebuf之后，好像buffer里什么都没有，下面是我的代码，该怎么改，谢谢
  telnetcom.RemoteHost := ipaddr;
  telnetcom.RemotePort := '23';
  telnetcom.Active := true;  if telnetcom.Connect = true then
  begin    count := 0;    while count <= 0 do
      count := telnetcom.ReceiveBuf(buffer,6);    loginstr := copy(buffer,1,1);
    buffer := 'root'+ #10 + #13;
    telnetcom.SendBuf(buffer,length(buffer));
  //count := telnetcom.ReceiveBuf(buffer,length(buffer));    buffer := '!@#qwe' + #13 + #10;
    telnetcom.SendBuf(buffer,length(buffer));    buffer := 'mkdir /hb ' + #13 + #10;
    telnetcom.SendBuf(buffer,length(buffer));
//  if telnetcom.Connect = true then
  end;  telnetcom.Disconnect ;

Answer 1

我只收到了一次数据，就是在连接的时候，等我输入用户名之后就再也没有收到过数据了，这是什么原因那？