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給服務器即可

 


免責聲明!

本站轉載的文章為個人學習借鑒使用,本站對版權不負任何法律責任。如果侵犯了您的隱私權益,請聯系本站郵箱yoyou2525@163.com刪除。



 
粵ICP備18138465號   © 2018-2025 CODEPRJ.COM