cef LOADREQUEST

var
  Header: ICefStringMultimap;
  Data: ICefPostData;
  Request: ICefRequest;
begin
  Header := TCefStringMultimapOwn.Create;
  Header.Append('Content-Type', 'application/x-www-form-urlencoded');
//自已加上的一句,但是没有用
  Header.Append('Set-Cookie', 'ASP.NET_SessionId=ofz5vjrbbyy5jhshuo1zacsp');

  Data := TCefPostDataRef.New;

  Request := TCefRequestRef.New;
  Request.Flags := WUR_FLAG_NONE;
  Request.Assign('http://example.com/', 'POST', Data, Header);

  Chromium1.Browser.MainFrame.LoadRequest(Request);

 

 

 

 

function CreateField(const AValue: AnsiString): ICefPostDataElement;
begin
 Result := TCefPostDataElementRef.New;
 Result.SetToBytes(Length(AValue), PAnsiChar(AValue));
end;

//*****************************************

procedure POST(total, fee: integer);
var
 Header: ICefStringMultimap;
 Data: ICefPostData;
 Request: ICefRequest;
 Cook: ICefCookieManager;
begin
 Request := TCefRequestRef.New;
 Request.Url := '';
 Request.Method := 'POST';
 Request.Flags:=[UR_FLAG_ALLOW_CACHED_CREDENTIALS,UR_FLAG_ALLOW_COOKIES];
 
 Header := TCefStringMultimapOwn.Create;
 Header.Append('Host', '');
 Header.Append('User-Agent', '');
 Header.Append('Accept', '');
 Header.Append('Accept-Language', '');
 Header.Append('Accept-Encoding', '');
 Header.Append('Content-Type', '');
 Header.Append('Referer', '');
 Header.Append('Content-Length', '');
 Header.Append('Origin', '');
 Header.Append('Connection', '');
 Header.Append('Pragma', '');
 Header.Append('Cache-Control', '');

 Header.Append('Cookie','...');
 ...
 Header.Append('Cookie','...');
 
 Request.SetHeaderMap(Header);

 Data := TCefPostDataRef.New;
 Data.AddElement(CreateField('sessionid='+SessionID));
 Data.AddElement(CreateField('¤cy=5'));
 Data.AddElement(CreateField('&subtotal='+inttostr(total-fee)));
 Data.AddElement(CreateField('&fee='+IntToStr(fee)));
 Data.AddElement(CreateField('&total='+IntToStr(total)));

 Request.PostData := Data;

 form1.Chromium1.Browser.MainFrame.LoadRequest(Request);
end;