引言: 請問各位: 先申明, 我已經找了本站的資料兩天, 但實在看不到有效的解決方案, 只好 在此請求各位的協助 另外, 我使用 Delphi5+win98+Indy 8 + IE5.5發展 我的需求 1.用DELPHI開發一支只有四個EDIT的程式 URL(網址), LTDID(公司代碼), USERID(使用者代碼), USERPASS(使用者密碼) 2.已有開發好的 LOGINcheck.ASP程式, 內有三組參數接收 ltdid= Request.Form("LtdID") usrid= Request.Form("UserID") usrpd= Request.Form("Password") 3.客戶要求讓他們的使用者由delphi寫的程式來登入, 輸入edit資料後, 可以 把edit資料送到server網頁的logincheck.asp中登入, 同時要進入ie開啟 logincheck.asp(logincheck.asp沒有client的畫面, 純粹是一支檢查 password是否合法的asp), 如果通過, 由logincheck 自動開啟下一個畫面 如果不通過, 一樣由logincheck.asp 開啟 login.asp畫面(此為網頁上的 登入首頁) 也就是說, 客戶的要求, 第一次啟動一定是要由我提供的 delphi程式來執行 如果成功則往一步, 如果不成功則回到原來公司的首頁, 由網頁進行登入行為 已找到的做法 1.得知可以用IdHTTP元件將資料POST回指定的URL, 同時測試已通過 (本段已在本站的資訊中找到方法) 2.如何在idHTTP通過運行後, 開啟IE, 同時進入指定的URL中(重點:不能使用 自行開發的 WEBERBROWSER, 只能用IE, 本段尚未找到解決), 然後關閉DELPHI 的程式, 以後都由IE來控制 3.在IE的網址上不可以秀出 htt://www.xxx.com.tw/logincheck.asp?ltdid=LTDNAME&usrid=001&usrpd=111紅色這段代入參數, 否則失去 password的功能了 註: 如果由公司首頁進行登入行為(LOGIN.ASP->LOGINCHECK.ASP)是OK的 不知這樣, 各位清楚否! 能否協助小弟提供一些參考資料, 謝謝!

P.D. 你好: 試試看以下的做法，看看可不可以呢?? 如果在你的 ASP 裡面有用到「response.redirect」指令的話 在 IdHTTP1.Post(...); 之後，會被導向另一個新的網頁(URL) 而這個 URL 的字串，你可以經由 IdHTTP1.URL.URI 取得 取得以後再利用 ShellExecute 開啟這個網頁 --

引言: P.D. 你好: 試試看以下的做法，看看可不可以呢?? 如果在你的 ASP 裡面有用到「response.redirect」指令的話 在 IdHTTP1.Post(...); 之後，會被導向另一個新的網頁(URL) 而這個 URL 的字串，你可以經由 IdHTTP1.URL.URI 取得 取得以後再利用 ShellExecute 開啟這個網頁 -- >< face="Verdana, Arial, Helvetica"> 謝謝 RaynorPao 的想法, 不過可能有點問題 1.判斷記錄存在與否是由 logincheck.asp 執行, 而非我的程式 2.logincheck.asp 中確有 redirect 的指向(通行則指向下一頁, 否則回到login.asp) 3.如何才能由http.post()下達到 logincheck.asp, 然後由logincheck執行 結果再傳回來及何時要接下來做shellexecute, 目前我可能想不到有什麼方法可以做! 謝謝!

引言: 嗯, 看了 P.D. 兄的需求.. 可能要直接操控 IE 才有辦法了 因為 >< face="Verdana, Arial, Helvetica"> 感謝shaofu提供的網址, 我曾經上去看過, 似乎沒有提供我這方面需求的功能

引言: 謝謝 RaynorPao 的想法, 不過可能有點問題 1.判斷記錄存在與否是由 logincheck.asp 執行, 而非我的程式 2.logincheck.asp 中確有 redirect 的指向(通行則指向下一頁, 否則回到login.asp) 3.如何才能由http.post()下達到 logincheck.asp, 然後由logincheck執行 結果再傳回來及何時要接下來做shellexecute, 目前我可能想不到有什麼方法可以做! 謝謝!

void __fastcall TForm1::Button1Click(TObject *Sender)
{
   IdHTTP1->HandleRedirects=true;
   TStringList *sl=new TStringList;
   sl->Add("ID=1");
   sl->Add("PWD=1");
   IdHTTP1->Post("http://localhost/login/login_check.asp", sl);
   ShowMessage(IdHTTP1->URL->URI); // 此行用來驗證傳回的 URL 是否正確?
   ShellExecute(NULL, "open", IdHTTP1->URL->URI.c_str(), NULL, NULL, SW_SHOWNORMAL);
   delete sl;
}

引言: P.D. 你好: 小弟我使用 BCB 6.0 Update 4, Indy 9.00.11, Windows 2000 SP3 測試的結果應該是可行的喔< >，請參考以下的範例程式碼< >

void __fastcall TForm1::Button1Click(TObject *Sender)
{
   IdHTTP1->HandleRedirects=true;
   TStringList *sl=new TStringList;
   sl->Add("ID=1");
   sl->Add("PWD=1");
   IdHTTP1->Post("http://localhost/login/login_check.asp", sl);
   ShowMessage(IdHTTP1->URL->URI); // 此行用來驗證傳回的 URL 是否正確?
   ShellExecute(NULL, "open", IdHTTP1->URL->URI.c_str(), NULL, NULL, SW_SHOWNORMAL);
   delete sl;
}

-- Enjoy Researching & Developing --

