請問有沒有BCB 關於IndyHTTP 模擬瀏覽器POST的實際範例? |
|
答題得分者是：RaynorPao
|
|
zenjohn
一般會員   發表：5 回覆：16 積分：4 註冊：2002-12-10 發送簡訊給我 |
各位先進: 我使用Indy的IdHTTP元件想要模擬POST的動作,
我已經在本站的Delphi討論區找到相關的文章,
但是我搬到BCB應用(因為我只會BCB), 卻發現
還是沒有辦法模擬POST，請各位先進能夠指導一下： (這是我自己寫來做實際測試的網址, 後端用ASP)
void __fastcall TForm1::Button1Click(TObject *Sender)
{
TMemoryStream *ms=new TMemoryStream;
TStringList *sl= new TStringList;
sl->Add("ID=1"); // 帳號
sl->Add("PWD=1"); // 密碼
IdHTTP1->Request->ExtraHeaders->Text = "Content-Type: application/x-www-form-urlencoded";
IdHTTP1->Post("http://163.22.40.12/journal/login_check.asp", sl, ms);
ms->Position=0;
Memo1->Lines->LoadFromStream(ms);
delete sl;
delete ms;
}
一般user進入到 http://163.22.40.12/journal/login.htm帳號=1，密碼=1，便可進入到下一網頁(http://163.22.40.12/journal/login_check.asp)，可是程式卻沒有POST成功，還是停留在登入錯誤的那一頁。 (又:這是另一個在網路上找到用CGI寫的網站, 我試連一樣沒有辦法)
TMemoryStream *ms=new TMemoryStream;
TStringList *sl= new TStringList;
sl->Add("query=helphelp"); // 帳號
sl->Add("sld=idv.tw"); // 密碼
IdHTTP1->Request->ExtraHeaders->Text = "Content-Type: application/x-www-form-urlencoded";
IdHTTP1->Post("http://www.twnic.net.tw/whois.cgi", sl, ms);
ms->Position=0;
Memo1->Lines->LoadFromStream(ms);
delete sl;
delete ms; 我已經困在這點很久了，因為Indy的範例是Delphi寫的，
懇請各位先進能夠指導一下，或是有BCB的範例可以介紹
給我去K，謝謝您的熱心。
|
|
RaynorPao
版主   發表：139 回覆：3622 積分：7025 註冊：2002-08-12 發送簡訊給我 |
引言: 各位先進: 我使用Indy的IdHTTP元件想要模擬POST的動作, 我已經在本站的Delphi討論區找到相關的文章, 但是我搬到BCB應用(因為我只會BCB), 卻發現 還是沒有辦法模擬POST，請各位先進能夠指導一下： (這是我自己寫來做實際測試的網址, 後端用ASP) void __fastcall TForm1::Button1Click(TObject *Sender) { TMemoryStream *ms=new TMemoryStream; TStringList *sl= new TStringList; sl->Add("ID=1"); // 帳號 sl->Add("PWD=1"); // 密碼 IdHTTP1->Request->ExtraHeaders->Text = "Content-Type: application/x-www-form-urlencoded"; IdHTTP1->Post("http://163.22.40.12/journal/login_check.asp", sl, ms); ms->Position=0; Memo1->Lines->LoadFromStream(ms); delete sl; delete ms; } 一般user進入到 http://163.22.40.12/journal/login.htm帳號=1，密碼=1，便可進入到下一網頁(http://163.22.40.12/journal/login_check.asp)，可是程式卻沒有POST成功，還是停留在登入錯誤的那一頁。 (又:這是另一個在網路上找到用CGI寫的網站, 我試連一樣沒有辦法) TMemoryStream *ms=new TMemoryStream; TStringList *sl= new TStringList; sl->Add("query=helphelp"); // 帳號 sl->Add("sld=idv.tw"); // 密碼 IdHTTP1->Request->ExtraHeaders->Text = "Content-Type: application/x-www-form-urlencoded"; IdHTTP1->Post("http://www.twnic.net.tw/whois.cgi", sl, ms); ms->Position=0; Memo1->Lines->LoadFromStream(ms); delete sl; delete ms; 我已經困在這點很久了，因為Indy的範例是Delphi寫的， 懇請各位先進能夠指導一下，或是有BCB的範例可以介紹 給我去K，謝謝您的熱心。zenjohn 你好: 請參考以下的做法
------
-- 若您已經得到滿意的答覆，請適時結案!! -- -- 欲知前世因，今生受者是；欲知來世果，今生做者是 -- -- 一切有為法，如夢幻泡影，如露亦如電，應作如是觀 -- |
|
zenjohn
一般會員 發表：5 回覆：16 積分：4 註冊：2002-12-10 發送簡訊給我 |
|
|
kj68215
初階會員 發表：47 回覆：91 積分：27 註冊：2003-08-09 發送簡訊給我 |
Indy的下載點有小更改嚕!
http://www.indyproject.org/download/index.html Indy9↓
http://www.indyproject.org/download/Files/Indy9.html Indy 10 - Beta version. ↓
http://www.indyproject.org/download/Files/Indy10.html 發表人 - kj68215 於 2004/01/26 17:21:04
------
----------------------- 請多多指教啦!!^^ |
|
aamihcom
一般會員 發表：57 回覆：40 積分：19 註冊：2003-10-02 發送簡訊給我 |
請問在bcb6.0上的indyhttp元件是9.0嗎.
以下是我的程式碼 在button下
結果一按程式就不動了
IdHTTP1->HandleRedirects=true;
TStringList *sl=new TStringList;
TMemoryStream *ms=new TMemoryStream;
sl->Add("9211");
sl->Add("Password=mo");
sl->Add("SendTime=20031218160000");
sl->Add("Destaddr=886918334920");
sl->Add("Content=test??");
IdHTTP1->Post("http://ws.mace.com.tw/SendSMS.aspx",sl,ms);
ms->Position=0;
Memo1->Lines->LoadFromStream(ms);
delete sl;
delete ms;
|
|
超級賽亞人3
一般會員 發表：38 回覆：53 積分：23 註冊：2007-06-05 發送簡訊給我 |
發表時間：2003-01-14 08:31:39
IP:211.75.xxx.xxx 未訂閱
系統時間：2024-11-23 16:25:04
聯絡我們 | Delphi K.Top討論版
| 本站聲明 |
|
1. 本論壇為無營利行為之開放平台，所有文章都是由網友自行張貼，如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權，而損及您的利益，請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨，是藍是綠本站無權干涉，但這裡不是政治性論壇！ |