怎么用delphi打开网页?

怎么用delphi打开网页?,第1张

DELPHI是个编程工具啊

你问的是怎么制作一个能打开网页的浏览器吧

您正在看的Delphi教程是:用Delphi制作以浏览器为界面的应用程序。 1、选择"file\new\other"于new items对话框中选择activex选项,在其中选择建立activex form。此时会d出一个对话框用于输入你所建立activex组件的名称、object pascal程序单元名称、项目名称等。还有一些activex包含版本控制编号等可选项,可以按缺省的设置直接点击ok即可。

2、现在你可以在打开的工程中来设计你的程序了,这里和一般的应用程序的设计一样,可以根据自己的需要来创建不同的form来实现自己的功能。但需要注意一点的是各form之间的调用不能用form.showmodal来实现了,需要动态调用form来实现,如以下定义过程:

Procedure Tform1.ShowForm(AFormClass:TFormClass)

Begin

With AFormClass.Create(Self) do

try

ShowModal

finally

Free

end

End

调用form2可以用:showform(Tform2),程序设计完成后,保存单元文件和工程文件到相应的目录下。假设保存在"c:\my documents"。

3、程序设计完成之后,可以准备生成你所想要的应用程序了,但这里不是点击运行,而是首先选择"project\陵旦咐web deployment options" 在project选项中的"Target dir"中添入".\", "Target URL"中添入"./", "HTML dir"中添入".\"来设置一些文件存放路径。尺纯最后选择"project\web deploy",点击"yes to all"即可。

此时打开 "c:\my documents"会看到已生成的htm文件,打开htm文件你会看到你所设计的应用程序已经可以在浏览器中使用了。你可以用网页编辑器迟樱来修改所生成的htm文件使它更符合你的要求。至此完整的实现过程结束。实际上Delphi是把编写的应用程序编译成了activex组件,在浏览器中调用activex组件,所以只适用于一些小的应用程序。(

1.新建一个工程

2.窗体上放一个TWebBrowser控件,位置在“Internet”页上

3.窗体的OnCreate事件中录入以下代码:

procedure TForm1.FormCreate(Sender: TObject)

begin

WebBrowser1.Navigate('www.baidu.com')

end

4.编译运行程序

你就可以看到结果了...

=============================================

补充:如果你是要打芦庆判开一差丛个IE,并浏览www.baidu.com的话:

1.先uses shellapi单元

2.在按钮的OnClick事件中陪改:

procedure TForm1.Button1Click(Sender: TObject)

begin

ShellExecute(Self.handle,'open',PChar('IEXPLORE.EXE'),'http://www.baidu.com','',sw_shownormal)

end

extractfilepath(application.ExeName) 获取前庆程序目录

'default.htm') 程序目录稿悉下的网页文件.

打开的就是defalut.htm这个默认文件了.一般设置主页都是慧敬握以default index这类命名的


欢迎分享,转载请注明来源:内存溢出

原文地址: https://outofmemory.cn/yw/12528129.html

(0)
打赏 微信扫一扫 微信扫一扫 支付宝扫一扫 支付宝扫一扫
上一篇 2023-05-26
下一篇 2023-05-26

发表评论

登录后才能评论

评论列表(0条)

保存