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

delphi開啟網頁並傳入參數的問題

答題得分者是:老大仔
cswang1210
一般會員


發表:46
回覆:42
積分:17
註冊:2005-01-06

發送簡訊給我
#1 引用回覆 回覆 發表時間:2011-05-25 14:00:55 IP:220.130.xxx.xxx 訂閱
各位大大:
我有一個需求是要用delphi去開啟一個網頁,而且要將delphi使用者的帳號及密碼傳入,
做為網頁權限控管用,但是我不想使用shellExecute的方法去連結一個url,
因為這種方式我必需將id及password加在url後面,也就是用get的方式將參數傳入網頁,
這樣做帳號密碼就會出現在網址列了.所以我必需要用post的方式將我的參數傳入,
請問我該怎麼做才好....謝謝!
老大仔
尊榮會員


發表:77
回覆:835
積分:1082
註冊:2006-07-06

發送簡訊給我
#2 引用回覆 回覆 發表時間:2011-05-25 14:07:28 IP:59.120.xxx.xxx 未訂閱
為何不用WebBrowser呢??

===================引 用 cswang1210 文 章===================
各位大大:
我有一個需求是要用delphi去開啟一個網頁,而且要將delphi使用者的帳號及密碼傳入,
做為網頁權限控管用,但是我不想使用shellExecute的方法去連結一個url,
因為這種方式我必需將id及password加在url後面,也就是用get的方式將參數傳入網頁,
這樣做帳號密碼就會出現在網址列了.所以我必需要用post的方式將我的參數傳入,
請問我該怎麼做才好....謝謝!
cswang1210
一般會員


發表:46
回覆:42
積分:17
註冊:2005-01-06

發送簡訊給我
#3 引用回覆 回覆 發表時間:2011-05-25 15:08:10 IP:220.130.xxx.xxx 訂閱
謝謝您的指點,剛剛去google了一下.....
終於做出來了....
我把程式貼出來.....

uses SHDocVw;
-----
procedure TForm1.Button1Click(Sender: TObject);
var
WebBrowser1: TWebBrowser;
URL: OleVariant;
POST: OleVariant;
target: OleVariant;
flag: OleVariant;
header: OleVariant;
PostStr: string;
PostLen, Index: Integer;
begin
WebBrowser1 := TWebBrowser.Create(self);
url := 'http://...................;
poststr := 'abc&password=123';
target := 'new';
flag := 0;
PostLen := Length(PostStr);
Post := VarArrayCreate([0, (PostLen - 1)], varByte);
for Index := 0 to PostLen - 1 do
Post[Index] := ord(PostStr[Index 1]);
Header := 'Content-Type: application/x-www-form-urlencoded';
WebBrowser1.Navigate2(URL, flag, target, POST, Header);
----
如果有少了什麼...麻煩各位大大提醒...謝謝!




===================引 用 老大仔 文 章===================
為何不用WebBrowser呢??

===================引 用 cswang1210 文 章===================
各位大大:
我有一個需求是要用delphi去開啟一個網頁,而且要將delphi使用者的帳號及密碼傳入,
做為網頁權限控管用,但是我不想使用shellExecute的方法去連結一個url,
因為這種方式我必需將id及password加在url後面,也就是用get的方式將參數傳入網頁,
這樣做帳號密碼就會出現在網址列了.所以我必需要用post的方式將我的參數傳入,
請問我該怎麼做才好....謝謝!
mytion
一般會員


發表:0
回覆:4
積分:0
註冊:2011-01-05

發送簡訊給我
#4 引用回覆 回覆 發表時間:2011-08-07 17:42:26 IP:222.125.xxx.xxx 訂閱
Ajax的方式 說白了,就是使用XMLHttpRequest,給一個獲取網頁源碼的例子 你


[code delphi]
uses MsXML;

procedure TForm1.Button1Click(Sender: TObject);
var
req: IXMLHTTPRequest;
begin
req := CoXMLHTTP.Create; //较早的版本或许是 req := CoXMLHTTPRequest.Create;
req.open('Get', 'http://del.cnblogs.com', False, EmptyParam, EmptyParam);
req.send(EmptyParam);
Memo1.Text := req.responseText;
end;
[/code]
系統時間:2017-10-21 16:21:43
聯絡我們 | Delphi K.Top討論版
本站聲明
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。
2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。
3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇!