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);