 |
|
|
 
|
|
Гиперссылка в таблице MS Access, Открыть гиперссылку в таблице 
| Novichek27 |
|
|||
|
Шустрый  Профиль Группа: Участник Сообщений: 92 Регистрация: 24.4.2010 Репутация: 1 Всего: 1 |
Доброго времени суток всем участникам форума.
Столкнулся с такой проблемой: не могу открыть гиперссылку в поле таблицы MS Access в Delphi7. Пробовал так: procedure TForm1.BitBtn2Click(Sender: TObject); var s:string; begin s:=AdoQuery1.FieldValues['Reference']; ShellExecute(Handle,nil,pchar(s),'' ,'',SW_SHOWNORMAL); end; В ответ никакой реакции... А вот это работает procedure TForm1.Label1Click(Sender: TObject); begin ShellExecute(handle,'open','C:\data\d1.bmp',nil,nil,SW_SHOW); end; но мне нужно именно выдергивать из таблицы. Прошу поделиться опытом |
|||
|
||||
Загрузка ...
| Данкинг |
|
|||
 Yersinia pestis Профиль Группа: Завсегдатай Сообщений: 8302 Регистрация: 7.11.2006 Где: მოსკოვი Репутация: 35 Всего: 130 |
Вот так у меня работает:
А без www - не хочет.  -------------------- There's nothing left but silent epitaphs. |
|||
|
||||
| Novichek27 |
|
|||
|
Шустрый Профиль Группа: Участник Сообщений: 92 Регистрация: 24.4.2010 Репутация: 1 Всего: 1 |
А вот это работает
procedure TForm1.Label1Click(Sender: TObject); begin ShellExecute(handle,'open','C:\data\d1.bmp',nil,nil,SW_SHOW); end; но мне нужно именно выдергивать из таблицы. Прошу поделиться опытом |
|||
|
||||
| Данкинг |
|
|||
|
Yersinia pestis Профиль Группа: Завсегдатай Сообщений: 8302 Регистрация: 7.11.2006 Где: მოსკოვი Репутация: 35 Всего: 130 |
Я не понял, что именно не получается. В таблице что содержится?
-------------------- There's nothing left but silent epitaphs. |
|||
|
||||
| Novichek27 |
|
|||
|
Шустрый Профиль Группа: Участник Сообщений: 92 Регистрация: 24.4.2010 Репутация: 1 Всего: 1 |
var s:string;
begin s:=AdoQuery1.FieldValues['shell']; ShellExecute(Handle,'',pchar(ADOQuery1.FieldAddress('shell')),'' ,'',SW_SHOWNORMAL); и/или ShellExecute(Handle,nil,pchar(s),'','',SW_SHOWNORMAL); открывает папку в которой находится база.mdb... и все Добавлено через 2 минуты и 35 секунд в таблице есть поле с типом данных "Гиперссылка", нужно открыть эту гиперссылку в Delphi Добавлено через 12 минут и 25 секунд I too think: How release this "function"? |
|||
|
||||
| Данкинг |
|
|||
|
Yersinia pestis Профиль Группа: Завсегдатай Сообщений: 8302 Регистрация: 7.11.2006 Где: მოსკოვი Репутация: 35 Всего: 130 |
Посмотри, что возвращается в переменной S и распарсь строку так, как надо, т.е. чтобы осталась только строка со ссылкой.
Ты хотел сказать "Also I think how to realise this "function" ?  Это сообщение отредактировал(а) Данкинг - 15.5.2010, 20:09 -------------------- There's nothing left but silent epitaphs. |
|||
|
||||
| Novichek27 |
|
|||
|
Шустрый Профиль Группа: Участник Сообщений: 92 Регистрация: 24.4.2010 Репутация: 1 Всего: 1 |
Я же Novicheck, и не знаю как "распарсь строку так, как надо, т.е. чтобы осталась только строка со ссылкой".
|
|||
|
||||
| Данкинг |
|
|||
|
Yersinia pestis Профиль Группа: Завсегдатай Сообщений: 8302 Регистрация: 7.11.2006 Где: მოსკოვი Репутация: 35 Всего: 130 |
Выделить из строки только адрес, дабы можно было на него перейти. И к базам данных этот вопрос уже определённо не относится.
 -------------------- There's nothing left but silent epitaphs. |
|||
|
||||
|
|
| Правила форума "Delphi: Базы данных и репортинг" | |
|
|
Запрещено: 1. Публиковать ссылки на вскрытые компоненты 2. Обсуждать взлом компонентов и делиться вскрытыми компонентами Обязательно указание: 1. Базы данных (Paradox, Oracle и т.п.) 2. Способа доступа (ADO, BDE и т.д.)
FAQ раздела лежит здесь! Если Вам помогли и атмосфера форума Вам понравилась, то заходите к нам чаще! С уважением, Vit, Петрович. |
| 0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей) | |
| 0 Пользователей: | |
| « Предыдущая тема | Delphi: Базы данных и репортинг | Следующая тема » |
[ Время генерации скрипта: 0.0456 ] [ Использовано запросов: 22 ] [ GZIP включён ]
Реклама на сайте Информационное спонсорство
|
|
По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности Powered by Invision Power Board(R) 1.3 © 2003 IPS, Inc. |