Курсовая работа (т): Разработка программы WebBrowser на основе Internet Explorer
Принцип обеспечения безопасности состоит в том, что все web-узлы Интернета разбиваются
пользователем на несколько "зон", с каждой из которых ассоциируется свой
"уровень безопасности". Для каждой зоны можно задать отдельные
ограничения на приём "сомнительной" информации из Интернета.
Рис. 2.12
Средства вкладки Содержание (Рис. 2.13) позволяют ограничить доступ к
нежелательной сетевой информации. Принцип ограничения основан на системе
рейтинговых оценок web-узлов. Интернет несвободен от сквернословия и
низкопробного содержания. Настройка ограничений по содержанию необходима в тех
случаях, когда одним компьютером пользуется несколько человек. Особенно это
касается учебных заведений. Кроме того, в этом диалоговом окне можно настроить
личные сертификаты для защиты идентификации через Интернет. Сертификат
гарантирует безопасное подключение к Web-узлам или удостоверяет личность владельца.
Идентификация обеспечивается путем применения личного ключа, известного только
пользователю данной системы.
Рис. 2.13
.5. Оценка результатов решения задачи.
Была разработана программа «WebBrowser.exe», которая проста и удобна в обращении, так как наследует знакомые пользователю приемы и методы работы.
Для работы с системой достаточно навыков обычного пользователя компьютера, знакомого с приемами работы в офисных пакетах. Каких-либо специальных знаний в области информационных технологий не требуется. Благодаря простому и интуитивно понятному интерфейсу системы, обучение проходит достаточно быстро.
Программа имеет привлекательный и информативный интерфейс, удобное в
обращении меню с необходимым минимумом опций. Также она оснащена справочной
системой, помогающей в навигации по программе начинающим пользователям.
Заключение
В данной дипломной работе по теме: «Разработка программы Internet - браузер» были решены все поставленные задачи, а именно:
Работа с веб-браузером: позволяют быстро и легко переходить по сайтам с разными Интернет подключениями, выводить на печать HTML документы, сохранять на компьютере веб-страницы.
Приятный и не сложный интерфейс: который позволяет даже не опытному пользователю без особых усилий, работать быстро и качественно с программой.
Низкие системные требования: позволяют работать с программой почти на всех существующих в данное время ЭВМ (электронных вычислительных машинах).
Небольшой размер программы: которая может хранится на ПК, CD-дисках, DVD-дисках, дискетах и прочих переносных устройств памяти, занимая минимальное количество единиц информации в 1мб.
Подводя итоги, получили быструю и легкую в использовании программу
доступную любому пользователю.
Список использованной литературы
1. Возневич Э. «Освой самостоятельно Delphi: Полное руководство для самостоятельного обучения. /Под ред. В. Тимофеева. - М.: Бином, 1996.
2. Гофман В.Э., Хомоненко А.Д. Delphi 6. - СПБ.: БХВ, 1996.
. Дарахвелидзе П.Г. Марков Е.П. Delphi - средства визуального программирования. - СПБ.: BHV - С-Петербург, 1996.
. Епанешников А.М. Программирование в среде Turbo Pascal 0 - 3-е изд., стер. - М.: «Диалог-МИФИ». 1996.
. Зуев Е.А. Система программирования Turbo Pascal./Под общ. Ред. Чадчикова П.М.: Радио и связь, 1992.
. Сван Том. Основы программирования Delphi для Windows 95. Киев: Диалектика, 1996.
. Фаронов В.В. Delphi4. Учебный курс. - М.: Нолидж, 1999.
. Электронные самоучители по Delphi 7.0.
. Интернет ресурсы по программированию.
Приложение 1
Unit1;
{$I versions.inc}, Messages, SysUtils, {$IFDEF DELPHI6UP}Variants, {$ENDIF}AppEvnts,, ExtDlgs, Graphics, Menus, ExtCtrls, ImgList, Controls, StdCtrls, ComCtrls,, SHDocVw, ToolWin, Buttons, WBFuncs, Classes, Forms,, FavMenu, ActiveX, XPMan;= class(TMyBrowser): Boolean;: Boolean;: string;WMClose(var Msg: TWMClose); message WM_CLOSE;;= class(ComCtrls.TStatusBar)Create(AOwner: TComponent); override;
end;
TfrmMyBrowser = class(TForm)
Panel1: TPanel;
edURL: TEdit;
MainMenu1: TMainMenu;
File1: TMenuItem;
Print1: TMenuItem;
PrintPreview1: TMenuItem;
PageSetup1: TMenuItem;
N1: TMenuItem;
Edit2: TMenuItem;
Copy1: TMenuItem;
Paste1: TMenuItem;
Cut1: TMenuItem;
N2: TMenuItem;
Search1: TMenuItem;
ImageListToolBar: TImageList;
Panel12: TPanel;
CoolBarMainIcons: TCoolBar;
edSearch: TEdit;
btnSearch: TSpeedButton;
btnGo: TSpeedButton;
StatusBar1: TStatusBar;
N3: TMenuItem;
Exit1: TMenuItem;
SelectAll1: TMenuItem;
N4: TMenuItem;
Label1: TLabel;
Extras1: TMenuItem;
AddHTML1: TMenuItem;
SaveAs1: TMenuItem;
N5: TMenuItem;
NewTabBlank: TMenuItem;
OfflineMode1: TMenuItem;
OpenDialog1: TOpenDialog;
Open1: TMenuItem;
InternetOptions1: TMenuItem;
ImageListObjectView: TImageList;
Timer1: TTimer;
Label8: TLabel;
N8: TMenuItem;
CharacterSet1: TMenuItem;
PCPopup: TPopupMenu;
CloseTab1: TMenuItem;
DuplicateTab1: TMenuItem;
Panel8: TPanel;
PageControl: TPageControl;
TabSheet1: TTabSheet;
WebBrowser1: TWebBrowser;
TabSheet7: TTabSheet;
PageControlInfos: TPageControl;
TabSheet2: TTabSheet;
TabSheet4: TTabSheet;
LbFrames: TListBox;
TabSheet5: TTabSheet;
lbImages: TListBox;
TabSheet6: TTabSheet;
LbFields: TListBox;
Panel6: TPanel;
SpeedButtonScrollBottom: TSpeedButton;
SpeedButtonScrollTop: TSpeedButton;
Splitter1: TSplitter;
Cookie1: TMenuItem;
View1: TMenuItem;
ViewSource1: TMenuItem;
SourceEdit: TMemo;
OpenPictureDialog1: TOpenPictureDialog;
N10: TMenuItem;
SaveDialog1: TSaveDialog;
Zoom1: TMenuItem;
Largest1: TMenuItem;
Large1: TMenuItem;
Medium1: TMenuItem;
Small1: TMenuItem;
Smallest1: TMenuItem;
N7: TMenuItem;
ApplicationEvents1: TApplicationEvents;
ToolBar1: TToolBar;
ToolbtnBack: TToolButton;
ToolBtnStop: TToolButton;
ToolButton10: TToolButton;
ToolBtnRefresh: TToolButton;
ToolBtnHome: TToolButton;
ToolButton11: TToolButton;
ToolBtnSearch: TToolButton;
XPManifest1: TXPManifest;
Panel2: TPanel;
Edit1: TEdit;
Label2: TLabel;
procedure FormCreate(Sender: TObject);
procedure FormDestroy(Sender: TObject);
procedure btnGoClick(Sender: TObject);
procedure WebBrowser1ProgressChange(Sender: TObject; Progress,
ProgressMax: Integer);
procedure WebBrowser1TitleChange(Sender: TObject;
const Text: WideString);
procedure Print1Click(Sender: TObject);
procedure PrintPreview1Click(Sender: TObject);
procedure PageSetup1Click(Sender: TObject);
procedure Properties1Click(Sender: TObject);
procedure Copy1Click(Sender: TObject);
procedure Paste1Click(Sender: TObject);
procedure Cut1Click(Sender: TObject);
procedure Edit2Click(Sender: TObject);
procedure Search1Click(Sender: TObject);
procedure ToolbtnBackClick(Sender: TObject);
procedure ToolBtnForwardClick(Sender: TObject);
procedure ToolBtnStopClick(Sender: TObject);
procedure ToolBtnSearchClick(Sender: TObject);
procedure ToolBtnFavoritesClick(Sender: TObject);
procedure ToolBtnHomeClick(Sender: TObject);
procedure btnSearchClick(Sender: TObject);
procedure File1Click(Sender: TObject);
procedure WebBrowser1StatusTextChange(Sender: TObject;
const Text: WideString);
procedure Exit1Click(Sender: TObject);
procedure WebBrowser1CommandStateChange(Sender: TObject;
Command: Integer; Enable: WordBool);
procedure FormResize(Sender: TObject);
procedure WebBrowser1DownloadComplete(Sender: TObject);
procedure SelectAll1Click(Sender: TObject);
procedure StatusBar1DrawPanel(StatusBar: TStatusBar;
Panel: TStatusPanel; const Rect: TRect);
procedure FormShow(Sender: TObject);
procedure edURLKeyPress(Sender: TObject; var Key: Char);
procedure AddHTML1Click(Sender: TObject);
procedure Extras1Click(Sender: TObject);
procedure SpeedButtonScrollBottomClick(Sender: TObject);
procedure SpeedButtonScrollTopClick(Sender: TObject);
procedure WebBrowser1NewWindow2(Sender: TObject; var ppDisp: IDispatch;
var Cancel: WordBool);
procedure DesignMode1Click(Sender: TObject);
procedure NewTabBlankClick(Sender: TObject);
procedure OfflineMode1Click(Sender: TObject);
procedure Open1Click(Sender: TObject);
procedure InternetOptions1Click(Sender: TObject);
procedure edSearchKeyPress(Sender: TObject; var Key: Char);
procedure Timer1Timer(Sender: TObject);
procedure edSearchAndHighlightKeyPress(Sender: TObject; var Key: Char);
procedure PageControlChanging(Sender: TObject;
var AllowChange: Boolean);
procedure PageControlMouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
procedure CloseTab1Click(Sender: TObject);
procedure DuplicateTab1Click(Sender: TObject);
procedure PageControlInfosChange(Sender: TObject);
procedure PageControlChange(Sender: TObject);
procedure WebBrowser1DocumentComplete(Sender: TObject;
const pDisp: IDispatch; var URL: OleVariant);
procedure WebBrowser1BeforeNavigate2(Sender: TObject;
const pDisp: IDispatch; var URL, Flags, TargetFrameName, PostData,
Headers: OleVariant; var Cancel: WordBool);
procedure Cookie1Click(Sender: TObject);
procedure ViewSource1Click(Sender: TObject);
procedure View1Click(Sender: TObject);
procedure N9Click(Sender: TObject);
procedure WebBrowser1NavigateComplete2(Sender: TObject;
const pDisp: IDispatch; var URL: OleVariant);
procedure Zoom1Click(Sender: TObject);
procedure Smallest1Click(Sender: TObject);
procedure ToolBtnRefreshClick(Sender: TObject);
procedure urkishWindows1Click(Sender: TObject);
procedure SaveAs1Click(Sender: TObject);
procedure ApplicationEvents1Message(var Msg: tagMSG;
var Handled: Boolean);
procedure edURLDblClick(Sender: TObject);
procedure Edit1KeyPress(Sender: TObject; var Key: Char);
private: TWebbrowser;
HistoryMenu: THistoryMenu;
FavoritesMenu: TFavoritesMenu;
function DrawZoneIcon(WB: TWebbrowser): TIcon;
function CreateTabBrowser(sURL, sCaption: string): TTabSheet;
procedure SetWBMenuEnabled(WB: TWebbrowser; Sender: TMenuItem);
procedure AddEventLog(s: string);
procedure HistoryMenuURLSelected(Sender: TObject; Url: string);
procedure FavoritesMenuURLSelected(Sender: TObject; Url: string);
publicGetCurrentWB: TWebbrowser;
end;
APP_CAPTION = 'Webbrowser';
frmMyBrowser: TfrmMyBrowser;
ShellAPI, MSHTML, UrlMon, CommCtrl, WinInet,
uAddHTML, ComObj;
{$R *.dfm}TfrmMyBrowser.Print1Click(Sender: TObject);
WB_ShowPrintDialog(GetCurrentWB);;TfrmMyBrowser.PrintPreview1Click(Sender: TObject);
WB_ShowPrintPreview(GetCurrentWB);;TfrmMyBrowser.PageSetup1Click(Sender: TObject);
WB_ShowPageSetup(GetCurrentWB);;TfrmMyBrowser.Properties1Click(Sender: TObject);
WB_ShowPropertiesDialog(GetCurrentWB);;TfrmMyBrowser.Copy1Click(Sender: TObject);
WB_Copy(GetCurrentWB);;TfrmMyBrowser.Paste1Click(Sender: TObject);
WB_Paste(GetCurrentWB);;TfrmMyBrowser.Cut1Click(Sender: TObject);
WB_Cut(GetCurrentWB);;TfrmMyBrowser.SelectAll1Click(Sender: TObject);
WB_SelectAll(GetCurrentWB);;TfrmMyBrowser.ToolBtnRefreshClick(Sender: TObject);_Refresh(GetCurrentWB);.Enabled:= True;;