社区
Windows SDK/API
帖子详情
关于DELPHI制作浏览器问题~~在线等待
Hovers
2004-08-26 11:11:25
请问各位兄弟DELPHI自带的一些程序里面有没有浏览器程序,或是其他什么地方可以找到这样的源程序
...全文
174
3
打赏
收藏
关于DELPHI制作浏览器问题~~在线等待
请问各位兄弟DELPHI自带的一些程序里面有没有浏览器程序,或是其他什么地方可以找到这样的源程序
复制链接
扫一扫
分享
转发到动态
举报
AI
作业
写回复
配置赞助广告
用AI写文章
3 条
回复
切换为时间正序
请发表友善的回复…
发表回复
打赏红包
lihaiyuan
2004-08-26
打赏
举报
回复
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, OleCtrls, SHDocVw, StdCtrls, ComCtrls;
type
TForm1 = class(TForm)
Edit1: TEdit;
Button1: TButton;
Button2: TButton;
WebBrowser1: TWebBrowser;
StatusBar1: TStatusBar;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure WebBrowser1DownloadBegin(Sender: TObject);
procedure WebBrowser1DownloadComplete(Sender: TObject);
procedure Edit1KeyUp(Sender: TObject; var Key: Word;
Shift: TShiftState);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
var
Flags:olevariant;
url:widestring;
begin
url:=widestring(edit1.Text);
webbrowser1.Navigate(url,flags,flags,flags);
edit1.Enabled:=false;
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
form1.WebBrowser1.Stop;
end;
procedure TForm1.WebBrowser1DownloadBegin(Sender: TObject);
begin
form1.StatusBar1.Panels.Items[0].Text:='正在打开:'+edit1.Text;
end;
procedure TForm1.WebBrowser1DownloadComplete(Sender: TObject);
begin
form1.StatusBar1.Panels.Items[0].Text:='下载:'+edit1.Text+'完成';
edit1.Enabled:=true;
end;
procedure TForm1.Edit1KeyUp(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if key=13 then
Button1Click(nil);
end;
end.
angelface
2004-08-26
打赏
举报
回复
应该是http游览器吧@
在internet页上找到webbrowser,在看一下它的帮助, 一个简单的就哦了,
cronuz
2004-08-26
打赏
举报
回复
要什么浏览器? IE浏览器? 文件浏览器?
Delphi
实现FTP服务器与客户端源码
1. **监听与连接管理**:服务器需要开启一个监听端口,
等待
客户端的连接请求。这通常通过创建Socket或使用 Indy(Internet Direct)等网络组件库来实现。 2. **用户认证**:FTP支持匿名访问和用户名/密码验证。在...
java源码包---java 源码 大量 实例
关于数字签名:产生RSA密钥对(myKeyPair),得到RSA密钥对,产生Signature对象,对用私钥对信息(info)签名,用指定算法产生签名对象,用私钥初始化签名对象,将待签名的数据传送给签名对象(须在初始化之后),用公钥...
实现类似Office助手的小精灵
在多媒体创作、Web应用、教育软件、软件帮助系统和辅助工具
制作
等方面,具有广阔的应用前景。 一、 Microsoft Agent技术简介 ---- Agent一词的中文意思是“代理”,故名思意,这类代理软件的主要作用是提供一种 ...
java源码包2
关于数字签名:产生RSA密钥对(myKeyPair),得到RSA密钥对,产生Signature对象,对用私钥对信息(info)签名,用指定算法产生签名对象,用私钥初始化签名对象,将待签名的数据传送给签名对象(须在初始化之后),用公钥...
java源码包3
关于数字签名:产生RSA密钥对(myKeyPair),得到RSA密钥对,产生Signature对象,对用私钥对信息(info)签名,用指定算法产生签名对象,用私钥初始化签名对象,将待签名的数据传送给签名对象(须在初始化之后),用公钥...
Windows SDK/API
1,183
社区成员
22,328
社区内容
发帖
与我相关
我的任务
Windows SDK/API
Delphi Windows SDK/API
复制链接
扫一扫
分享
社区描述
Delphi Windows SDK/API
社区管理员
加入社区
获取链接或二维码
近7日
近30日
至今
加载中
查看更多榜单
社区公告
暂无公告
试试用AI创作助手写篇文章吧
+ 用AI写文章