Как передать значение IP-адрес между формами

@solaris · Регистрация: 15.04.2010

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

Borland C++ 6
Имеется DBGrid с колонкой Айпи-адреса. Когда я ставлю курсор на ячейке с айпи и нажимаю Butoon "HTTPS" в новой форме открывался браузер по выделенному в ячеки айпи. Все это реализовал, кроме передачи айпи.
Айпи-адреса хранятся в текстовом формате в Access, соответствено в Борланде в виде AnsiString. AnsiString между формами Form1 и Form2 не передается. Пробовал конвертировать AnsiString в Int безрезультатно. Буду рад любой помощи.

C++

void __fastcall TForm1::Button2Click(TObject *Sender)
{
  Label4->Caption = DBGrid1->SelectedField->Text;
  Form2->Show();
 
}
 
 
 
__fastcall TForm2::TForm2(TComponent* Owner)
        : TForm(Owner)
{
   CppWebBrowser1->Navigate(WideString("https://"+Label1->Caption));
}

2) Если кто может, подскажите можно ли в CppWebBrowser открыть строку формата http://172.23.48.198:8980/opennms/dashboard.jsp

@__bool · 04.02.2012, 17:38

В Unit2.cpp пропишите (вверху)

C++

1	#include "Unit1.h"

Ваш код сможет принять следующий вид:

C++

void __fastcall TForm1::Button2Click(TObject *Sender)
{
  Label4->Caption = DBGrid1->SelectedField->Text;
  Form2->Show();
 
}
 
 
 
__fastcall TForm2::TForm2(TComponent* Owner)
        : TForm(Owner)
{
   CppWebBrowser1->Navigate(WideString("https://"+Form1->Label4->Caption));
}

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

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

Если кто может, подскажите можно ли в CppWebBrowser открыть строку формата http://172.23.48.198:8980/opennms/dashboard.jsp

Слэши нужно дублировать(экранировать)
http:////172.23.48.198:8980//opennms//dashboard.jsp

@solaris · 04.02.2012, 18:05 **[ТС]**

Программирую пока на примерах, смутно пока в голове

Если не трудно на примере покажите

объявляю переменную AnsiString ip
Unit1.cpp

C++

#include <vcl.h>
#pragma hdrstop
 
#include "Unit1.h"
#include "Unit2.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma link "SHDocVw_OCX"
#pragma resource "*.dfm"
TForm1 *Form1;
AnsiString ip;

Unit1.h

C++

1 2	private: // User declarations AnsiString ip;

по кнопке открываю форму
Unit1.cpp

C++

