idhttp提交post帶參數並帶上cookie

標籤：sage   .exe   get   cal   main   ons   end   row   資訊   

有這麼一個提交串連

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