Devart Forums

Code: Select all

program Project1;

{$APPTYPE CONSOLE}

{$R *.res}

uses
  ScSSHClient, ScBridge, ScSSHChannel,
  System.SysUtils;

type
TSSH = class
private
  oSSHClient: TScSSHClient;
  oMemoryStorage: TScFileStorage;
  oSSHShell : TScSshShell;
  procedure ScSSHClientServerKeyValidate(Sender: TObject; NewServerKey: TScKey; var Accept: Boolean);
  procedure Test;
end;

var
SSH: TSSH;


procedure TSSH.ScSSHClientServerKeyValidate(Sender: TObject; NewServerKey: TScKey; var Accept: Boolean);
begin
  Accept := True;
end;

procedure TSSH.Test;
var
  I: Integer;
  x: String;
begin
  for I := 0 to 100 do
    begin
    WriteLN('Create Start - '+IntToStr(i));
    oSSHClient    := TScSSHClient.Create(nil);
    oMemoryStorage  := nil;
    oMemoryStorage := TScFileStorage.Create(nil);
    oSSHClient.KeyStorage := oMemoryStorage;
    oSSHClient.HostName := '127.0.0.1';
    oSSHClient.Port := 22;
    oSSHClient.User := 'root';
    oSSHClient.Password := '123456';
    oSSHClient.HostKeyAlgorithms.AsString:='ssh-rsa,ssh-dss';
    oSSHClient.OnServerKeyValidate := ScSSHClientServerKeyValidate;
    oSSHClient.Connect;
    oSSHShell := TScSshShell.Create(nil);
    oSSHShell.Client:=oSSHClient;
    x:=oSSHShell.ExecuteCommand('date');
    WriteLN('Create Finish - '+IntToStr(i)+' - '+x);
    //
    WriteLN('FreeAndNil Start - '+IntToStr(i));
    oSSHClient.Disconnect;
    FreeAndNil(oSSHClient);
    FreeAndNil(oMemoryStorage);
    FreeAndNil(oSSHShell);
    WriteLN('FreeAndNil Finish - '+IntToStr(i));
    end;
end;

begin
  try
  SSH:=TSSH.Create;
  SSH.Test;
    { TODO -oUser -cConsole Main : Insert code here }
  except
    on E: Exception do
      Writeln(E.ClassName, ': ', E.Message);
  end;
end.

Code: Select all

  try
  MyQuery1.CommandTimeout:=5;
  MyQuery1.SQL.Clear;
  MyQuery1.SQL.Add('SELECT * FROM test''');
  MyQuery1.Open;
  except
  showmessage('error');
  end;