void __fastcall TForm1::Button2Click(TObject *Sender)
{
 
  Label4->Caption = DBGrid1->SelectedField->Text;
  ip = Label4->Caption;
  Form2->Show();

Uni2.cpp

C++

#include <vcl.h>
#pragma hdrstop
 
#include "Unit1.h"
#include "Unit2.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma link "SHDocVw_OCX"
#pragma resource "*.dfm"
TForm2 *Form2;
extern AnsiString ip;
//---------------------------------------------------------------------------
__fastcall TForm2::TForm2(TComponent* Owner)
        : TForm(Owner)
{
   ip = Label1->Caption;
   CppWebBrowser1->Navigate(WideString("https://"+ip));
}

Ошибок компиляции нет. Но в открытой Форме2 Label1->Caption пустой, значит значение не передалось.

@__bool · 04.02.2012, 18:17

В сообщении №2 самый простой способ. Пробуйте его.
А в вашем последнем сообщении я не смог уловить логику
Я так понимаю это попытка реализовать примерно то, что я сначала ответил(потом удалил)
Это немного для другого случая.. Когда переменную объявленную в разделе private класса одного модуля требуется использовать в другом модуле

Добавлено через 6 минут
Если вы объявили AnsiString ip в разделе private заголовочного файла, она сразу становится доступной из любого метода класса.
В вашем случае нет смысла потом в .cpp снова ее объявлять, ибо это разные переменные, друг от друга не зависящие, чтоб не было путаницы к одной из них придется обращаться ::ip(глобальная), а к другой только локально их методов класса в котором она объявлена

@solaris · 04.02.2012, 18:19 **[ТС]**

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

Слэши нужно дублировать(экранировать)
http:////172.23.48.198:8980//opennms//dashboard.jsp

C++

void __fastcall TForm1::Button5Click(TObject *Sender)
{
    CppWebBrowser1->Navigate(WideString("http:////172.23.48.198:8980//opennms//dashboard.jsp"));
}

попробовал так, не выходит

@__bool · 04.02.2012, 18:24

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

попробовал так, не выходит

Общий доступ то открыт к файлу?
через проводник заходит?

Добавлено через 2 минуты
Использование WideString в данном случае не имеет смысла по-моему. т.к. С++Builder 6 любит ANSI.
(Хотя в этом случае возможно исключение)
Вряд ли это может являться причиной ошибки, но все-таки попробуйте так:

C++

1	CppWebBrowser1->Navigate("http:////172.23.48.198:8980//opennms//dashboard.jsp");

@solaris · 04.02.2012, 18:29 **[ТС]**

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

Общий доступ то открыт к файлу?
через проводник заходит?

Добавлено через 2 минуты
Использование WideString в данном случае не имеет смысла по-моему. т.к. С++Builder 6 любит ANSI.
(Хотя в этом случае возможно исключение)
Вряд ли это может являться причиной ошибки, но все-таки попробуйте так:

C++

1	CppWebBrowser1->Navigate("http:////172.23.48.198:8980//opennms//dashboard.jsp");

делаю так

C++

1	CppWebBrowser1->Navigate("http:////172.23.48.198:8980//opennms//dashboard.jsp");

ругается
[C++ Error] Unit1.cpp(76): E2034 Cannot convert 'char *' to 'wchar_t *'
[C++ Error] Unit1.cpp(76): E2342 Type mismatch in parameter 'URL' (wanted 'wchar_t *', got 'char *')

LK · 04.02.2012, 18:32

C++

1	CppWebBrowser1->Navigate(L"http:////172.23.48.198:8980//opennms//dashboard.jsp");

@__bool · 04.02.2012, 18:34

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

делаю так

C++

1	CppWebBrowser1->Navigate("http:////172.23.48.198:8980//opennms//dashboard.jsp");

ругается
[C++ Error] Unit1.cpp(76): E2034 Cannot convert 'char *' to 'wchar_t *'
[C++ Error] Unit1.cpp(76): E2342 Type mismatch in parameter 'URL' (wanted 'wchar_t *', got 'char *')

Ага.. значит все-таки WideString - достаточно перед строкой поставить префикс L:

C++

1	CppWebBrowser1->Navigate(L"http:////172.23.48.198:8980//opennms//dashboard.jsp");

Извиняюсь, в случае с web-адресами слеши дублировать не нужно..

@solaris · 04.02.2012, 18:35 **[ТС]**

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

В Unit2.cpp пропишите (вверху)

C++

1	#include "Unit1.h"

Ваш код сможет принять следующий вид:

C++

void __fastcall TForm1::Button2Click(TObject *Sender)
{
  Label4->Caption = DBGrid1->SelectedField->Text;
  Form2->Show();
 
} 
__fastcall TForm2::TForm2(TComponent* Owner)
        : TForm(Owner)
{
   CppWebBrowser1->Navigate(WideString("https://"+Form1->Label4->Caption));
}

опять мимо

Uni1.cpp

C++

#include <vcl.h>
#pragma hdrstop
 
#include "Unit1.h"
#include "Unit2.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma link "SHDocVw_OCX"
#pragma resource "*.dfm"
TForm1 *Form1;
 
void __fastcall TForm1::Button2Click(TObject *Sender)
{
 
  Label4->Caption = DBGrid1->SelectedField->Text;
  Form2->Show();
  }

Unit2.cpp

C++

#include <vcl.h>
#pragma hdrstop
 
#include "Unit1.h"
#include "Unit2.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma link "SHDocVw_OCX"
#pragma resource "*.dfm"
TForm2 *Form2;
//extern AnsiString ip;
//---------------------------------------------------------------------------
__fastcall TForm2::TForm2(TComponent* Owner)
        : TForm(Owner)
{
   Label1->Caption = Form1->Label4->Caption;
   CppWebBrowser1->Navigate(WideString("https://"+Form1->Label4->Caption));
}
//---------------------------------------------------------------------------

Label1->Caption в Форме2 пустой

печаль

@__bool · 04.02.2012, 18:39

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

C++

1	CppWebBrowser1->Navigate(L"http:////172.23.48.198:8980//opennms//dashboard.jsp");

И LK туда же

Добавлено через 2 минуты
Кидайте проект сюда тогда. По-сути все что требуется - подключить хедер и все

@solaris · 04.02.2012, 18:40 **[ТС]**

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

Ага.. значит все-таки WideString - достаточно перед строкой поставить префикс L:

C++

1	CppWebBrowser1->Navigate(L"http:////172.23.48.198:8980//opennms//dashboard.jsp");

Извиняюсь, в случае с web-адресами слеши дублировать не нужно..

СПАСИБо вам! сработало

C++

void __fastcall TForm1::Button5Click(TObject *Sender)
{
    CppWebBrowser1->Navigate(L"http://172.23.48.198:8980/opennms/dashboard.jsp");
}

это страничка мониторинга нашего внутреннего вебсервера

@__bool · 04.02.2012, 18:45

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

Label1->Caption в Форме2 пустой печаль

Опа.. в какой-то версии Builder'а нельзя было работать с визуальными объектами в конструкторе формы, попробуйте в FormCreate

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

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

СПАСИБо вам! сработало

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

это страничка мониторинга нашего внутреннего вебсервера

А я то думаю, почему у меня к нему доступа нет..

@solaris · 04.02.2012, 18:52 **[ТС]**

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

Кидайте проект сюда тогда. По-сути все что требуется - подключить хедер и все

Unit1.cpp

C++

//---------------------------------------------------------------------------
 
#include <vcl.h>
#pragma hdrstop
 
#include "Unit1.h"
#include "Unit2.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma link "SHDocVw_OCX"
#pragma resource "*.dfm"
TForm1 *Form1;
//AnsiString ip;
 
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
  DBGrid1->Columns->Items[0]->Width = 105;
  DBGrid1->Columns->Items[1]->Width = 230;
  DBGrid1->Columns->Items[2]->Width = 100;
  DBGrid1->Columns->Items[3]->Width = 100;
  DBGrid1->Columns->Items[4]->Width = 100;
  DBGrid1->Columns->Items[5]->Width = 80;
  DBGrid1->Columns->Items[6]->Width = 80;
  DBGrid1->Columns->Items[7]->Width = 50;
  DBGrid1->Columns->Items[8]->Width = 100;
  DBGrid1->Columns->Items[0]->Visible = false;
  //DBGrid1->Columns->Items[2]->Visible = false;
  DBGrid1->Columns->Items[3]->Visible = false;
  DBGrid1->Columns->Items[4]->Visible = false;
  DBGrid1->Columns->Items[5]->Visible = false;
  DBGrid1->Columns->Items[6]->Visible = false;
  DBGrid1->Columns->Items[7]->Visible = false;
  //Label1->Caption = DBGrid1->SelectedField->Text;
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::Button1Click(TObject *Sender)
{
 Label3->Caption = DBGrid1->SelectedField->Text;
 ShellExecute( 0, NULL, "cmd.exe", String("/C tracert "+Edit1->Text).c_str(), NULL, SW_SHOW);
 }
//---------------------------------------------------------------------------
 
void __fastcall TForm1::Button3Click(TObject *Sender)
{
  Label1->Caption = DBGrid1->SelectedField->Text;
  ShellExecute( 0, NULL, "C:\\putty.exe", String("-pw xx root@"+Label1->Caption).c_str(), NULL, SW_SHOW);
 
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::Button4Click(TObject *Sender)
{
  Label2->Caption = DBGrid1->SelectedField->Text;
  ShellExecute( 0, NULL, "cmd.exe", String("/C ping "+Label2->Caption).c_str(), NULL, SW_SHOW);
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::Button2Click(TObject *Sender)
{
 
  Label4->Caption = DBGrid1->SelectedField->Text;
  Form2->Show();
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::Button5Click(TObject *Sender)
{
    CppWebBrowser1->Navigate(L"http://172.23.48.198:8980/opennms/dashboard.jsp");
}
//---------------------------------------------------------------------------

Uni1.h

C++

//---------------------------------------------------------------------------
 
#ifndef Unit1H
#define Unit1H
//---------------------------------------------------------------------------
#include <Classes.hpp>
#include <Controls.hpp>
#include <StdCtrls.hpp>
#include <Forms.hpp>
#include <ADODB.hpp>
#include <DB.hpp>
#include <DBGrids.hpp>
#include <Grids.hpp>
#include <DBCtrls.hpp>
#include <ExtCtrls.hpp>
#include "SHDocVw_OCX.h"
#include <OleCtrls.hpp>
//---------------------------------------------------------------------------
class TForm1 : public TForm
{
__published:    // IDE-managed Components
        TADOTable *ADOTable1;
        TDataSource *DataSource1;
        TDBGrid *DBGrid1;
        TDBNavigator *DBNavigator1;
        TDBNavigator *DBNavigator2;
        TDBLookupComboBox *DBLookupComboBox1;
        TLabel *Label1;
        TButton *Button3;
        TLabel *Label2;
        TLabel *Label3;
        TButton *Button4;
        TButton *Button1;
        TEdit *Edit1;
        TButton *Button2;
        TLabel *Label4;
        TCppWebBrowser *CppWebBrowser1;
        TButton *Button5;
        void __fastcall Button3Click(TObject *Sender);
        void __fastcall Button4Click(TObject *Sender);
        void __fastcall Button1Click(TObject *Sender);
        void __fastcall Button2Click(TObject *Sender);
        void __fastcall Button5Click(TObject *Sender);
private:    // User declarations
        AnsiString ip;
public:     // User declarations
        __fastcall TForm1(TComponent* Owner);
};
//---------------------------------------------------------------------------
extern PACKAGE TForm1 *Form1;
//---------------------------------------------------------------------------
#endif

Uni2.cpp

C++

//---------------------------------------------------------------------------
 
#include <vcl.h>
#pragma hdrstop
 
#include "Unit1.h"
#include "Unit2.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma link "SHDocVw_OCX"
#pragma resource "*.dfm"
TForm2 *Form2;
//extern AnsiString ip;
//---------------------------------------------------------------------------
__fastcall TForm2::TForm2(TComponent* Owner)
        : TForm(Owner)
{
   Label1->Caption = Form1->Label4->Caption;
   CppWebBrowser1->Navigate(WideString("https://"+Form1->Label4->Caption));
}
//---------------------------------------------------------------------------

Unit2.h

C++

//---------------------------------------------------------------------------
 
#ifndef Unit2H
#define Unit2H
//---------------------------------------------------------------------------
#include <Classes.hpp>
#include <Controls.hpp>
#include <StdCtrls.hpp>
#include <Forms.hpp>
#include "SHDocVw_OCX.h"
#include <OleCtrls.hpp>
//---------------------------------------------------------------------------
class TForm2 : public TForm
{
__published:    // IDE-managed Components
        TCppWebBrowser *CppWebBrowser1;
        TLabel *Label1;
private:    // User declarations
        AnsiString ip;
public:     // User declarations
        __fastcall TForm2(TComponent* Owner);
};
//---------------------------------------------------------------------------
extern PACKAGE TForm2 *Form2;
//---------------------------------------------------------------------------
#endif

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

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

Опа.. в какой-то версии Builder'а нельзя было работать с визуальными объектами в конструкторе формы, попробуйте в FormCreate

Builder 6.0 ver 10.155 Enterprise Portable

ща попробую
FormCreate

@__bool · 04.02.2012, 19:05

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

СПАСИБо вам! сработало

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

ща попробую
FormCreate

Стоп. Так если задача решена, цель достигнута, значит все верно) зачем что то менять?

@solaris · 04.02.2012, 19:08 **[ТС]**

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

Стоп. Так если задача решена, цель достигнута, значит все верно) зачем что то менять?

сработала только с ссылкой на вэбсервер. С Формами и AnsiString вопрос открыт

@__bool · 04.02.2012, 19:18

Я же объяснил, что вариантов много, и уточнил:

В сообщении №2 самый простой способ. Пробуйте его.

Кажется я вас только запутал.

@solaris · 04.02.2012, 19:21 **[ТС]**

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

Я же объяснил, что вариантов много, и уточнил:

Это просто остаток неподчищенный, ваши варианты все испробовал

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

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

Я же объяснил, что вариантов много, и уточнил:

Кажется я вас только запутал.

НЕТ, я в теме

@__bool · 04.02.2012, 19:27

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

Кидайте проект сюда тогда. По-сути все что требуется - подключить хедер и все

Под "кинуть проект" подразумевалось кинуть архив с файлами проекта, а не код в теге c++

LK · 04.02.2012, 21:59

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

И LK туда же

куда-куда ЛК ? Вопрос был относительно чаров, насколько я помню, а не вашей гламурной идеи с двойными правыми слешами.

@__bool 288 / 229 / 27 Регистрация: 13.06.2010 Сообщений: 744
	04.02.2012, 18:45	13
	Сообщение от solaris Label1->Caption в Форме2 пустой печаль Опа.. в какой-то версии Builder'а нельзя было работать с визуальными объектами в конструкторе формы, попробуйте в FormCreate Добавлено через 3 минуты Сообщение от solaris СПАСИБо вам! сработало Сообщение от solaris это страничка мониторинга нашего внутреннего вебсервера А я то думаю, почему у меня к нему доступа нет.. 1

@solaris 2 / 2 / 0 Регистрация: 15.04.2010 Сообщений: 20
	04.02.2012, 19:08 [ТС]	16
	Сообщение от __bool Стоп. Так если задача решена, цель достигнута, значит все верно) зачем что то менять? сработала только с ссылкой на вэбсервер. С Формами и AnsiString вопрос открыт 0

@__bool 288 / 229 / 27 Регистрация: 13.06.2010 Сообщений: 744
	04.02.2012, 18:17	4
	В сообщении №2 самый простой способ. Пробуйте его. А в вашем последнем сообщении я не смог уловить логику Я так понимаю это попытка реализовать примерно то, что я сначала ответил(потом удалил) Это немного для другого случая.. Когда переменную объявленную в разделе private класса одного модуля требуется использовать в другом модуле Добавлено через 6 минут Если вы объявили AnsiString ip в разделе private заголовочного файла, она сразу становится доступной из любого метода класса. В вашем случае нет смысла потом в .cpp снова ее объявлять, ибо это разные переменные, друг от друга не зависящие, чтоб не было путаницы к одной из них придется обращаться ::ip(глобальная), а к другой только локально их методов класса в котором она объявлена 1

@__bool 288 / 229 / 27 Регистрация: 13.06.2010 Сообщений: 744
	04.02.2012, 19:05	15
	Сообщение от solaris СПАСИБо вам! сработало Сообщение от solaris ща попробую FormCreate Стоп. Так если задача решена, цель достигнута, значит все верно) зачем что то менять? 1

