小弟 遇到一個網站如果從主頁進去後點下一層是ok, 如果直接將網址輸入卻不行,各位大大可否有解決方法...

一般應該是網頁程式裡都有session之類的變數記錄,看你是否從首頁進去,如果沒有,就會導回首頁.所以,如果你直接輸入網址進入到某一頁的話,應該是不行的.解決的方法是.....,我也還在找取得網頁的所有變數的方法(如果有的話)

你可以使用TWebbrowser物件來操作，下面的FindLinkByInnerText函數是找到指定InnerText的連結，你可以找到指定的連結後，執行click即可，如: oLink:= FindLinkByInnerText(TWebbrowser,'連結名稱'); if oLink<>nil then oLink.click; ====================================================== function FindLinkByInnerText(WB: TWebbrowser; sInnerText: WideString): HTMLAnchorElement; //找到指定InnerText的連結 var oDoc: HTMLDocument; oLinks: IHTMLElementCollection; oLink: HTMLAnchorElement; N1: Integer; begin Result:= nil; oDoc:= WB.Document as HTMLDocument; oLinks:= oDoc.links as IHTMLElementCollection; for N1:= 0 to oLinks.length-1 do begin oLink:= oLinks.item(N1,0) as HTMLAnchorElement; if SameText(oLink.innerText,sInnerText) then begin Result:= oLink; exit; end; end; end;

引言: 一般應該是網頁程式裡都有session之類的變數記錄,看你是否從首頁進去,如果沒有,就會導回首頁.所以,如果你直接輸入網址進入到某一頁的話,應該是不行的.解決的方法是.....,我也還在找取得網頁的所有變數的方法(如果有的話)

取得網頁所有變數是可行的，只是要了解TWebbrowse的結構，像我最近在寫網頁控制方面的程式，都是利用VB去監看TWebbrowse的結構，VB在偵錯模式可以清楚的列出整個TWebbrowse的結構，可以往這方面去查。 如果在Delphi實作出解析網頁結構的物件，就可以更方便操控它了。基本上這不難，只是需要時間。

提問者您好:


以上回應是否已得到滿意的答覆？


若已得到滿意的答覆，請在一週內結案，否則請在一週內回覆還有什麼未盡事宜，不然，
將由版主(尚無版主之區域將由副站長或站長)採自由心證,選擇較合適之解答予以結案處理，
被選上之答題者同樣會有加分獎勵，同時發問者將受到扣 1 分的處分。不便之處，請見諒。


有問有答有結案，才能有良性的互動，良好的討論環境需要大家共同維護，感謝您的配合。

------
我是機器人,我不接受簡訊.