Dear 各位高手:

----------------------------------------------------------------------
問題描述:
小弟最近利用 Delphi 在撰寫一個 IE plug-in, 目的在於取得 Http Request Header 的內容後, 再加上自行定義的 Header, 這樣 Web Application (用 ASP.NET 開發) 就可以很簡單地判斷我的 IE plug-in 是否被安裝及是否仍在執行中, 如果沒有, 就導到錯誤網頁.

但發現似乎只有 URL 參數可以被轉成字串; 不知應如何將 Headers 這個 OleVariant 參數轉成字串? 並且將轉換的字串, 加上自訂的 Header (ex: register-code: 123456) 後, 再轉成 OleVariant

----------------------------------------------------------------------
參考網頁:
有參考以下網頁, 但仍不得解決之法, 還望各位高手相助, 謝謝.

http://delphi.ktop.com.tw/board.php?cid=30&fid=72&tid=55467
利用DELPHI編寫IE擴展

http://www.javaeye.com/topic/470526
Delphi 编写BHO在HTTP头增加自定义属性

----------------------------------------------------------------------
程式碼:
程式碼摘要如下:


[code delphi]

procedure TIEGUIC.DoBeforeNavigate2(const pDisp: IDispatch; var URL,
Flags, TargetFrameName, PostData, Headers: OleVariant;
var Cancel: WordBool);
const
FuncName = '[TIEGUIC.DoBeforeNavigate2]';
var
strURL,
strTargetFrameName,
strOldHeaders,
strInfo:string;
bCancel:Boolean;

strMyHeader:string;
strOldHeaders, strNewHeaders:string;
oleNewHeaders:OleVairant;

begin

//保留將 OleVariant 轉為 字串的方式, 以供除錯之用;
//但發現只有 URL 變數可以轉換成功, 其它轉換後, 都是空字串.
strURL:=VarToStr(URL);
strTargetFrameName:=VarToStr(TargetFrameName);
strOldHeaders:=VarToStr(Headers);
bCancel:=Cancel;
strInfo:=format('%sURL:%s TargetFrameName:%s OldHeaders:%s bCancel:%s',
[FuncName,strUrl,strTargetFrameName,strOldHeaders,BoolToStr(bCancel,True)]);
CodeSite.SendMsg(strInfo);

strMyHeader:='register-code: 123456';
strNewHeaders:=strOldHeaders #13#10 strMyHeader #13#10;
oleNewHeaders:=strNewHeaders;

(pDisp as IWebbrowser2).Navigate2(URL, Flags, TargetFrameName, PostData, oleNewHeaders, Cancel);

end;

[/code]


備註: 我是剛入門的新手, 請大家多多指教

編輯記錄