VPF::Favorite in WebBrowser - Форум программистов

helflip

Дата 14.5.2006, 14:06 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 146
Регистрация: 14.5.2006
Где: Moscow

Репутация: нет
Всего: 4

Всем хорошего времени суток!

У меня такая проблема.
Я делаю курсовую Webbrowser на Дельфи и сталкнулся с такой проблемой, я не знаю как сделать меню избранное.
Учитель сказал что можно использовать компонент ShellTreeView1.
Я посмотрел там есть стандартная папка rfFavorite, но вопрос такой - Как сделать чтобы при нажатии на компонент в дереве он переходил не на имя файла, а на URL адрес.

Я писал так

Код


webbrowser1.navigate(shelltreeview1.select.name);

но это не правильно.

ПОМОГИТЕ ПЛИЗ курсовик сдавать через неделю!!! smile

Если можно, то объясните чтобы я понял.Не очень мудрено smile

Это сообщение отредактировал(а) helflip - 14.5.2006, 14:09

--------------------

helflip

Дата 14.5.2006, 21:48 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 146
Регистрация: 14.5.2006
Где: Moscow

Репутация: нет
Всего: 4

Ну кто-нибудь ответте пожалуйста, ПОМОГИТЕ smile

Я уже не могу smile

, стремно первый курсовик, хочу сдать с 1-го раза smile

--------------------

Дата 15.5.2006, 02:50 (ссылка)

(нет голосов)

Загрузка ...

Брутальный буратина

Профиль
Группа: Участник Клуба
Сообщений: 3497
Регистрация: 31.3.2002
Где: Лес

Репутация: 10
Всего: 115

Ну раз горит тогда, могу предложить такой вариант:

Код



Function ReadString(const Section, Ident, WFile: string): string;
var Buffer: array[0..2047] of Char;
begin
 SetString(Result, Buffer, GetPrivateProfileString(@Section[1],
 @Ident[1], '', Buffer, SizeOf(Buffer), @Wfile[1]));
end;


procedure TForm1.ShellTreeView1Click(Sender: TObject);
begin
 Webbrowser1.navigate(ReadString('InternetShortcut','URL',      ShellTreeView1.Path));
end;

наверное есть более простые способы, я просто не знаю какие smile

ибо не вожусь с этими делами.

Это сообщение отредактировал(а) RAdmin - 15.5.2006, 02:53

helflip

Дата 15.5.2006, 23:26 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 146
Регистрация: 14.5.2006
Где: Moscow

Репутация: нет
Всего: 4

СПАСИБА

УРААААА

ПРОСТО СПАС smile

--------------------

helflip

Дата 17.5.2006, 09:46 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 146
Регистрация: 14.5.2006
Где: Moscow

Репутация: нет
Всего: 4

Еще пара вопросов по браузеру smile

-первый вопрос- Как в дельфи 6 повесить событие на то, чтобы при нажатии на пункт меню
Open in New window открывалась страница в моем же браузере. smile

-второй вопрос- Можно ли вызвать стандартную процедуру добавления в меню избранное (Как в IE). Если да, то как, если нет, то как ее можно заменить smile

--------------------

Snowy

Дата 17.5.2006, 09:55 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Модератор
Сообщений: 11363
Регистрация: 13.10.2004
Где: Питер

Репутация: 53
Всего: 484

Модератор: Пожалуйста, один топик - один вопрос.
Кроме того это вопросы в Delphi: ActiveX/СОМ/CORBA

Дата 17.5.2006, 10:49 (ссылка)

(нет голосов)

Загрузка ...

Брутальный буратина

Профиль
Группа: Участник Клуба
Сообщений: 3497
Регистрация: 31.3.2002
Где: Лес

Репутация: 10
Всего: 115

helflip, Вобще тут правила такие: Один вопрос одна тема.
Лутше всего подобные вопросы задавать в разделе ->
http://forum.vingrad.ru/index.php?showforum=89

Что касается, твоего предыдущего, вопроса то как я и подразумевал, предложенный мною способ, не самый верный. Microsoft рекомендует использовать IUniformResourceLocator, так-как не исключает что структура файлов *.url (каторая на данный момент ничем не отличается от ini), может быть изменена. Такчто замени код на этот ->

Код


function ResolveUrl_Using_IntShCut(Filename: string): string;
var
IURL: IUniformResourceLocator;
PersistFile: IPersistfile;
FName: array[0..MAX_PATH] of WideChar;
p: Pchar;
begin
 if Succeeded(CoCreateInstance(CLSID_InternetShortcut, nil,    CLSCTX_INPROC_SERVER, IID_IUniformResourceLocator, IURL))
 then begin
  Persistfile := IUrl as IPersistFile;
  StringToWideChar(FileName, FName, MAX_PATH);
  PersistFile.Load(Fname, STGM_READ);
  IUrl.geturl(@P);
  Result := P;
 end;
end;

Что касается этих вопросов и возможных будущих то:

Рекомендую скачать это пример (он с исходниками) http://torry.net/samples/samples/internet/...browserDemo.zip

И сюда глянуть тоже нужно
http://www.euromind.com/iedelphi/

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Сети \| Следующая тема »