引言: RaynorPao兄, 先感謝你的測試 兩個問題再請教 ShowMessage(IdHTTP1->URL->URI)驗證傳回的 URL 是否正確 這是指只要post出去的url是可以連線就表正確, 還是其他狀況? 因為我要的模式其實只是由delphi送出 post 命令(含參數), 然後開啟IE, 由SERVER的ASP SCRIPT接收(REQUEST)參數來CHECK record, 再由ASP決定往上或往下行為, 另外, 你測試的模式indy9 IdHTTP1->URL->URI, indy 8似乎沒有這項功能, 我沒有辦法可以測試delphi中是否可用, 不知還有沒有其他方法?

引言:

引言: P.D. 你好: 小弟我使用 BCB 6.0 Update 4, Indy 9.00.11, Windows 2000 SP3 測試的結果應該是可行的喔< >，請參考以下的範例程式碼< >

void __fastcall TForm1::Button1Click(TObject *Sender)
{
   IdHTTP1->HandleRedirects=true;
   TStringList *sl=new TStringList;
   sl->Add("ID=1");
   sl->Add("PWD=1");
   IdHTTP1->Post("http://localhost/login/login_check.asp", sl);
   ShowMessage(IdHTTP1->URL->URI); // 此行用來驗證傳回的 URL 是否正確?
   ShellExecute(NULL, "open", IdHTTP1->URL->URI.c_str(), NULL, NULL, SW_SHOWNORMAL);
   delete sl;
}

-- Enjoy Researching & Developing --

RaynorPao兄, 先感謝你的測試 兩個問題再請教 ShowMessage(IdHTTP1->URL->URI)驗證傳回的 URL 是否正確 這是指只要post出去的url是可以連線就表正確, 還是其他狀況? 因為我要的模式其實只是由delphi送出 post 命令(含參數), 然後開啟IE, 由SERVER的ASP SCRIPT接收(REQUEST)參數來CHECK record, 再由ASP決定往上或往下行為, 另外, 你測試的模式indy9 IdHTTP1->URL->URI, indy 8似乎沒有這項功能, 我沒有辦法可以測試delphi中是否可用, 不知還有沒有其他方法?

引言: INDY8 IdHTTP 回傳值在POST方法的最後一個參數 TMemoryStream *SMSms=new TMemoryStream; HTTP1->Post("http://api.twsms.com/SendSMS.php",SMSsl,SMSms); SMSms->Position=0; 這樣便可以取得回傳資料 .. Y.S.C.
現任:Programmer 深度論壇 BCB Internet 版主
http://www.chatking.net 聊天王 語音聊天社群 創辦人

procedure TForm1.Button1Click(Sender: TObject);
          Var aStream: TStringStream;
              Params: TStringList;
begin
     aStream := TSTringStream.Create('');
     Params := TStringList.create;
     idHTTP1.Request.ContentType := 'application/x-www-form-urlencoded';
     try
        with idHTTP1 do begin
          try
             params.text:= '&StationNo=A00&005&Password=555';
             idHTTP1.Post('http://www.xxx.xxx.tw/logon/LogonCheck.asp',Params,aStream);
             memo1.Text:= astream.DataString;
             memo1.Lines.Add(idHTTP1.ResponseText);
          except
             on E: Exception do
                showmessage('Error encountered during POST: ' + E.Message);
          end;
        end;
     except
     end;
end;    

<!-- #include virtual = "/ASPfunc/DB.fun" -->
<%
        Response.Expires = -1
        Response.AddHeader "Pragma", "no-cache"
        Response.AddHeader "cache-control", "no-store"            ustno= Request.Form("StationNo")
        usrid= Request.Form("UserID")
        usrpd= Request.Form("Password")
        SQL =  " select  USERSTATION, USERID, USERPASSWORD, USERNAME, USERLEVEL, MACHINETYPE from USERIN where " 
        SQL = SQL & " USERSTATION='" & ustno & "'" & " and "
        SQL = SQL & " '" & usrid & "'" & " and "
        SQL = SQL & " USERPASSWORD='" & usrpd & "'"
         set conn = GetSQLServerConnection("www.xxx.xxx.tw","sqlid","sqlpass","dbfname")
        set conn = GetSQLServerConnection
        set rs = GetSQLServerStaticRecordSet(conn,SQL)            If not rs.Eof then 
                Session("snUserID")        = rs.Fields.Item("UserID").Value
                Session("snUserName")        = rs.Fields.Item("UserName").Value
                Session("snStationNo")        = rs.Fields.Item("UserStation").Value
                Session("snMachineType")        = rs.Fields.Item("MachineType").Value
                Session("snUserLevel")        = cStr(rs.Fields.Item("UserLevel").Value)        
                Session("snDate")         = cStr(Date())
                Session("snTime")         = cStr(Time())
                Response.Redirect "AirWarningCheck.asp"
                Response.end
        Else
                Response.Redirect "LogonFail.asp"
                Response.end
        End If
%>    <html>
<head>
<title>登入權限檢查</title>
</head>
<body>
</body>
</html>    

引言: 我覺得.. P.D. 兄的需求直接去操控 IE 比較適當.. IE 這個 Automation 提供了一個 WebBrowser Control, 裏面有個 Navigate 方法.. 可以傳 Post 資料, 也能改 HTTP Header.. 沒時間 try.. 詳細資料可以參考 MS 的網站.. http://msdn.microsoft.com/library/default.asp?url=/workshop/browser/webbrowser/browser_control_node_entry.asp 剛好 Delphi 也直接幫你 import 進來了, 可以拿來用... ( Internet -> WebBrowser )

引言: P.D. 兄請參考 >< face="Verdana, Arial, Helvetica"> 實在很感~~~~激 shaofu 兄的sample, 我試了之後果然可以過!