[darchken]

Сообщение от Alegun

По-другому и нету ничего, вот объяска от туда же, на форму надо мемо бросить, для проверки

Код:

procedure TForm1.FormShow(Sender: TObject);
var
 i: integer;
begin
 for i := 0 to ParamCount do
    memo1.Lines.Add('Параметр '+IntToStr(i)+' = '+ ParamStr(i));
end;

Скомпилить, через "Выполнить.." вот так запустить (кнопкой выбрать путь к файлу)ну или в вашем случае выполнять процедуру tlnt из программы примерно так

Код:

if ParamCount > 0 then tlnt(ParamStr(1), ParamStr(2));

Вставил процедуру в код, запустил через выполнить, открывается окно в нем мемо и ничего не делается.

А куда вставлять вот это:

Код:

if ParamCount > 0 then tlnt(ParamStr(1), ParamStr(2));

не понятно.

Виноват, ступил. Все вставил, все заработало. Это не так важно,но хотелось бы посмотреть как он это делает, а он как на зло не выводит в мемо. Не работает idTelnetdataAvailable. Помогите сним.

Люди ну помогите, опять те же грабли. Подключается к оборудованию по своему желанию. Как вывести в мемо, чтобы хотя бы видеть что не получается? может он подключается а команды не правильно отправляет? Может он вообще не подключается и просто стоит открытый. Хотя через командную строку вижу что подключается. Как быть? Что делать? Не понятно почему перестал выводить в мемо.

на данный момент выглядит все так:

Код:

procedure TForm1.snd(ds: string);
begin
  for i:=1 to length(ds) do idtelnet1.SendCh(ds[i]);
  idtelnet1.SendCh(#13);
end;

procedure TForm1.IdTelnet1DataAvailable(Sender: TIdTelnet; const Buffer: String);
const
  CR=#13;
  LF=#10;
var
  str: string;
begin
  if Length(Buffer)>0
    then begin
     str:=StringReplace(Buffer,#13#10#13,#13#10,[rfReplaceAll, rfIgnoreCase]);
     str:=StringReplace(str,#13#10#13#10#10#13,#13#10#13#10,[rfReplaceAll, rfIgnoreCase]);
     Memo1.Lines.Add(str);
    end;
end;

procedure TForm1.tlnt(ipadr: string; hostname: string);
begin
 usr:='rroot';
 pass:='rootpass';
 lgt:='logout';
 cmd:='enable' + #13 + 'backup configuration ftp 10.244.7.205 ' + hostname + '-' + datetimetostr(date);
 IdTelnet1.Host:=ipadr;
 IdTelnet1.Connect;
 snd(usr);
 snd(pass);
 snd(' ');
 snd(' ');
 snd(cmd);
 snd('y');
// Sleep(60000);
 snd(lgt);
end;

procedure TForm1.FormShow(Sender: TObject);
begin
//   for i := 0 to ParamCount do
//    memo1.Lines.Add('Параметр '+IntToStr(i)+' = '+ ParamStr(i));
   if ParamCount > 0  then  tlnt(ParamStr(1), ParamStr(2));
//   Application.Terminate;
end;