Delphi 常用语句

1.屏蔽Float浮点数出错：

Set8087CW(Longword($133f));

2.Idhttp参数设置：

  FIdhttp                  := TIdHTTP.Create(nil);
  FSSL := TIdSSLIOHandlerSocket.Create(nil);        

  strlst := TStringList.Create;

   strlst.Add('a=saveclientlog');
   strlst.Add('logmac=' + MacStr);


  FSSL.SSLOptions.Method:=sslvSSLv23;
  FSSL.SSLOptions.Mode:=sslmUnassigned;
  FIdhttp.IOHandler := FSSL;
  FIdhttp.AllowCookies := True;
  FIdhttp.HandleRedirects := false;
  FIdhttp.HTTPOptions := [hoKeepOrigProtocol, hoForceEncodeParams];
  FIdhttp.ReadTimeout := 20000;
  FIdhttp.Request.UserAgent := 'Mozilla/5.0 (Windows NT 6.1; WOW64) AppleWebKit/537.36 (KHTML, like Gecko)   Chrome/44.0.2403.107 Safari/537.36';

 s   := FIdhttp.Get(str_url);

 s :=  IdHTTP.Post(str_url, strlst);
  FIdhttp.Free;

3.Headers参数设置

 Header := TCefStringMapOwn.Create;
//  Header.Append('Accept', 'text/html,application/xhtml+xml,application/xml;q=0.9,*/*;q=0.8');
//  Header.Append('Accept-Charset', 'GBK,utf-8;q=0.7,*;q=0.3');
//  Header.Append('Accept-Encoding', 'gzip,deflate,sdch');
//  Header.Append('Accept-Language', 'zh-CN,zh;q=0.8');
//  Header.Append('Connection', 'keep-alive');
  Header.Append('Referer', FromUrl);
//  Header.Append('Cookie', '');

    request.SetFlags(WUR_FLAG_NONE);
    request.SetMethod('GET');
    try
      request.SetHeaderMap(Header);
    except
    end;
    request.SetUrl(targetUrl);