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.