Переключение браузера с видео

@Evgeny92 · Регистрация: 09.11.2011

Студворк — интернет-сервис помощи студентам

последний раз выкладываю проект свой.
проблема такая. Один не решенный баг. На 5 форме Form5 два компонента CppWebBrouser1 и CppWebBrouser2.
Не переключается CppWebBrouser2 при нажатии на DBNavigator1 вперед, назад. Видео не переключается. А CppWebBrouser1 переключается.
CppWebBrouser'ы находятся на компоненте PageControl1, одни на TabSheet2(Трейлер) второй на TabSheet3(Смотреть)

Код на DBNavigator1 в Form5.

C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
void __fastcall TForm1::DBNavigator1Click(TObject *Sender,
      TNavigateBtn Button)
{
if (Form1->DBGrid1->Columns->Items[10]->Title->Caption == "Трейлер")
    {
    AnsiString wsg = Form1->DBGrid1->DataSource->DataSet->FieldByName( "Трейлер" )->AsString;
      wsg = wsg.SubString( wsg.Pos( "#" ) + 1, wsg.Length( ) );
    wsg = wsg.Delete( wsg.Pos( "#" ), 1 );
    Form5->CppWebBrowser1->Navigate( WideString( wsg ) );
    }
    else if (Form1->DBGrid1->Columns->Items[11]->Title->Caption == "Смотреть фильм")
    {
    AnsiString wsg = Form1->DBGrid1->DataSource->DataSet->FieldByName( "Смотреть фильм" )->AsString;
        wsg = wsg.SubString( wsg.Pos( "#" ) + 1, wsg.Length( ) );
    wsg = wsg.Delete( wsg.Pos( "#" ), 1 );
    Form5->CppWebBrowser2->Navigate( WideString( wsg ) );
    }
 
  if ( Form1->DBGrid1->DataSource->DataSet == DataModule2->ADOTable1 )
    {
        Browser( DataModule2->ADOTable1 );
    }
    if ( Form1->DBGrid1->DataSource->DataSet == DataModule2->ADOQuery1 )
    {
        Browser( DataModule2->ADOQuery1 );
    }
 }

На TabSheet2:

C++
1
2
3
4
5
6
7
8
9
10
11
void __fastcall TForm5::TabSheet2Show(TObject *Sender)
{
CppWebBrowser2->Refresh();
 
AnsiString wsg = DataModule2->ADOTable1->FieldByName("Трейлер")->AsString; //Из поле Трейлер будет открываться ссылка на веб страницу
wsg = wsg.SubString(wsg.Pos("#")+1,wsg.Length());
wsg = wsg.Delete(wsg.Pos("#"),1);
Form5->CppWebBrowser1->Navigate(WideString(wsg) ) ;  //На форме О фильме Отображает веб страницу с трейлером.
 
 
}

На TabSheet3

C++
1
2
3
4
5
6
7
8
9
10
11
12
void __fastcall TForm5::TabSheet3Show(TObject *Sender)
{
CppWebBrowser1->Refresh();
 
AnsiString wsg = DataModule2->ADOTable1->FieldByName("Смотреть фильм")->AsString; //Из поле Трейлер будет открываться ссылка на веб страницу
wsg = wsg.SubString(wsg.Pos("#")+1,wsg.Length());
wsg = wsg.Delete(wsg.Pos("#"),1);
Form5->CppWebBrowser2->Navigate(WideString(wsg) ) ;  //На форме О фильме Отображает веб страницу с трейлером.
 
 
}
//---------------------------------------------------------------------------

@Evgeny92 · 12.05.2013, 13:31 **[ТС]**

Еще это было прописано на Form5 в ручную.

