|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
Отображение информации веб страницы из dbgrid в webbrowser'e
Сделана бд в Аксесе. Тема бд: кинотеатр.
На форме разместил сетку и компоненты подключения АДО и компонент webbrowser. В таблице имеется поле с типом данных гиперссылка. Хочу чтобы в программе при выборе данной записи отобразилась веб страница в webbrowser'e. И так. Бд называется kinoteatr. Таблица ФИЛЬМЫ, поле АФИША гиперссылка. |
#2
|
||||
|
||||
Цитата:
|
#3
|
|||
|
|||
Вот у меня есть код на C++builder, подскажите как этот код записать в Delphi? Этот код из моего прошлого проекта.
void __fastcall TForm2:BGrid1CellClick(TColumn *Column) { AnsiString wsg = ADOTable1->FieldByName("АФИША")->AsString; wsg = wsg.SubString(wsg.Pos("#")+1,wsg.Length()); wsg = wsg.Delete(wsg.Pos("#"),1); CppWebBrowser1->Navigate(WideString(wsg) ) ; } |
#4
|
||||
|
||||
Цитата:
Код:
procedure TForm2.DBGrid1CellClick(Column: TColumn); var wsg: AnsiString; begin wsg := ADOTable1.FieldByName('АФИША').AsString; wsg := Copy(wsg, Pos(wsg, '#'), Length(wsg)); Delete(wsg, Pos(wsg, '#'), 1); CppWebBrowser1.Navigate(wsg); end; |
Этот пользователь сказал Спасибо poli-smen за это полезное сообщение: | ||
evgeny92 (17.12.2012)
|
#5
|
|||
|
|||
Спасибо вам больше, как бы работает. Но в WebBrowser показывает, что Переход на веб-страницу отменен. Файлы веб-страниц лежать проекте, в папке Afisha. Открывает только которые серверные, а не то что созданнные HTML файлы. Хочу что бы открывал файлы веб-страниц, которые созданы.
|
#6
|
|||
|
|||
Серверные, я имею ввиду, которые сайты. В аксесе путь указан на папку с веб-страницами. Попробовал прописать туда адрес любого сайта, открывает. То что в папке нет.
Что мне делать? Последний раз редактировалось evgeny92, 17.12.2012 в 19:26. |