zoukankan      html  css  js  c++  java
  • delphi XE8 NetHTTPRequest NetHTTPClient

    delphi xe8 推出2个新http控件,NetHTTPRequest、NetHTTPClient

    可以调用ASP.Net 一般应用程序获取网页数据,用旧的控件idhttp控件也可以,推荐用新的这2个组件。

    http://localhost:52384/Handler1.ashx

    procedure TForm5.Button1Click(Sender: TObject);
    var
      ss: TStringStream;
    begin
      ss := TStringStream.Create('', TEncoding.ASCII);//中文用UTF8
    ss.Clear; self.NetHTTPClient1.Get(url, ss); self.Caption := ss.DataString; ss.Free; end;
    procedure TForm5.Button2Click(Sender: TObject);
    var
      ss: TStringStream;
    begin
      ss := TStringStream.Create('', TEncoding.ASCII);
      ss.Clear;
      self.NetHTTPRequest1.Get(url);
      self.Caption := ss.DataString;
      ss.Free;
    end;

    http://docwiki.embarcadero.com/RADStudio/XE8/en/What's_New_in_Delphi_and_C%2B%2BBuilder_XE8

     New HTTP Client API

    The RTL provides several new network units with members that let you create an HTTP client, send requests to HTTP servers and handle their responses.

    Using an HTTP Client explains how to use the two new HTTP components, TNetHTTPClient and TNetHTTPRequest, to handle HTTP requests. See also the main HTTP client classes:

    • THTTPClient, that represents an HTTP client.
    • THTTPRequest, that represents a request from your client to a server.
    • THTTPResponse, that represents the server response to a request from your client. 

    THTTPClient

    http://docwiki.embarcadero.com/Libraries/Berlin/en/System.Net.HttpClient.THTTPClient

    OnReceiveData

    example code

    http://docwiki.embarcadero.com/CodeExamples/Berlin/en/RTL.HttpAsyncDownload_Sample

    self.NetHTTPClient1.Get('www.sohu.com').ContentAsString(TEncoding.UTF8);

    NetHTTPClient

    var
      url: string;
      ss: tstringstream;
    begin
      url := Edit1.Text;
    
      ss := tstringstream.Create('', tencoding.UTF8);
      ss.WriteString(Memo1.Text);
      self.NetHTTPClient1.Accept := 'text/html, application/xhtml+xml, */*';
      self.NetHTTPClient1.ContentType := 'application/x-www-form-urlencoded';//application/json
      self.NetHTTPClient1.AcceptEncoding := 'UTF-8';
      ss.Position := 0;
      Memo2.Text := self.NetHTTPClient1.Post(url, ss).ContentAsString(tencoding.UTF8);
      
      ss.Free;
    end;

     IdHTTP

       self.IdHTTP1.Request.ContentType:='application/x-www-form-urlencoded';
       self.IdHTTP1.Request.Accept:= 'text/html, application/xhtml+xml, */*';//application/json
       self.Memo2.Text:=self.IdHTTP1.Post(url,ss);

     NetHTTPRequest

      self.NetHTTPRequest1.Accept := 'text/html, application/xhtml+xml, */*';
      self.NetHTTPRequest1.url := self.Edit1.Text;
      self.NetHTTPRequest1.MethodString := 'POST';
      self.Memo2.Text := self.NetHTTPRequest1.Post(url, ss).ContentAsString(tencoding.UTF8);

     post 多个参数

        TStringList *ss;
        ss = new TStringList();
        ss->Add("PatientID=aaaaaaaaa");
        ss->Add("PictuerName=BBBBBBBBBBB");

        this->Caption = this->NetHTTPClient1->Post("http://127.0.0.1:8080/datasnap/rest/TServerMethods1/UpPic/", ss)->ContentAsString(TEncoding::ASCII);
        delete ss;

  • 相关阅读:
    安装.NET FRAMEWORK 4.5安装进度条回滚之后发生严重错误 代码0x80070643
    C#远程时间同步助手软件设计
    Win7+Ubuntu双系统安装完成后时间不一致相差大概8小时
    php中类的不定参数使用示例
    php读写xml基于DOMDocument方法
    php写的非常简单的文件浏览器
    php封装的sqlite操作类
    phpstudy中apache的默认根目录的配置
    实现基于最近邻内插和双线性内插的图像缩放C++实现
    【STL深入理解】vector
  • 原文地址:https://www.cnblogs.com/cb168/p/5297127.html
Copyright © 2011-2022 走看看