Quantcast
Channel: Chilkat Forum - latest questions
Viewing all articles
Browse latest Browse all 1061

Problem with component TChilkatSshTunnel

$
0
0

Hi. I need a program with SAN tunnel. I made in Delphi code:

procedure TForm1.BitBtn1Click(Sender: TObject);
begin
chilkatGlob := TChilkatGlobal.Create(Self);
success := chilkatGlob.UnlockBundle('Anything for 30-day trial.');
if (success <> 1) then
  begin
    Memo1.Lines.Add(chilkatGlob.LastErrorText);
    Exit;
  end;
tunnel := TChilkatSshTunnel.Create(Self);
sshHostname := '87.222.222.222';
sshPort := 22;

success := tunnel.Connect(sshHostname,sshPort);
if (success <> 1) then
  begin
    Memo1.Lines.Add(tunnel.LastErrorText);
    Exit;
  end;

success := tunnel.AuthenticatePw('MyLogin','MyPass');
if (success <> 1) then
  begin
    Memo1.Lines.Add(tunnel.LastErrorText);
    Exit;
  end;

tunnel.DynamicPortForwarding:=1;
listenPort := 6006;
success := tunnel.BeginAccepting(listenPort);
if (success <> 1) then
  begin
    Memo1.Lines.Add(tunnel.LastErrorText);
    Exit;
  end;
end;

Working. http://clip2net.com/s/3tbG1zL

But, when I passed through the tunnel traffic from the browser, the connection hangs and then dropped. Help me please.


Viewing all articles
Browse latest Browse all 1061

Trending Articles