有這么一個提交連接
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給服務器即可