各位前輩：

小弟試了４種方法，但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]

編輯記錄

網頁原始碼可能太長了,無法貼上

編輯記錄