C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
void Browser( TDataSet * DataSet )
{
     if (Form1->DBGrid1->Columns->Items[10]->Title->Caption == "Трейлер")
    {
    AnsiString wsg = Form1->DBGrid1->DataSource->DataSet->FieldByName( "Трейлер" )->AsString;
      wsg = wsg.SubString( wsg.Pos( "#" ) + 1, wsg.Length( ) );
    wsg = wsg.Delete( wsg.Pos( "#" ), 1 );
    Form5->CppWebBrowser1->Navigate( WideString( wsg ) );
    }
    else if (Form1->DBGrid1->Columns->Items[11]->Title->Caption == "Смотреть фильм")
    {
    AnsiString wsg = Form1->DBGrid1->DataSource->DataSet->FieldByName( "Смотреть фильм" )->AsString;
        wsg = wsg.SubString( wsg.Pos( "#" ) + 1, wsg.Length( ) );
    wsg = wsg.Delete( wsg.Pos( "#" ), 1 );
    Form5->CppWebBrowser2->Navigate( WideString( wsg ) );
    }

Добавлено через 5 минут
Сорри, Сам нашел решение проблемы else убрал.

Добавлено через 23 секунды

@Lelik-pahan · 12.05.2013, 13:35

Evgeny92, код с проверкой заголовка таблицы был предназначен для обработчика клика по таблице. Зачем было его впихивать в DBNavigator1Click?
Вот это условие

C++
1
if (Form1->DBGrid1->Columns->Items[10]->Title->Caption == "Трейлер")

у тебя выполняется ВСЕГДА. С таким же условием ты мог бы написать

C++
1
if ("Трейлер" == "Трейлер")

И это условие

C++
1
if (Form1->DBGrid1->Columns->Items[11]->Title->Caption == "Смотреть фильм")

всегда возвращает true. Нафига они вообще нужны?

Добавлено через 2 минуты

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

Добавлено через 5 минут
Сорри, Сам нашел решение проблемы else убрал.

Ну и теперь у тебя два блока if, которые выполняются всегда... Если тебе это и было нужно, то просто убери ифы, оставь их содержимое.

Новые блоги и статьи Все статьи Все блоги /
Подстановка значения реквизита справочника в табличную часть документа Maks 10.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеПерсонала", разработанного в конфигурации КА2. Задача: при выборе сотрудника (справочник Сотрудники) в ТЧ документа. . .	Очистка реквизитов документа при копировании Maks 09.04.2026 Алгоритм из решения ниже применим как для типовых, так и для нетиповых документов на самых различных конфигурациях. Задача: при копировании документа очищать определенные реквизиты и табличную. . .	модель ЗдравоСохранения 8. Подготовка к разному выполнению заданий anaschu 08.04.2026 https:/ / github. com/ shumilovas/ med2. git main ветка * содержимое блока дэлэй из старой модели теперь внутри зайца новой модели 8ATzM_2aurI	Блокировка документа от изменений, если он открыт у другого пользователя Maks 08.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа, разработанного в конфигурации КА2. Задача: запретить редактирование документа, если он открыт у другого пользователя. / / . . .
Система безопасности+живучести для сервера-слоя интернета (сети). Двойная привязка. Hrethgir 08.04.2026 Далее были размышления о системе безопасности. Сообщения с наклонным текстом - мои. А как нам будет можно проверить, что ссылка наша, а не подделана хулиганами, которая выбросит на другую ветку и. . .	Модель ЗдрввоСохранения 7: больше работников, больше ресурсов. anaschu 08.04.2026 работников и заданий может быть сколько угодно, но настроено всё так, что используется пока что только 20% kYBz3eJf3jQ	Дальние перспективы сервера - слоя сети с космологическим дизайном интефейса карты и логики. Hrethgir 07.04.2026 Дальнейшее ближайшее планирование вывело к размышлениям над дальними перспективами. И вот тут может быть даже будут нужны оценки специалистов, так как в дальних перспективах всё может очень сильно. . .	Горе от ума kumehtar 07.04.2026 Эта мне ментальная установка, что вот прямо сейчас, мол, мне для полного счастья не хватает (нужное вписать), и когда я этого достигну - тогда и полный кайф. Одна из самых сильных ловушек на пути. . . .