Как запретить переход на определенный URL в Webbrowser?

[russian-stalker]

Ну записывать позиции Left,top,width,height формы и статус формы:

if WindowState=wsnormal then
//Здесь записываешь допустим 1
if windowstate=wsmaximized then
//Здесь допустим 2
//И потом аналогично читаешь параметры

[Marsel737]

Вот спасибо, всё работает как надо!

И у меня снова возник вопрос, который касается вот этого кода:

const
NotAllowed: set of Char = ['"'] + ['/'] + ['\'] + ['?'] + [':'] + ['*'] +
['<'] + ['>'] + ['|'];

var
b: string;

implementation

{$R *.DFM}

function Load(Path, Key: string): string;
var
Reg: TRegistry;
begin
Reg := TRegistry.Create;
try
Reg.RootKey := HKEY_CURRENT_USER;
Reg.OpenKey(Path, False);
try
Result := Reg.ReadString(Key);
except
Result := '';
end;
Reg.CloseKey;
finally
Reg.Free;
end;
end;

function WinDir: string;
var
WinDir: PChar;
begin
WinDir := StrAlloc(MAX_PATH);
GetWindowsDirectory(WinDir, MAX_PATH);
Result := string(WinDir);
if Result[Length(Result)] <> '\' then
Result := Result + '\';
StrDispose(WinDir);
end;

function GetSysDir: string;
var
dir: array[0..MAX_PATH] of Char;
begin
GetSystemDirectory(dir, MAX_PATH);
Result := StrPas(dir);
end;

// Navigate to a page

procedure TForm1.Button1Click(Sender: TObject);
begin
Webbrowser1.Navigate(edit1.Text);
end;

// Add the current page to the favorites

procedure TForm1.Button2Click(Sender: TObject);
var
url: TStringList;
fav: string;
title: string;
i: Integer;
c: Char;
begin
fav := Load('Software\Microsoft\Windows\Cu rrentVersion\Explorer\Shell Folders',
'Favorites');
url := TStringList.Create;
try
url.Add('[InternetShortcut]');
url.Add('URL=' + webbrowser1.LocationURL);
url.Add('WorkingDirectory=' + WinDir());
url.Add('IconIndex=0');
url.Add('ShowCommand=7');
url.Add('IconFile=' + GetSysDir() + '\url.dll');
title := Webbrowser1.LocationName;
//b := '';
for i := 1 to Length(title) do
begin
c := title[i];
{if not (c in NotAllowed) then
begin
b := b + Webbrowser1.LocationName[i];
end;}
end;
url.SaveToFile(fav + '\' + b + '.url');
finally
url.Free;
end;
end;

end.

Этот код нужен для добавления текущего сайта в закладки, всё работает, но есть проблема... название закладки даётся автоматически - это url: httpwww.ya.ru, вообщем лажа, а хотелось бы чтобы можно было самому называть закладку

Всё, сам разобрался, название закладки записывается в b, код подправил

[Marsel737]

Прошу помочь мне переделать вот такой код:

procedure TForm1.Button1Click(Sender: TObject);
var
i: Integer;
begin
for i := 0 to Webbrowser1.OleObject.Document.link s.Length - 1 do
Listbox1.Items.Add(Webbrowser1.OleO bject.Document.Links.Item(i));
end;


{*****************}

{ if there are frames }

procedure TForm1.Button2Click(Sender: TObject);
var
u : variant;
v : IDispatch;
s : string;

procedure RecurseLinks(htmlDoc: variant);
var
BodyElement : variant;
ElementCo: variant;
HTMLFrames: variant;
HTMLWnd : variant;
j, i : integer;
begin
if VarIsEmpty(htmlDoc) then
exit;
BodyElement := htmlDoc.body;
if BodyElement.tagName = 'BODY' then
begin
ElementCo := htmlDoc.links;
j := ElementCo.Length - 1;
for i := 0 to j do
begin
u := ElementCo.item(i);
s := u.href;
listLinks.Items.Add(s);
end;
end;
HTMLFrames := htmlDoc.Frames;
j := HTMLFrames.length - 1;
for i := 0 to j do
begin
HTMLWnd := HTMLFrames.Item(i);
RecurseLinks(HTMLWnd.Document);
end;
end; // RecurseLinks
begin
v := WebBrowser1.document;
listLinks.Clear;
RecurseLinks(v);
end;


Это процедуры для выведения всех ссылок страницы webbrowser'a, мне нужно засунуть эти процедуры в таймер, ну или хотя бы первую процедуру, но в таком виде засунуть их не получится, потому что компилятор ругается на выделенные строки, ну это и понятно, когда веббраузер пустой там нет ссылок. Так вот мне нужно задать условие, которое бы проверяло есть ссылки в веббраузере - выполняем процедуру, нету ссылок - выходим. Самому такое условие задать не получилось, потому что с веббраузером пока плохо знаком и литературы по нему почти никакой.

Поэтому прошу помочь

Заранее спасибо

[Marsel737]

Всем здрасте!

На тот вопрос видимо ответа никто не знает или никто не хочет помагать, тогда вот вопрос полегче, как сделать ограничение выхода в интернет по времени.

Нужно вообщем сделать так, чтобы можно было задать к примеру 30 мин в день и по истечении 30 мин чтоб интернет через мой браузер был недоступен.

Я думаю нада как-то отслеживать соединение с интернетом и как тока оно устанавливается запускать таймер, а по истечении времени блокировать инет, потом записывать в ини файл что на сегодня всё, и можно будет тока завтра

Теперь вот как это всё реализовать в делфи?