[evgeny92]

Сделана бд в Аксесе. Тема бд: кинотеатр.
На форме разместил сетку и компоненты подключения АДО и компонент webbrowser. В таблице имеется поле с типом данных гиперссылка.
Хочу чтобы в программе при выборе данной записи отобразилась веб страница в webbrowser'e.
И так. Бд называется kinoteatr. Таблица ФИЛЬМЫ, поле АФИША гиперссылка.

[poli-smen]

Сообщение от evgeny92

Сделана бд в Аксесе. Тема бд: кинотеатр.
На форме разместил сетку и компоненты подключения АДО и компонент webbrowser. В таблице имеется поле с типом данных гиперссылка.
Хочу чтобы в программе при выборе данной записи отобразилась веб страница в webbrowser'e.

Генерируй "на лету" html-страничку и вгружай её в WebBrowser. Что не получается?

[evgeny92]

Вот у меня есть код на 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) ) ;

}

[poli-smen]

Сообщение от evgeny92

Вот у меня есть код на 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) ) ;

}

Код:

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;

[evgeny92]

Спасибо вам больше, как бы работает. Но в WebBrowser показывает, что Переход на веб-страницу отменен. Файлы веб-страниц лежать проекте, в папке Afisha. Открывает только которые серверные, а не то что созданнные HTML файлы. Хочу что бы открывал файлы веб-страниц, которые созданы.

[evgeny92]

Серверные, я имею ввиду, которые сайты. В аксесе путь указан на папку с веб-страницами. Попробовал прописать туда адрес любого сайта, открывает. То что в папке нет.

Что мне делать?