全國最多中醫師線上諮詢網站-台灣中醫網
發文 回覆 瀏覽次數:2454
推到 Plurk!
推到 Facebook!

請問自動登入(四種方法,有二種可以,但post卻不行)

尚未結案
conchih
一般會員


發表:41
回覆:33
積分:14
註冊:2003-06-07

發送簡訊給我
#1 引用回覆 回覆 發表時間:2008-05-04 07:26:42 IP:218.160.xxx.xxx 訂閱
各位前輩:

小弟試了4種方法,但post卻不行
能否幫我看一下那寫錯了
程式碼與網頁原始碼如下

感謝各位大大


原登入網址為 https://ap2.esunsec.com.tw/webapp/report/login.asp,(原始碼太長,無法貼上)
(選擇一般顧客 ,經分析後找到 ..../verify.asp)
直接在IE輸入https://ap2.esunsec.com.tw/webapp/report/verify.asp?radiobutton=2&aid2=conchih&pwd2=662b5c&Submit1=µn¤J&ckURL=$REPORTWEB$RAF3]ASP{S1}1
[code delphi]
procedure TForm1.Button1Click(Sender: TObject);
var
IdHTTP1: TIdHTTP;
PData,ss : TStringStream;
LData,temp:TstringList;
FileStrm : TFileStream;
i,j,k,start_pos,end_pos:integer;
source_code,Full_URL,local_filename,source_date,report_year,report_month,report_date,report_sn:string;
File_Filter:TextFile;
P:THTMLParser;

begin
//------方法四: 失敗! 使用idhttp.post 請問我那錯了

Full_URL:='https://ap2.esunsec.com.tw/webapp/report/verify.asp';
IdHTTP1.Request.ContentType:='application/x-www-form-urlencoded';
Ldata:=TStringList.Create;
LData.add('radiobutton=2');
LData.add('aid2=conchih');
LData.add('pwd2=662b5c');
LData.add('Submit1=µn¤J'); //中文為'登入'
LData.add('ckURL=$REPORTWEB$RAF3]ASP{S1}1');
//或將上述5列資料改成 以下,但也不行
//LData.Text:='=&radiobutton=2&aid2=conchih&pwd2=662b5c&Submit1=µn¤J&ckURL=$REPORTWEB$RAF3]ASP{S1}1';
Memo1.Lines.Text:=idhttp1.post(Full_URL,LData); //出現錯誤
end
[/code]
編輯記錄
conchih 重新編輯於 2008-05-04 07:32:40, 註解 無‧
conchih 重新編輯於 2008-05-05 15:54:29, 註解 無‧
conchih 重新編輯於 2008-05-05 15:56:48, 註解 無‧
conchih 重新編輯於 2008-05-07 16:56:28, 註解 無‧
conchih
一般會員


發表:41
回覆:33
積分:14
註冊:2003-06-07

發送簡訊給我
#2 引用回覆 回覆 發表時間:2008-05-04 07:33:51 IP:218.160.xxx.xxx 訂閱
網頁原始碼可能太長了,無法貼上
編輯記錄
conchih 重新編輯於 2008-05-04 07:35:21, 註解 無‧
conchih 重新編輯於 2008-05-04 07:38:53, 註解 無‧
conchih 重新編輯於 2008-05-04 08:16:05, 註解 無‧
conchih 重新編輯於 2008-05-04 08:23:45, 註解 無‧
conchih 重新編輯於 2008-05-04 08:33:53, 註解 無‧
conchih 重新編輯於 2008-05-04 08:35:28, 註解 無‧
conchih 重新編輯於 2008-05-04 09:01:22, 註解 無‧
conchih 重新編輯於 2008-05-04 09:02:35, 註解 無‧
系統時間:2024-11-22 22:52:01
聯絡我們 | Delphi K.Top討論版
本站聲明
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。
2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。
3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇!