DAMAVAND
دوشنبه 23 شهریور 1394, 13:19 عصر
دوستان گرامی سلام
برنامه ای نوشتم برای ریست کردن روتر منتها تلنت جوابی رو ارسال نمیکنه و در کل بنظر میرسه برنامه کار نمیکنه، نمیدونم اشکال کار از کجاست؟
کد ارسال دستورات
IdTelnet1.Host:='192.168.1.1';
IdTelnet1.Connect;
IdTelnet1.SendString('user'+#13+#10);
IdTelnet1.SendString('password'+#13+#10);
IdTelnet1.SendString('reboot'+#13+#10);
کد دریافت پاسخ تلنت:
procedure TForm1.IdTelnet1Status(ASender: TObject; const AStatus: TIdStatus;
const AStatusText: string);
begin
Memo1.Lines.Add(AStatusText);
end;
برنامه ای نوشتم برای ریست کردن روتر منتها تلنت جوابی رو ارسال نمیکنه و در کل بنظر میرسه برنامه کار نمیکنه، نمیدونم اشکال کار از کجاست؟
کد ارسال دستورات
IdTelnet1.Host:='192.168.1.1';
IdTelnet1.Connect;
IdTelnet1.SendString('user'+#13+#10);
IdTelnet1.SendString('password'+#13+#10);
IdTelnet1.SendString('reboot'+#13+#10);
کد دریافت پاسخ تلنت:
procedure TForm1.IdTelnet1Status(ASender: TObject; const AStatus: TIdStatus;
const AStatusText: string);
begin
Memo1.Lines.Add(AStatusText);
end;