function CreateField(const str: AnsiString): ICefPostDataElement;
begin
Result := TCefPostDataElementRef.New;
Result.SetToBytes(Length(str), PAnsiChar(str));
end;
var
req: ICefRequest;
data: ICefPostData;
begin
req := TCefRequestRef.New;
req.Method := 'POST';
req.Flags := WUR_FLAG_NONE;
data := TCefPostDataRef.New;
data.AddElement(CreateField('
data.id=27'));
data.AddElement(CreateField('&data.title=title'));
data.AddElement(CreateField('&data.body=body'));
req.PostData := data;
crm.Browser.MainFrame.LoadRequest(req);
end;
--
Henri Gourvest