Devart Forums

Code: Select all

https://forums.devart.com/viewtopic.php?f=27&t=39126&p=139889&hilit=TScMemoryStorage#p139889

Code: Select all

https://forums.devart.com/viewtopic.php?f=27&t=34258&p=118717&hilit=TScMemoryStorage#p118717

Code: Select all

  Key := TScKey.Create(ScMemoryStorage.Keys);
  SStream:=TStringStream.Create(Private_Key);
  Key.ImportFrom(SStream);

Code: Select all

Const 
   PUBLIC_KEY = 'ABCDEF';     //hard coded public key
   PRIVATE_KEY = 'HIJKLM';    //hard coded private key
var
   SSHClient : TScSSHClient;
   MemoryStorage : TScMemoryStorage;
   Key: TscKey;
   Private_Key: String;
   SStream: TStringStream;

begin
  ...
  SSHClient.KeyStorage := MemoryStorage ;
  SSHClient.HostKeyName := 'ThePublicKey';     //name given to public key
  SSHClient.PrivateKeyName := 'ThePrivateKey'; //name given to private key
  ...
end

Code: Select all

Const 
   PUBLIC_KEY = 'ABCDEF';     //hard coded public key
   PRIVATE_KEY = 'HIJKLM';    //hard coded private key
var
   SSHClient : TScSSHClient;
   MemoryStorage : TScMemoryStorage;
   Key: TscKey;
   Private_Key: String;
   SStream: TStringStream;

begin
  
  ...
  MemoryStorage := ScMemoryStorage.Create(nil);
  Key := TScKey.Create(MemoryStorage.Keys);
  SStream:=TStringStream.Create(PUBLIC_KEY);
  Key.ImportFrom(SStream);
  Key.KeyName := 'ThePublicKey';

  Key := TScKey.Create(MemoryStorage.Keys);
  SStream:=TStringStream.Create(PRIVATE_KEY);
  Key.ImportFrom(SStream);
  Key.KeyName := 'ThePrivateKey';
  ...
  SSHClient.KeyStorage := MemoryStorage ;
  SSHClient.HostKeyName := 'ThePublicKey';     //name given to public key
  SSHClient.PrivateKeyName := 'ThePrivateKey'; //name given to private key
  ...
end

Code: Select all

SStream:=TStringStream.Create(PRIVATE_KEY);
  Key.ImportFrom(SStream);
  Key.KeyName := 'ThePrivateKey';

Code: Select all

  
Const 
   PUBLIC_KEY = 'ABCDEF';     //hard coded public key
var
   MemoryStorage : TScMemoryStorage;
   Key: TscKey;
   SStream: TStringStream;
begin
...   
MemoryStorage := ScMemoryStorage.Create(nil);	//make a memory storage object
SStream :=  TStringStream.Create(nil);		//make a string stream
Key:=  TScKey.Create(nil);			//make a key object

SStream.Position := 0;				//set Stream start position
SStream.WriteString(PUBLIC_KEY);		//put the key text into the stream
Key.ImportFrom(SStream);			//fill the key with the contents of the stream i.e. the key text 
Key.KeyName := 'ThePublicKey';			//give the key a name that can be used by a TScSSHClient
MemoryStorage.Keys.Add(key);			//store the key in the memory storage object
...

Code: Select all

TMyConnection -> TMyQuery -> TDataSource        TMtSSHIOHandler ->TSSHClient -> TScFileStorage
                                   ^
                                   |
                               TDBGrid

Code: Select all

procedure TForm1.BtnOpenQueryClick(Sender: TObject);
var
   Key: TscKey;   //to hold the key}
   SStream: TStringStream; // to enable us to transfer a string constant initialization a key

begin
 // set up the public key in the  TScMemoryStorage
 Key := TScKey.Create(LV_ScMemoryStorage.Keys);
 SStream:=TStringStream.Create(JHM_LIVE_PUBLIC_KEY);

{debug}  SStream.SaveToFile('testfile.txt');  //to check we are using the right key

try
  Key.ImportFrom(SStream);			//fill the key with the contents of the stream i.e. the key text
  Key.KeyName := LIVE_PUBLIC_KEY_NAME;	//same key name as was used in the TScFileStorage version
finally
  SStream.Free;
  Key.Free;
end;

LV_MyQuery.Open;

end;