idhttp提交post帶參數並帶上cookie
有這麽一個提交連接
http://www.XXXXXX.com/test.php?p1=411328&p2=1&d1=HeroSkinList
一共有三個參數[p1] [p2] [d1]
postcmd := TStringList.Create; // 組合參數列表
postcmd.Add(‘p1=4011058724‘);
postcmd.Add(‘p2=30‘);
postcmd.Add(‘d1=HeroSkinList‘);
以上即可將參數組合，然後利用idhttp進行post提交
Memo1.Text := idhtp1.Post(url1, postcmd); // 以post的方式發送到服務器
memo1.text當中直接就返回post提交後返回的數據，但是這個時候只是將參數帶到了連接當中進行提交，並沒有帶上cookie
加入網站需要登錄信息的情況下，直接提交就有可能提交失敗，因此要把cookie帶上
如何獲取cookie，web框架用的是DCEF框架，直接利用執行js代碼的方式可以獲得cookie，方法如下：
procedure TForm1.btn4Click(Sender: TObject);
var
js: string;
begin
js := ‘var uPage=document.cookie; alert(uPage);‘; //在次js代碼當中，將document.cookie指令(猜測這個指令應該是dcef自帶的，任何網站都適用)返回的數據賦值給uPage，然後利用alert彈框將內容彈出給crmJsdialog事件，在事件中獲得相關js返回的結果
crm.Browser.MainFrame.ExecuteJavaScript(js, ‘about:blank‘, 0);
end;
執行次js後如何取得js返回的結果呢，方法如下：
在dcef控件當中，有事件
procedure TForm1.crmJsdialog(Sender: TObject; const browser: ICefBrowser; const originUrl, acceptLang: ustring; dialogType: TCefJsDialogType; const messageText, defaultPromptText: ustring; callback: ICefJsDialogCallback; out suppressMessage, Result: Boolean);
begin
Memo1.Lines.Clear;
Memo1.Lines.Add(messageText); //messageText即為js代碼當中利用alert彈出對話框內容
Result := False; //這裏返回true表示不再彈出提示對話框
end;
由此獲得cookie的結果，然後將結果附帶進入idhttp當中：
idhtp1.Request.CustomHeaders.Add(‘Cookie:‘ + memo1.Text);
最後利用 Memo1.Text := idhtp1.Post(url1, postcmd); // 以post的方式發送到服務器
方法post給服務器即可
idhttp提交post帶參數並帶上cookie