Devart Forums

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;

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

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