@__bool 288 / 229 / 27 Регистрация: 13.06.2010 Сообщений: 744
	04.02.2012, 19:18	17
	Я же объяснил, что вариантов много, и уточнил: В сообщении №2 самый простой способ. Пробуйте его. Кажется я вас только запутал. 1

@solaris 2 / 2 / 0 Регистрация: 15.04.2010 Сообщений: 20
	04.02.2012, 19:21 [ТС]	18
	Сообщение от __bool Я же объяснил, что вариантов много, и уточнил: Это просто остаток неподчищенный, ваши варианты все испробовал Добавлено через 43 секунды Сообщение от __bool Я же объяснил, что вариантов много, и уточнил: Кажется я вас только запутал. НЕТ, я в теме 0

@__bool 288 / 229 / 27 Регистрация: 13.06.2010 Сообщений: 744
	04.02.2012, 19:27	19
	Сообщение от __bool Кидайте проект сюда тогда. По-сути все что требуется - подключить хедер и все Под "кинуть проект" подразумевалось кинуть архив с файлами проекта, а не код в теге c++ 1

LK Заблокирован
	04.02.2012, 21:59	20
	Сообщение от __bool И LK туда же куда-куда ЛК ? Вопрос был относительно чаров, насколько я помню, а не вашей гламурной идеи с двойными правыми слешами. 0