引言: ziluobu 你好 1.Cookies的取得,一般是經過帳號密碼登入並驗證過後由WebServer產生並隨網頁自動傳到Client端的,而由瀏覽器依設定存放在固定的位置(一般為使用者資料夾下的Cookies目錄)。 2.當有Get及Post的動作時,瀏覽器會自動到該位置檢查是否有目標伺服器產生的Cookies,若有的話(且未過期),則自動隨Get或Post一同傳到目標伺服器。 因此略過第一個產生Cookies的步驟,從第二步來看,Get時如何將Cookies傳給伺服器 1.若有現成的Cookies 且未過期,其實我們也不用額外處理,瀏覽器會自動一起傳過去。 2.若沒有現成的Cookies,就須要在Get或post之前,自己產生並放在正確的位置, 但是要自己產生Cookies,除非你知道該伺服器所產生的Cookies的內容及結構如何,否則就等於駭客的行為了。 3.另一個比較可行的辦法,是由程式代為登入該伺服器,讓該伺服器自動生成Cookies後,在執行Get或Post的動作(一切也都順理成章)。 4.至於由程式代為登錄伺服器,本站之前有人討論過,搜尋一下應該可以找到。 以下連結,參考看看 http://delphi.ktop.com.tw/topic.php?topic_id=18695 http://delphi.ktop.com.tw/topic.php?topic_id=47086 http://delphi.ktop.com.tw/topic.php?topic_id=31987 http://delphi.ktop.com.tw/topic.php?topic_id=48118

procedure TForm2.BitBtn1Click(Sender: TObject);
var
temp:tstringlist;
b:string;
begin
form1.Memo1.Text:='';
temp:=tstringlist.Create;
temp.add('url=http://localhost/bbs/main.asp');
temp.Add('username=ziluobu');
temp.Add('userpass=******);
temp.add('xuansave=1');
temp.Add('Submit1= 登录 ');
b:=form1.idhttp1.Post('http://localhost/bbs/login.asp',temp);
form1.memo1.Text:=b;
form2.Hide;
end;