delphi瀏覽器源碼
Ⅰ delphi主流瀏覽器窗口句柄獲取源碼
獲取所有句柄,源碼如下:
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TForm1 = class(TForm)
Memo1: TMemo;
btn_listwindow: TButton;
procere btn_listwindowClick(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
function EnumWindowsProc(AhWnd:LongInt;AForm:TForm1):boolean;stdcall;
implementation
{$R *.dfm}
function EnumWindowsProc(AhWnd:LongInt;AForm:TForm1):boolean;
var
lpszClassName,lpszWindowText:array[0..254] of char;
begin
GetWindowText(AhWnd,lpszWindowText,254);
GetClassName(AhWnd,lpszClassName,254);
Aform.memo1.lines.add(StrPas(lpszWindowText));
Aform.memo1.lines.add(StrPas(lpszClassName));
Aform.memo1.lines.add( '-------------------- ');
Result:=True;
end;
procere TForm1.btn_listwindowClick(Sender: TObject);
begin
EnumWindows(@EnumWindowsProc,LongInt(self));
end;
end.
F9,運行,看看結果。最好是F7單步跟蹤調試一下,看看回調函數是怎麼被調用的。
Ⅱ 下載了一個delphi編的瀏覽器源代碼,可以編譯,也可以正常瀏覽網頁,但另做一個窗口,源代碼復制過去就上不了
復制代碼,事件不會自動關連,把事件一一對應上去
Ⅲ 怎樣用delphi實現瀏覽器搜索功能的源代碼是什麼
不知道你說的搜索是指搜索什麼?那個搜網頁需要引擎的.
收藏好辦多了,把域名以文本形式保存在擴展名為htm的文件下(文件操作)
Ⅳ delphi 如何將memo中的網頁源碼,代碼轉成網頁方式顯示
var
str:string;
icnt:Integer;
begin
mmo1.Lines.Clear;
mmo1.Lines.Add('<html>');
mmo1.Lines.Add('<head>');
mmo1.Lines.Add('<title>我的第一個 HTML 頁面</title>');
mmo1.Lines.Add('</head>');
mmo1.Lines.Add('<body>');
mmo1.Lines.Add('<p>body 元素的內容會顯示在瀏覽器中。</p>');
mmo1.Lines.Add('<p>title 元素的內容會顯示在瀏覽器的標題欄中。</p>');
mmo1.Lines.Add('</body>');
mmo1.Lines.Add('</html>');
str:='';
for icnt:=0 to mmo1.Lines.Count-1 do
begin
str:=str+mmo1.Lines[icnt];
end;
wb1.Navigate('about:'+str);
end;
memo裡面只限於html,不能有其他的,比如jsp或js。
Ⅳ 用delphi創建瀏覽器啟動時顯示默認網頁的一段代碼
extractfilepath(application.ExeName) 獲取程序目錄
'default.htm'); 程序目錄下的網頁文件.
打開的就是defalut.htm這個默認文件了.一般設置主頁都是以default index這類命名的
Ⅵ delphi做一個瀏覽器
delphi 內置了 TWebBrowser 組件,該組件以 windows 的 IE 瀏覽器為核心,提供了一個瀏覽器的基本容器,能夠實現瀏覽器的大部分功能。
此外,第三方組件中 TEmbeddedWB 類似於 TWebBrowser,但相比下,提供的功能更強大,更易用。
Ⅶ 求delphi開發谷歌瀏覽器和火狐瀏覽器工具條的源碼
您好,感謝您對火狐的支持
您可以在這里查看火狐擴展和插件開發的相關資料,有大量源碼提供下載使用:http://www.csdn.net/tag/
您可以在火狐官方網站下載火狐瀏覽器,在火狐社區了解更多內容。希望我的回答對您有所幫助,如有疑問,歡迎繼續在本平台咨詢。
Ⅷ delphi 瀏覽器源碼
C:\Program Files\Borland\Delphi7\Demos\CoolStuf
前面地址路徑是你的DELPHI安裝路徑,那裡有一個現成的瀏覽器.
可以做參考的...
Ⅸ 如何用delphi編寫圖片瀏覽器 源代碼是什麼
http://www.2ccc.com下載個例子吧