用TClientSocket做HTTP文件下载(Norton LiveUpdate,C++Builder)

最新推荐文章于 2019-12-03 15:16:03 发布
最新推荐文章于 2019-12-03 15:16:03 发布
阅读量2.7k 收藏 1
点赞数
分类专栏： C/C++ TCP/IP 文章标签： c++builder socket null button timer url
版权声明：本文为博主原创文章，遵循 CC 4.0 BY-SA 版权协议，转载请附上原文出处链接和本声明。
本文链接：https://blog.csdn.net/unsigned/article/details/2960982
版权
  1. //---------------------------------------------------------------------------
  3. #ifndef Unit1H
  4. #define Unit1H
  5. //---------------------------------------------------------------------------
  6. #include <Classes.hpp>
  7. #include <Controls.hpp>
  8. #include <StdCtrls.hpp>
  9. #include <Forms.hpp>
  10. #include <ScktComp.hpp>
  11. #include <Buttons.hpp>
  12. #include <Registry.hpp>
  13. #include <ExtCtrls.hpp>
  14. //---------------------------------------------------------------------------
  15. class TForm1 : public TForm
  16. {
  17. __published:    // IDE-managed Components
  18.         TClientSocket *ClientSocket1;
  19.         TMemo *Memo1;
  20.         TPanel *Panel1;
  21.         TButton *Button1;
  22.         TBitBtn *BitBtn1;
  23.         TTimer *Timer1;
  24.         TLabel *Label1;
  25.         TLabel *Label2;
  26.         void __fastcall FormCreate(TObject *Sender);
  27.         void __fastcall ClientSocket1Read(TObject *Sender,
  28.           TCustomWinSocket *Socket);
  29.         void __fastcall ClientSocket1Connect(TObject *Sender,
  30.           TCustomWinSocket *Socket);
  31.         void __fastcall Button1Click(TObject *Sender);
  32.         void __fastcall ClientSocket1Error(TObject *Sender,
  33.           TCustomWinSocket *Socket, TErrorEvent ErrorEvent,
  34.           int &ErrorCode);
  35.         void __fastcall FormCloseQuery(TObject *Sender, bool &CanClose);
  36.         void __fastcall ClientSocket1Disconnect(TObject *Sender,
  37.           TCustomWinSocket *Socket);
  38.         void __fastcall ClientSocket1Connecting(TObject *Sender,
  39.           TCustomWinSocket *Socket);
  40.         void __fastcall ClientSocket1Lookup(TObject *Sender,
  41.           TCustomWinSocket *Socket);
  42.         void __fastcall BitBtn1Click(TObject *Sender);
  43.         void __fastcall Timer1Timer(TObject *Sender);
  44. private:    // User declarations
  45.         AnsiString SourceHTML;
  46.         int Type;
  47.         int height;
  48.         int width;
  49.         TMemoryStream *DownMEM;
  50.         AnsiString Url;
  51.         AnsiString FileName;
  52.         __int64 HeadLength;
  53.         __int64 DataLength;
  54.         __int64 Current;
  55.         __int64 Just;
  56.         TDateTime sTime;
  57.         TDateTime eTime;
  58.         TDateTime mTime;
  59.         FILETIME LastWriteTime;
  60.         AnsiString caption;
  61.         bool EndMe;
  62.         bool IsAuto;
  63.         bool Flg_Q;
  64.         bool __fastcall CheckHead();
  65.         bool __fastcall CheckHead2();
  66.         void __fastcall LStrToTime(AnsiString);
  67. public:     // User declarations
  68.         __fastcall TForm1(TComponent* Owner);
  69.         __fastcall ~TForm1();
  70. };
  71. //---------------------------------------------------------------------------
  72. extern PACKAGE TForm1 *Form1;
  73. //---------------------------------------------------------------------------
  74. #endif
  1. //---------------------------------------------------------------------------
  4. #include <vcl.h>
  5. #pragma hdrstop
  7. #include "Unit1.h"
  8. //---------------------------------------------------------------------------
  9. #pragma package(smart_init)
  10. #pragma resource "*.dfm"
  11. TForm1 *Form1;
  12. //---------------------------------------------------------------------------
  13. bool __fastcall FileExists(AnsiString FileName)
  14. {
  15.    HANDLE FileHandle = CreateFile(FileName.c_str(),
  16.                                   NULL,
  17.                                   FILE_SHARE_READ |
  18.                                   FILE_SHARE_WRITE,
  19.                                   NULL,
  20.                                   OPEN_EXISTING,
  21.                                   FILE_ATTRIBUTE_ARCHIVE |
  22.                                   FILE_ATTRIBUTE_HIDDEN |
  23.                                   FILE_ATTRIBUTE_NORMAL |
  24.                                   FILE_ATTRIBUTE_READONLY |
  25.                                   FILE_ATTRIBUTE_SYSTEM,
  26.                                   NULL
  27.                                  );
  28.    if (FileHandle == INVALID_HANDLE_VALUE)
  29.       return false;
  30.    CloseHandle(FileHandle);
  31.    return true;
  32. }
  33. __int64 SwapPos(AnsiString strSource,AnsiString strFind)
  34. {
  35.    __int64 pPos,pSLen,pFLen;
  37.    pPos=0;
  38.    pSLen=strSource.Length();
  39.    pFLen=strFind.Length();
  41.    if(pSLen==pFLen&&strSource==strFind)
  42.       return 1;
  44.    if(pSLen<pFLen)
  45.       return 0;
  47.    for(__int64 i=0;i<pSLen;i++)
  48.    {
  49.       AnsiString strTmp=strSource.SubString(pSLen-pFLen+1-i,pFLen);
  50.       if(strTmp==strFind)
  51.       {
  52.          pPos=pSLen-pFLen+1-i;
  53.          break;
  54.       }
  55.    }
  56.    return pPos;
  57. }
  59. __int64 HttpDataPos(TStream *strm)
  60. {
  61.    __int64 Pos=strm->Position;
  62.    char ch[5];
  63.    ch[0]='/0';
  64.    ch[1]='/0';
  65.    ch[2]='/0';
  66.    ch[3]='/0';
  67.    ch[4]='/0';
  69.    for(__int64 i=0;i<strm->Size;i++)
  70.    {
  71.       strm->Position=i;
  72.       strm->Read(ch,4);
  73.       if(AnsiString(ch)=="/r/n/r/n")
  74.       {
  75.          strm->Position=Pos;
  76.          return i;
  77.       }
  78.    }
  79.    return 0;
  80. }
  82. __fastcall TForm1::TForm1(TComponent* Owner)
  83.         : TForm(Owner)
  84. {
  85. }
  86. __fastcall TForm1::~TForm1()
  87. {
  88.    DownMEM->Free();
  89. }
  90. //---------------------------------------------------------------------------
  93. void __fastcall TForm1::FormCreate(TObject *Sender)
  94. {
  95.    SourceHTML="";
  96.    Type=0;
  97.    IsAuto=false;
  98.    caption=Caption;
  100.    width=GetSystemMetrics(SM_CXSCREEN);
  101.    height=GetSystemMetrics(SM_CYSCREEN);
  103.    DownMEM=new TMemoryStream();
  105.    if(ParamCount()>0)
  106.       IsAuto=ParamStr(1).UpperCase()=="-A"||ParamStr(1).UpperCase()=="/A";
  108.    if(ParamCount()>1)
  109.       Flg_Q=ParamStr(2).UpperCase()=="-Q"||ParamStr(2).UpperCase()=="/Q";
  111.    if(IsAuto)
  112.    {
  113.       SetWindowPos(Handle,HWND_TOPMOST,
  114.                   0,0,GetSystemMetrics(SM_CXSCREEN),56,SWP_DRAWFRAME);
  115.       Button1->Click();
  116.    }
  117. }
  118. //---------------------------------------------------------------------------
  120. void __fastcall TForm1::ClientSocket1Read(TObject *Sender,
  121.       TCustomWinSocket *Socket)
  122. {
  123.    TMemoryStream *tmpStrm;
  124.    TFileStream *tmpFStrm;
  125.    __int64 lSize,RecvCount;
  127.    int len=Socket->ReceiveLength();
  129.    if(len<=1)
  130.    {
  131.       AnsiString ssss=Socket->ReceiveText();
  132.       return;
  133.    }
  135.    switch(Type)
  136.    {
  137.       case 1:
  138.            DownMEM->Clear();
  139.            DownMEM->SetSize((int)len);
  140.            HeadLength=0;
  141.            DataLength=0;
  142.            FileName="";
  143.            Url="";
  144.            RecvCount = Socket->ReceiveBuf(DownMEM->Memory,len);
  145.            DownMEM->SetSize((int)RecvCount);
  146.            HeadLength=HttpDataPos(DownMEM);
  147.            if(HeadLength>0)
  148.               CheckHead();
  149.            if(HeadLength>0&&DownMEM->Size>=HeadLength+4+DataLength)
  150.               Type=0;
  151.            else
  152.               Type++;
  153.            break;
  155.       case 2:
  156.            lSize=DownMEM->Size;
  157.            DownMEM->Position=lSize;
  158.            tmpStrm=new TMemoryStream();
  159.            try
  160.            {
  161.               tmpStrm->SetSize(len);
  162.               __int64 iRecvd = Socket->ReceiveBuf(tmpStrm->Memory,len);
  163.               tmpStrm->Position = 0;
  164.               DownMEM->CopyFrom(tmpStrm,iRecvd);
  165.            }
  166.            __finally
  167.            {
  168.               tmpStrm->Free();
  169.            }
  170.            if(HeadLength==0)
  171.               HeadLength=HttpDataPos(DownMEM);
  172.            if(HeadLength>0&&DataLength<=0)
  173.               CheckHead();
  174.            if(HeadLength>0)
  175.            {
  176.               if(DownMEM->Size>=HeadLength+4+DataLength)
  177.               {
  178.                  Type=0;
  179.                  DownMEM->Position=0;
  180.                  TStringList *tls;
  181.                  tls=new TStringList();
  182.                  try
  183.                  {
  184.                      tls->LoadFromStream(DownMEM);
  185.                      Memo1->Lines=tls;
  186.                      AnsiString ss1,ss2;
  187.                      int pPos;
  188.                      pPos=tls->Text.Pos("-x86.exe</a>");
  189.                      ss1=tls->Text.LowerCase().SubString(1,pPos+8);
  190.                      pPos=SwapPos(ss1.LowerCase(),"<a");
  191.                      ss1=ss1.SubString(pPos,ss1.Length()-pPos);
  192.                      if(ss1.SubString(9,1)=="/"")
  193.                         ss1=ss1.SubString(10,ss1.Length()-10);
  194.                      else
  195.                         ss1=ss1.SubString(9,ss1.Length()-9);
  196.                      pPos=ss1.Pos("/">");
  197.                      ss2=ss1.SubString(1,pPos-1);
  198.                      Type=3;
  199.                      Url=ss2;
  200.                      FileName=Url.SubString(Url.Length()-20+1, 20);
  201.                  }
  202.                  __finally
  203.                  {
  204.                     tls->Free();
  205.                  }
  206.               }
  207.            }
  208.            break;
  210.       case 3:
  211.            DownMEM->Clear();
  212.            HeadLength=0;
  213.            DataLength=0;
  214.            Current=0;
  215.            tmpStrm=new TMemoryStream();
  216.            try
  217.            {
  218.               tmpStrm->SetSize(len);
  219.               RecvCount=Socket->ReceiveBuf(tmpStrm->Memory,len);
  220.               tmpStrm->Position=0;
  221.               DownMEM->CopyFrom(tmpStrm,RecvCount);
  222.            }
  223.            __finally
  224.            {
  225.               tmpStrm->Free();
  226.            }
  227.            HeadLength=HttpDataPos(DownMEM);
  228.            if(HeadLength>0)
  229.               CheckHead();
  230.            if(HeadLength>0)
  231.            {
  232.               Current=DownMEM->Size-HeadLength-4;
  233.               if(DownMEM->Size>=HeadLength+4+DataLength)
  234.                  Type=0;
  235.               else
  236.                  Type++;
  237.            }
  238.            else
  239.               Type++;
  240.            eTime=Now()-sTime;
  241.            caption="下载:"+FileName+"……［"+IntToStr(DataLength==0?0:Current*100/DataLength)+
  242.            "％］ 已下载"+AnsiString(Current/1024)+"KB 总长"+AnsiString(DataLength/1024)+"KB 速度"+
  243.            AnsiString(eTime.Val==0?0:((int)(Current/(eTime.Val*24*60*60)/1024)))
  244.            +"KB/S "+AnsiString(DataLength)+" 耗时:"+IntToStr((int)(eTime.Val*24*60*60))+"秒 剩余:"+
  245.            AnsiString(eTime.Val==0?0:(DataLength-Current)/((int)(Current/(eTime.Val*24*60*60))))+"秒";
  246.            Label2->Caption=IntToStr(Current)+"Bytes/"+IntToStr(DataLength)+"Bytes";
  247.            break;
  248.       case 4:
  249.            lSize=DownMEM->Size;
  250.            DownMEM->Position=lSize;
  251.            tmpStrm=new TMemoryStream();
  252.            try
  253.            {
  254.               tmpStrm->SetSize(len);
  255.               RecvCount=Socket->ReceiveBuf(tmpStrm->Memory,len);
  257.               tmpStrm->Position=0;
  258.               DownMEM->CopyFrom(tmpStrm,RecvCount); //DownMEM->CopyFrom(tmpStrm,0);
  260.               Current=DownMEM->Size-HeadLength-4;
  261.            }
  262.            __finally
  263.            {
  264.               tmpStrm->Free();
  265.            }
  266.            if(HeadLength==0)
  267.               HeadLength=HttpDataPos(DownMEM);
  268.            if(HeadLength>0&&DataLength<=0)
  269.               CheckHead();
  270.            eTime=Now()-sTime;
  272.            caption="下载:"+FileName+"……［"+IntToStr(DataLength==0?0:Current*100/DataLength)+
  273.                    "％］ 已下载"+AnsiString(Current/1024)+"KB 总长"+AnsiString(DataLength/1024)+"KB 速度"+
  274.                    AnsiString(eTime.Val==0?0:((int)(Current/(eTime.Val*24*60*60)/1024)))
  275.                    +"KB/S "+AnsiString(DataLength)+" 耗时:"+IntToStr((int)(eTime.Val*24*60*60))+"秒 剩余:"+
  276.                    AnsiString(eTime.Val==0?0:(DataLength-Current)/((int)(Current/(eTime.Val*24*60*60))))+"秒";
  278.            Label2->Caption=IntToStr(Current)+"Bytes/"+IntToStr(DataLength)+"Bytes";
  279.            if ((HeadLength!=0)&&(DataLength != 0)) {
  280.                if (Current == DataLength) {
  281.                 //if(DownMEM->Size>=HeadLength+4+DataLength)
  282.                   //{
  283.                      Type=0;
  284.                      TStringList *ttls;
  285.                      ttls=new TStringList();
  286.                      try
  287.                      {
  288.                         DownMEM->Position=0;
  289.                         ttls->LoadFromStream(DownMEM);
  290.                         Memo1->Lines->Add(ttls->Text.SubString(1,HeadLength));
  291.                      }
  292.                      __finally
  293.                      {
  294.                         ttls->Free();
  295.                      }
  296.                      TFileStream *tmpFStrm;
  297.                      DownMEM->Position=HeadLength+4;
  298.                      if(!DirectoryExists("c://Downloads"))
  299.                         CreateDirectory("c://downloads",NULL);
  300.                      tmpFStrm=new TFileStream( "c://Downloads//"+FileName,fmCreate  );
  301.                      try
  302.                      {
  303.                         tmpFStrm->CopyFrom(DownMEM,DataLength);
  304.                      }
  305.                      __finally
  306.                      {
  307.                         tmpFStrm->Free();
  308.                      }
  310.                      TRegistry *reg;
  311.                      reg=new TRegistry();
  312.                      try
  313.                      {
  314.                         reg->RootKey=HKEY_LOCAL_MACHINE;
  315.                         reg->OpenKey("SoftWare//IE_DownU",true);
  316.                         AnsiString OldFileName=reg->ReadString("LiveUpdate");
  317.                         reg->WriteString("LiveUpdate", "c://Downloads//"+FileName);
  318.                         reg->CloseKey();
  319.                         if(OldFileName.Trim()!=""&&OldFileName!="c://Downloads//"+FileName)
  320.                            if(::FileExists(OldFileName))
  321.                               DeleteFile(OldFileName);
  322.                      }
  323.                      __finally
  324.                      {
  325.                         reg->Free();
  326.                      }
  328.                      HFILE hFile;
  329.                      FILETIME mCreationTime;
  330.                      FILETIME mLastAccessTime;
  331.                      FILETIME mLastWriteTime;
  332.                      hFile=_lopen(AnsiString("c://Downloads//"+FileName).c_str(),OF_READWRITE);
  333.                      GetFileTime((HANDLE *)hFile,&mCreationTime,&mLastAccessTime,&mLastWriteTime);
  334.                      SetFileTime((HANDLE *)hFile,&mCreationTime,&mLastAccessTime,&LastWriteTime);
  335.                      _lclose(hFile);
  337.                      STARTUPINFO StartInfo; // name structure
  338.                      PROCESS_INFORMATION ProcInfo; // name structure
  339.                      memset(&ProcInfo, 0, sizeof(ProcInfo)); // Set up memory block
  340.                      memset(&StartInfo, 0 , sizeof(StartInfo)); // Set up memory block
  341.                      StartInfo.cb = sizeof(StartInfo); // Set structure size
  342.                      CreateProcess(NULL,AnsiString("c://Downloads//"+FileName+(Flg_Q&&IsAuto?" /q":"")).c_str(), NULL, NULL, NULL, NULL, NULL, NULL, &StartInfo, &ProcInfo);
  344.                      if(IsAuto)
  345.                         Close();
  346.                   //}
  347.                }
  348.            }
  349.            break;
  351.       default:
  352.            tmpStrm=new TMemoryStream();
  353.            try
  354.            {
  355.               tmpStrm->SetSize(len);
  356.               Socket->ReceiveBuf(tmpStrm->Memory,len);
  357.            }
  358.            __finally
  359.            {
  360.               tmpStrm->Free();
  361.            }
  362.            break;
  363.    }
  365. }
  366. //---------------------------------------------------------------------------
  367. void __fastcall TForm1::ClientSocket1Connect(TObject *Sender,
  368.       TCustomWinSocket *Socket)
  369. {
  370.    if(Type==1)
  371.       Socket->SendText(
  372.                        "GET /business/security_response/definitions/download/detail.jsp?gid=n95 HTTP/1.1/r/n"+
  373.                        AnsiString("Host: www.symantec.com/r/n")+
  374.                        "Accept: */*/r/n"+
  375.                        "Referer: http://www.symantec.com/r/n"+
  376.                        "User-Agent: Mozilla/4.0 (compatible; MSIE 5.00; Windows 98)/r/n"+
  377.                        "Pragma: no-cache/r/n"+
  378.                        "Cache-Control: no-cache/r/n"+
  379.                        "Connection: close/r/n/r/n");
  380.    if(Type==3)
  381.    {
  382.       if(::FileExists("c://Downloads//"+FileName)||FileName=="")
  383.       {
  384.          Socket->Close();
  385.          if(IsAuto)
  386.             Close();
  387.       }
  388.       AnsiString Url1=Url;
  389.       int nPos=Url.LowerCase().Pos("http://");
  390.       if(nPos>0)
  391.       {
  392.          Url1=Url.SubString(nPos+6+1,Url.Length()-nPos-6);
  393.          nPos=Url1.Pos("//");
  394.          Url1=Url1.SubString(nPos,Url1.Length()-nPos+1);
  395.       }
  396.       AnsiString URL2 = "GET "+Url+" HTTP/1.1/r/n"+
  397.                        "Host: "+ClientSocket1->Host+"/r/n"+
  398.                        "Accept: */*/r/n"+
  399.                        "Referer: http://www.symantec.com/business/security_response/definitions/download/detail.jsp?gid=n95/r/n"+
  400.                        "User-Agent: Mozilla/4.0 (compatible; MSIE 5.00; Windows 98)/r/n"+
  401.                        "Pragma: no-cache/r/n"+
  402.                        "Cache-Control: no-cache/r/n"+
  403.                        "Connection: close/r/n/r/n";
  404.       Socket->SendText( URL2
  405.                        );
  406.    }
  407. }
  408. //---------------------------------------------------------------------------
  409. bool __fastcall TForm1::CheckHead()
  410. {
  411.    TStringList *tls;
  412.    __int64 Pos=DownMEM->Position;
  413.    bool Result=false;
  414.    tls=new TStringList();
  415.    DownMEM->Position=0;
  416.    try
  417.    {
  418.       tls->LoadFromStream(DownMEM);
  419.       __int64 nPos=tls->Text.Pos("Content-Length:");
  420.       if(nPos>0)
  421.       {
  422.          AnsiString sTmp=tls->Text.SubString(nPos+15,tls->Text.Length()-nPos-14);
  423.          nPos=sTmp.Pos("/r/n");
  424.          if(nPos>0)
  425.          {
  426.             sTmp=sTmp.SubString(1,nPos-1);
  427.             DataLength=StrToInt(sTmp.Trim());
  428.             Result=true;
  429.          }
  430.       }
  431.       nPos=tls->Text.Pos("Last-Modified:");
  432.             if(nPos>0)
  433.       {
  434.          AnsiString sTmp=tls->Text.SubString(nPos+14,tls->Text.Length()-nPos-13);
  435.          nPos=sTmp.Pos("/r/n");
  436.          if(nPos>0)
  437.          {
  438.             sTmp=sTmp.SubString(1,nPos-1);
  439.             //LastWriteTime=
  440.             LStrToTime(sTmp);
  441.          }
  442.       }
  443.    }
  444.    __finally
  445.    {
  446.       DownMEM->Position=Pos;
  447.       tls->Free();
  448.    }
  449.    return Result;
  450. }
  451. bool __fastcall TForm1::CheckHead2()
  452. {
  453.    TStringList *tls;
  454.    __int64 Pos=DownMEM->Position;
  455.    bool Result=false;
  456.    tls=new TStringList();
  457.    DownMEM->Position=0;
  458.    try
  459.    {
  460.       tls->LoadFromStream(DownMEM);
  461.       __int64 nPos=tls->Text.Pos("Content-Length:");
  462.       if(nPos>0)
  463.       {
  464.          AnsiString sTmp=tls->Text.SubString(nPos+15,tls->Text.Length()-nPos-14);
  465.          nPos=sTmp.Pos("/r/n");
  466.          if(nPos>0)
  467.          {
  468.             sTmp=sTmp.SubString(1,nPos-1);
  469.             DataLength=StrToInt(sTmp);
  470.             Result=true;
  471.          }
  472.       }
  474.    }
  475.    __finally
  476.    {
  477.       DownMEM->Position=Pos;
  478.       tls->Free();
  479.    }
  480.    return Result;
  481. }
  483. void __fastcall TForm1::Button1Click(TObject *Sender)
  484. {
  485.    EndMe=false;
  486.    Type=0;
  487.    if(Type==0)
  488.    {
  489.       Type++;
  490.       ClientSocket1->Close();
  491.       ClientSocket1->Host="www.symantec.com";
  492.       ClientSocket1->Port=80;
  493.       ClientSocket1->Open();
  494.    }
  495.    EndMe=false;
  496.    while(Type!=0&&!EndMe)
  497.    {
  498.       Application->ProcessMessages();
  500.       if(Type==3)
  501.       {
  502.          ClientSocket1->Close();
  503.          int nPos=Url.Pos("http://");
  504.          if(nPos>0)
  505.          {
  506.             AnsiString s1;
  507.             s1=Url.SubString(nPos+7,Url.Length()-(nPos+6));
  508.             nPos=s1.Pos("//");
  509.             s1=s1.SubString(1,nPos-1);
  510.             nPos=s1.Pos(":");
  511.             if(nPos>0)
  512.             {
  513.                ClientSocket1->Port=StrToInt(s1.SubString(nPos+1,s1.Length()-nPos-1));
  514.                s1=s1.SubString(1,nPos-1);
  515.             }
  516.             ClientSocket1->Host=s1;
  517.          }
  518.          ClientSocket1->Open();
  519.          sTime=Now();
  520.          break;
  521.       }
  522.    }
  523. }
  524. //---------------------------------------------------------------------------
  526. void __fastcall TForm1::ClientSocket1Error(TObject *Sender,
  527.       TCustomWinSocket *Socket, TErrorEvent ErrorEvent, int &ErrorCode)
  528. {
  529.    EndMe=true;
  530.    ErrorCode=0;
  531. }
  532. //---------------------------------------------------------------------------
  534. void __fastcall TForm1::FormCloseQuery(TObject *Sender, bool &CanClose)
  535. {
  536.    EndMe=true;
  537. }
  538. //---------------------------------------------------------------------------
  540. void __fastcall TForm1::ClientSocket1Disconnect(TObject *Sender,
  541.       TCustomWinSocket *Socket)
  542. {
  543.    EndMe=true;
  544.    if(Type!=4)
  545.       return;
  546.    if(HeadLength>0)
  547.    {
  549.    }
  550. }
  551. //---------------------------------------------------------------------------
  553. void __fastcall TForm1::ClientSocket1Connecting(TObject *Sender,
  554.       TCustomWinSocket *Socket)
  555. {
  556.    caption="正在连接"+ClientSocket1->Host+":"+
  557.            ClientSocket1->Port+"，请稍候...";
  558. }
  559. //---------------------------------------------------------------------------
  561. void __fastcall TForm1::ClientSocket1Lookup(TObject *Sender,
  562.       TCustomWinSocket *Socket)
  563. {
  564.    caption="正在查找站点 "+ClientSocket1->Host+"...";
  565. }
  566. //---------------------------------------------------------------------------
  568. void __fastcall TForm1::BitBtn1Click(TObject *Sender)
  569. {
  570.    RenameFile("c://Downloads//"+FileName,
  571.               "c://Downloads//"+ChangeFileExt(FileName,".bak"));
  572.    Button1->Click();
  573. }
  574. //---------------------------------------------------------------------------
  575. void __fastcall TForm1::LStrToTime(AnsiString tStr)
  576. {
  577.    AnsiString Temp,sMM,aMonth[12]={"Jan","Feb","Mar","Apr","May","Jun","Jul","Aug","Sep","Oct","Nov","Dec"};
  578.    int nPos,dd,MM,yy,hh,mm,ss;
  579.    SYSTEMTIME mSTime;
  580.    nPos=tStr.Pos(",");
  581.    memset(&mSTime,0,sizeof(SYSTEMTIME));
  582.    if(nPos>0)
  583.    {
  584.       Temp=tStr.SubString(nPos+2,tStr.Length()-nPos-1);
  585.       nPos=Temp.Pos(" ");
  586.       dd=StrToInt(Temp.SubString(1,nPos-1));
  587.       Temp=Temp.SubString(nPos+1,Temp.Length()-nPos);
  588.       nPos=Temp.Pos(" ");
  589.       sMM=Temp.SubString(1,nPos-1);
  590.       MM=0;
  591.       for(int i=0;i<12;i++)
  592.       {
  593.          if(aMonth[i]==sMM)
  594.          {
  595.             MM=i+1;
  596.             break;
  597.          }
  598.       }
  599.       Temp=Temp.SubString(nPos+1,Temp.Length()-nPos);
  600.       nPos=Temp.Pos(" ");
  601.       yy=StrToInt(Temp.SubString(1,nPos-1));
  602.       Temp=Temp.SubString(nPos+1,Temp.Length()-nPos);
  603.       nPos=Temp.Pos(":");
  604.       hh=StrToInt(Temp.SubString(1,nPos-1));
  605.       Temp=Temp.SubString(nPos+1,Temp.Length()-nPos);
  606.       nPos=Temp.Pos(":");
  607.       mm=StrToInt(Temp.SubString(1,nPos-1));
  608.       Temp=Temp.SubString(nPos+1,Temp.Length()-nPos);
  609.       nPos=Temp.Pos(" ");
  610.       ss=StrToInt(Temp.SubString(1,nPos-1));
  611.       Temp=Temp.SubString(nPos+1,Temp.Length()-nPos);
  612.       mSTime.wYear=yy;
  613.       mSTime.wMonth=MM;
  614.       mSTime.wDay=dd;
  615.       mSTime.wHour=hh;
  616.       mSTime.wMinute=mm;
  617.       mSTime.wSecond=ss;
  618.       SystemTimeToFileTime(&mSTime,&LastWriteTime);
  619.    }
  620. }
  621. void __fastcall TForm1::Timer1Timer(TObject *Sender)
  622. {
  623.    Caption=caption;
  624.    Label1->Caption="下载速度:"+CurrToStr((long)((Current-Just)*100/1024)/100.00)+"KB("+IntToStr(Current-Just)+")/S";
  625.    Just=Current;
  626.    if(IsAuto&&GetSystemMetrics(SM_CXSCREEN)!=width)
  627.    {
  628.       //TODO:测试一下
  629.       if(Height>height)
  630.          SetWindowPos(Handle,HWND_TOPMOST,
  631.                       0,0,GetSystemMetrics(SM_CXSCREEN),GetSystemMetrics(SM_CYSCREEN),SWP_DRAWFRAME);
  632.       else
  633.          SetWindowPos(Handle,HWND_TOPMOST,
  634.                       0,0,GetSystemMetrics(SM_CXSCREEN),56,SWP_DRAWFRAME);
  635.       width=GetSystemMetrics(SM_CXSCREEN);
  636.       height=GetSystemMetrics(SM_CYSCREEN);
  637.    }
  638. }
  639. //---------------------------------------------------------------------------

多年以前写的代码,帖出来仅供学习参考

 

僵哥
关注
专栏目录
C++ Builder 做的https和http下载程序
01-08
用Borland C++ Builder 做的http和https下载程序。 支持http下载，支持单向https下载，支持双向https下载，支持代理，支持老版本的操作系统，也支持最新的windows7. 有兴趣的朋友可以看一下。
C++实现HTTP下载(两种方式：WinInet和Socket)
04-05
用C++实现的HTTP Web下载，两种方式实现： 1.WinInet（这种方式很简单，但不是很灵活） 2.WinSock（也就是Socket，这种方式有点繁琐，但是可以自定义发送HTTP的报文头和接收响应头，很灵活） 因作者编程水平有限，错误之处，在所难免，欢迎批评指正。
<C/C++> Socket编程Http下载的简单实现
weixin_30832983的博客
01-08 183
下载原理: 网上介绍很多,就是按照Http协议,使用Socket连接并发送请求头给Http服务器,若服务器正确响应,返回请求文件数据,接收并写文件保存.至于Http协议的请求头及响应头的格式,这里不再赘述,请Google之. 实现: 为此,我封装了一个HttpDownload类.先上代码...(基于WinSock,移植时请注意部分函数) (HttpDownload.h) 1 #ifnd...
c++ socket 下载网页文件
weixin_33716941的博客
04-24 480
#pragmacomment(lib,"ws2_32.lib")//远程IP，port，要下载的文件的绝对路径，本地保存的绝对路径boolGetHTTP(stringsRemoteIP,u_shortnRemotePort,stringsRemoteFilePath,stringsSavePath){try{...
c++ builder socket实例
05-31
在C++ Builder中，TServerSocket和TClientSocket是用于实现客户端-服务器通信的组件，它们是基于伯克利套接字（Berkeley Sockets）API的封装，这是网络编程中的一个标准接口。 1. **TServerSocket组件**： ...
C++ Builder下的socket编程（可实现）
01-04
C++ Builder提供了VCL（Visual Component Library）库，其中包含了TClientSocket和TServerSocket组件，使得在C++环境中进行Socket编程变得更加直观和便捷。 1. **TClientSocket与TServerSocket组件** - **...
xe10 c++builder 串口控件
03-01
在XE10 C++Builder中，实现串口通信通常会用到VCL（Visual Component Library）框架中的TSerial或TClientSocket类。TSerial控件提供了一套完整的API，包括打开、关闭串口，设置波特率、数据位等参数，以及读取和写入...
NetWork_c++builder串口通讯_服务器_
10-03
本主题将深入探讨如何使用C++ Builder进行串口通信，并构建一个简单的服务器应用程序。 首先，我们需要理解串口通信的基本概念。串口通信，也称为UART（通用异步接收发送器）通信，是通过串行数据线进行数据传输的...
C++ builder 网络传输程序（含服务器和客户端源码）
11-22
本示例中，我们关注的是使用C++ Builder构建的网络传输程序，它包括了服务器和客户端的源代码，使得用户能够实现文件的双向传输。C++ Builder是一款集成开发环境（IDE），主要面向C++编程语言，提供丰富的组件库和...
自动更新LiveUpdate
06-01
包含两个工程，一个是vc6写的，创建升级配置文件update.xml 一个是升级程序LiveUpdate，写的不完善，大家一起学习.
delphi源码基础的TServerSocket 和 TClientSocket文件传输
07-19
delphi源码基础的TServerSocket 和 TClientSocket文件传输
ClientSocketAI2Ext
最新发布
07-03
AppInvertor常用tcp socket扩展组件
client socket
09-17
use it to connect with the server
bcb做的http和https下载程序
01-08
用C++ builder 做的支持http和https下载的示例程序。支持代理，支持http，支持单向和双向https,支持老版本的操作系统，也支持最新的windows7。最完整，最全面的http和https下载程序。有兴趣的朋友可以看一下。
socket http文件下载器c语言实现
多凡的博客
12-03 682
转发大佬 博客 https://blog.csdn.net/xiongyangg/article/details/50767482
C#WinForm App自动更新(Live Update)架构
banglvfei0870的博客
08-05 227
一. 基本思路 一直做Web Form开发，最近开始尝试了一下Win Form，做了一个小系统，在发布了第一个可用版本之后，顺便实现了自动更新功能。之前没有这方面的经验，也没有翻阅相关资料，自己想了一个简单的思路，如有笑话之处，恳请批评指正。 基本上就是这样的： 客户端有两个子程序，简单的讲就是两个EXE，一个主的应用程序，一个自动Live ...
Delphi TServerSocket,TClientSocket实现传送文件代码
weixin_33882452的博客
01-07 1774
Delphi TServerSocket,TClientSocket实现传送文件代码 1.建立两个工程Server及Client， 分别放TServerSocket及TClientSocket控件,Demo,Edit控件等。   2.设置TServerSocket name为 SS, ServerType为stNonBlocking,TClientSocket name为cs,Cl...
AI2客户「AI2 Client」-crx插件
03-09
你需要做的一切都是为了开发Android应用程序等等! 所有App Inventor 2，仅2个！ ******************************************“我是随风而弯曲的芦苇！” -Paul Atreides，《众议院之家》 ***************************************** *** Dunce Cap软件开发 *** ************************************* 支持语言:English (United States)
评论 3
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

当前余额3.43元 前往充值 >
需支付：10.00元
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付元
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明：

1.余额是钱包充值的虚拟货币，按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载，可以购买VIP、付费专栏及课程。

余额充值