https://github.com/yryz/winhttp

基于WinHTTP核心封装的HTTP库
https://github.com/yryz/winhttp

Last synced: 2 months ago
JSON representation

基于WinHTTP核心封装的HTTP库

• Host: GitHub
• URL: https://github.com/yryz/winhttp
• Owner: yryz
• License: lgpl-3.0
• Created: 2013-08-05T03:29:21.000Z (almost 12 years ago)
• Default Branch: master
• Last Pushed: 2014-03-21T09:47:55.000Z (about 11 years ago)
• Last Synced: 2025-01-15T20:32:59.278Z (4 months ago)
• Language: Pascal
• Size: 184 KB
• Stars: 15
• Watchers: 3
• Forks: 10
• Open Issues: 0
• Metadata Files:
  • Readme: README.md
  • License: LICENSE

Awesome Lists containing this project

README

        
winhttp

=======

基于WinHTTP核心封装的HTTP库

基于WinHTTP封装的DELPHI HTTP库，小巧、高效，已经在项目中使用很久，共享出来，算是为Delphi贡献一点东西吧。

###Demo:

    var

      Http: THTTP;

      LData: TUrlEncodedData;

      sData: string;

    begin

      Http := THTTP.Create;

      LData := TUrlEncodedData.Create(True, False);

      try

        LData.Put('_input_charset', 'utf-8');

        LData.Put('suffix', 'csv');

        Http.Referer := 'https://github.com/yryz/winhttp';

        sData := Http.Get('http://yryz.net?' + LData.ToString);

        //sData := Http.Post('http://yryz.net', LData.ToString);

         // 网络问题, 忽略

        if Http.RawHeader = '' then

        begin

          OutLog('网络连接异常!');

          Exit;

        end;

        OutLogFmt('检测耗时：%dms', [Http.GetUseTime]);

        // DO....

      finally

        LData.Free;

        Http.Free;

      end;

    end;