web-browser c++ builder 6

[andry-93]

Помогите пожалуйста... Написал 1-ый web-браузер.
Потом решил переделать его, добавить вкладки, всё сделал.
Но возникли вот какие проблемы:
1) Не могу сделать, что бы StatusBur1 отображал информацию о загрузке (Как в первой программе), так как компонента CppWebBrowser нет изначально, он создается функцией make_tab(); вместе с новой вкладкой;
2) Не могу сделать, что бы ProgressBar1 отображал информацию о загрузке (Как в первой программе), по той же причине;
3) sComboBox1 не изменяется при загрузке страниц, хотелось бы, что бы как в первой представленной мной программе отображался сайт, на которой находиться активная страница.
Я просто не понимаю как сделать это. Я эту программу готовлю для курсового проекта, может вопросы покажутся глупыми, мы просто не проходили C++ Builder, и для курсового прокта пришлось за кратчайшие сроки изучать всё самому по книгам и статьям, видео урокам. Помогите пожалуйста. Для создания использовал AlphaControls.

[nick42]

andry-93, добавьте в функцию make_tab() две строчки__

void __fastcall TForm1::make_tab() 
{ 
newtab = new TTabSheet(this); 
newtab->PageControl = PageControl1; 
newtab->Name = AnsiString("TabSheet")+IntToStr(PageControl1->PageCount+1); 
newtab->Caption = "Íîâàÿ âêëàäêà";
newbrowser[num] = new TCppWebBrowser(PageControl1); 
newbrowser[num]->TOleControl::Parent = newtab;
newbrowser[num]->TOleControl::Name = AnsiString("CppWebBrowser")+IntToStr(PageControl1->PageCount)+1;
newbrowser[num]->TOleControl::Align = alClient;
  newbrowser[num]->OnStatusTextChange = CppWebBrowser1StatusTextChange;
  newbrowser[num]->OnProgressChange = CppWebBrowser1ProgressChange;
num++;
}

[andry-93]

Спасибо очень помог... Осталось 3)...

[nick42]

- с "3" не получается. Напрямую не берёт (у массива tagVARIANT, а у штатного браузера - Variant). Как это обойти - не знаю. Можно написать отдельно функцию, где использовать конкретные свойства "индексированного" браузера. Экспериментируй (пока, может быть, опытные товарищи не подскажут).

[andry-93]

Спасибо буду пробывать, но я ещё не настолько хорошо знаю c++ чтобы такое вытварять... Всё токи пока у меня ничего не выходит расчитываю на поддержку более опытных лиц(

[nick42]

Сообщение от andry-93

я ещё не настолько хорошо знаю c++ (

Да? А браузер сделал довольно симпатично; там немножко подшлифовать - и вполне хорошая программа.

[andry-93]

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

Да? А браузер сделал довольно симпатично; там немножко подшлифовать - и вполне хорошая программа.

Ну спасибо) Буду пытаться)

[nick42]

Попробуй добавить свою функцию make_info__

newbrowser[num] = new TCppWebBrowser(this);  //  PageControl1
newbrowser[num]->TOleControl::Parent = newtab;  //
newbrowser[num]->TOleControl::Name = AnsiString("myWebBrowser")+
                     IntToStr(PageControl1->PageCount+1);
newbrowser[num]->TOleControl::Align = alClient;
 newbrowser[num]->OnStatusTextChange = CppWebBrowser1StatusTextChange;
 newbrowser[num]->OnProgressChange = CppWebBrowser1ProgressChange;
 newbrowser[num]->OnNavigateComplete2 = make_info;
 newbrowser[num]->GoHome();
num++;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::make_info(TObject *Sender,LPDISPATCH pDisp,tagVARIANT *URL)
{
  sComboBox1->Text = URL->bstrVal;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::N4Click(TObject *Sender)

[andry-93]

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

Попробуй добавить свою функцию make_info__

newbrowser[num] = new TCppWebBrowser(this);  //  PageControl1
newbrowser[num]->TOleControl::Parent = newtab;  //
newbrowser[num]->TOleControl::Name = AnsiString("myWebBrowser")+
                     IntToStr(PageControl1->PageCount+1);
newbrowser[num]->TOleControl::Align = alClient;
 newbrowser[num]->OnStatusTextChange = CppWebBrowser1StatusTextChange;
 newbrowser[num]->OnProgressChange = CppWebBrowser1ProgressChange;
 newbrowser[num]->OnNavigateComplete2 = make_info;
 newbrowser[num]->GoHome();
num++;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::make_info(TObject *Sender,LPDISPATCH pDisp,tagVARIANT *URL)
{
  sComboBox1->Text = URL->bstrVal;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::N4Click(TObject *Sender)

На строке

newbrowser[num]->OnNavigateComplete2 = make_info;

Ошибку выдаёт

[C++ Error] Unit1.cpp(230): E2034 Cannot convert 'void (_fastcall * (_closure )())()' to 'void (_fastcall * (_closure )(TObject *,IDispatch *,tagVARIANT *))(TObject *,IDispatch *,tagVARIANT *)'

и

[C++ Error] Unit1.cpp(236): E2316 '_fastcall TForm1::make_info(TObject *,IDispatch *,tagVARIANT *)' is not a member of 'TForm1'

Можешь поподробнее рассписать? Я вставил

//---------------------------------------------------------------------------
void __fastcall TForm1::make_info()
{
newbrowser[num] = new TCppWebBrowser(this);  //  PageControl1
newbrowser[num]->TOleControl::Parent = newtab;  //
newbrowser[num]->TOleControl::Name = AnsiString("myWebBrowser")+IntToStr(PageControl1->PageCount+1);
newbrowser[num]->TOleControl::Align = alClient;
 newbrowser[num]->OnStatusTextChange = CppWebBrowser1StatusTextChange;
 newbrowser[num]->OnProgressChange = CppWebBrowser1ProgressChange;
 newbrowser[num]->OnNavigateComplete2 = make_info;
 newbrowser[num]->GoHome();
num++;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::make_info(TObject *Sender,LPDISPATCH pDisp,tagVARIANT *URL)
{
  sComboBox1->Text = URL->bstrVal;
}
//---------------------------------------------------------------------------

И в Unit.h вставил

void __fastcall make_info();

Что не так?

[Drugnir]

Удали __fastcall. Не вижу смысла его писать. Две функции с одинаковом именем и с разными параметрами, так не должно быть.