开通博客赚积分
发布资源赚积分
分类

源码开发语言/平台
当前位置：首页 > 源码/资料 > 通讯/手机编程 > TAPI编程 > 查看源码
DblPxyTcp.pas
资源名称：VoIPPhone.rar　[点击查看]
上传用户：axbxcx
上传日期：2009-10-29
资源大小：15k
文件大小：2k
源码类别：

TAPI编程

开发平台：

Delphi

DblPxyTcp.pas：源码内容
  1. unit DblPxyTcp;
  3. interface
  5. uses SysUtils, Classes, blckSock, synsock;
  7. type
  8.   TDblProxyTcpSocket = class(TTCPBlockSocket)
  9.   public
  10.     constructor Create;
  11.     procedure Connect(IP, Port: string); override;
  12.     procedure Listen; override;
  13.   end;
  15. implementation
  17. constructor TDblProxyTcpSocket.Create;
  18. begin
  19.   inherited Create;
  20. end;
  22. procedure TDblProxyTcpSocket.Connect(IP, Port: string);
  23. var x: integer;
  24.     b: boolean;
  25. begin
  26.   x := 0;
  27.   if FSocksIP <> '' then x := x + 1;
  28.   if FHTTPTunnelIP <> '' then x := x + 2;
  29.   case x of
  30.     1: SocksDoConnect(IP, Port);
  31.     2: HTTPTunnelDoConnect(IP, Port);
  32.     3: begin
  33.          HTTPTunnelDoConnect(FSocksIP, FSocksPort);
  34.          if FLastError = 0 then
  35.          begin
  36.            b := SocksOpen;
  37.            if b then b := SocksRequest(1, IP, Port);
  38.            if b then b := SocksResponse;
  39.            if not b and (FLastError = 0) then FLastError := WSASYSNOTREADY;
  40.            FSocksLocalIP := FSocksResponseIP;
  41.            FSocksLocalPort := FSocksResponsePort;
  42.            FSocksRemoteIP := IP;
  43.            FSocksRemotePort := Port;
  44.          end;
  45.          ExceptCheck;
  46.          DoStatus(HR_Connect, IP + ':' + Port);
  47.        end;
  48.     else
  49.       inherited Connect(IP, Port);
  50.   end;
  51.   if FSslEnabled then
  52.     if FLastError = 0 then
  53.       SSLDoConnect
  54.     else
  55.     begin
  56.       x := FLastError;
  57.       SSLEnabled := False;
  58.       FLastError := x;
  59.     end;
  60. end;
  62. procedure TDblProxyTcpSocket.Listen;
  63. var
  64.   b: Boolean;
  65.   Sip, SPort, SC: string;
  66. begin
  67.   if FSocksIP = '' then
  68.   begin
  69.     SockCheck(synsock.Listen(FSocket, SOMAXCONN));
  70.     GetSins;
  71.   end
  72.   else
  73.   begin
  74.     Sip := GetLocalSinIP;
  75.     if Sip = cAnyHost then Sip := LocalName;
  76.     SPort := IntToStr(GetLocalSinPort);
  77.     if FHTTPTunnelIP = '' then
  78.     begin
  79.       SC := FSocksIP;
  80.       FSocksIP := '';
  81.       inherited Connect(SC, FSocksPort);
  82.       FSocksIp := SC;
  83.     end
  84.     else HTTPTunnelDoConnect(FSocksIP, FSocksPort);
  85.     b := SocksOpen;
  86.     if b then
  87.       b := SocksRequest(2, Sip, SPort);
  88.     if b then
  89.       b := SocksResponse;
  90.     if not b and (FLastError = 0) then
  91.       FLastError := WSANO_RECOVERY;
  92.     FSocksLocalIP := FSocksResponseIP;
  93.     if FSocksLocalIP = cAnyHost then
  94.       FSocksLocalIP := FSocksIP;
  95.     FSocksLocalPort := FSocksResponsePort;
  96.     FSocksRemoteIP := '';
  97.     FSocksRemotePort := '';
  98.   end;
  99.   ExceptCheck;
  100.   DoStatus(HR_Listen, '');
  101. end;
  103. end.