Hi,
I'm trying to get a terminal work through SSH. I want something like putty,
connect
to my linux machine with SSH and get a prompt and execute some shell commands.
I made some tried tries with the following code (more or less modified).
When can I found such an example or what's wrong?
Thank you for helping me.
Marc
procedure TFRM_Principale.Button2Click(Sender: TObject);
var
FSocket: TTCPBlockSocket;
sTmp : string;
NoDelay:Boolean;
begin
FSocket := TTCPBlockSocket.create;
FSocket.Connect('172.16.207.45','22');
NoDelay:=True;
setsockopt(FSocket.Socket,IPPROTO_TCP,TCP_NODELAY,@NoDelay,SizeOf(NoDelay));
FSocket.SSL.SSLType:=LT_SSHv2;
FSocket.SSL.Username:='root';
FSocket.SSL.Password:='root';
FSocket.SSL.SSHChannelType:=''; ?
FSocket.SSL.SSHChannelArg1:=''; ?
FSocket.SSLDoConnect;
FSocket.SendString(#13#10);
sTmp := FSocket.RecvString(1000);
FSocket.Free;
end;
___________________________________________________________
Yahoo! Mail is the world's favourite email. Don't settle for less, sign up for
your free account today
http://uk.rd.yahoo.com/evt=44106/*http://uk.docs.yahoo.com/mail/winter07.html
-------------------------------------------------------------------------
This SF.net email is sponsored by DB2 Express
Download DB2 Express C - the FREE version of DB2 express and take
control of your XML. No limits. Just data. Click to get it now.
http://sourceforge.net/powerbar/db2/
_______________________________________________
synalist-public mailing list
[email protected]
https://lists.sourceforge.net/lists/listinfo/synalist-public
