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

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

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

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

C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
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++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
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++
1
2
3
4
5
6
7
8
9
10
11
#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++
1
2
3
4
5
6
void __fastcall TForm1::Button2Click(TObject *Sender)
{
 
  Label4->Caption = DBGrid1->SelectedField->Text;
  ip = Label4->Caption;
  Form2->Show();

Uni2.cpp

C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
#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++
1
2
3
4
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 *')

cpp_developer · 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++
1
2
3
4
5
6
7
8
9
10
11
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++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
#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++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
#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++
1
2
3
4
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++
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
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
//---------------------------------------------------------------------------
 
#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++
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
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
//---------------------------------------------------------------------------
 
#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++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
//---------------------------------------------------------------------------
 
#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++
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
//---------------------------------------------------------------------------
 
#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++

cpp_developer · 04.02.2012, 21:59

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

И LK туда же

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

Новые блоги и статьи Все статьи Все блоги /
Автоматическое создание документа при проведении другого документа Maks 29.03.2026 Реализация из решения ниже выполнена на нетиповых документах, разработанных в конфигурации КА2. Есть нетиповой документ "ЗаявкаНаРемонтСпецтехники" и нетиповой документ "ПланированиеСпецтехники". В. . .	Настройка движения справочника по регистру сведений Maks 29.03.2026 Решение ниже реализовано на примере нетипового справочника "ТарифыМобильнойСвязи" разработанного в конфигурации КА2, с целью учета корпоративной мобильной связи в коммерческом предприятии. . . .	Автозаполнение реквизита при выборе элемента справочника Maks 27.03.2026 Программный код из решения ниже на примере нетипового документа "ЗаявкаНаРемонтСпецтехники" разработанного в конфигурации КА2. При выборе "Спецтехники" (Тип Справочник. Спецтехника), заполняется. . .	Сумматор с применением элементов трёх состояний. Hrethgir 26.03.2026 Тут. https:/ / fips. ru/ EGD/ ab3c85c8-836d-4866-871b-c2f0c5d77fbc Первый документ красиво выглядит, но без схемы. Это конечно не даёт никаких плюсов автору, но тем не менее. . . всё может быть. . .
Автозаполнение реквизитов при создании документа Maks 26.03.2026 Программный код из решения ниже размещается в модуле объекта документа, в процедуре "ПриСозданииНаСервере". Алгоритм проверки заполнения реализован для исключения перезаписи значения реквизита,. . .	Команды формы и диалоговое окно Maks 26.03.2026 1. Команда формы "ЗаполнитьЗапчасти". Программный код из решения ниже на примере нетипового документа "ЗаявкаНаРемонтСпецтехники" разработанного в конфигурации КА2. В качестве источника данных. . .	Кому нужен AOT? DevAlt 26.03.2026 Решил сделать простой ланчер Написал заготовку: dotnet new console --aot -o UrlHandler var items = args. Split(":"); var tag = items; var id = items; var executable = args;. . .	Отправка уведомления на почту при создании или изменении элементов справочника Maks 24.03.2026 Программная отправка письма электронной почты на примере типового справочника "Склады" в конфигурации БП3. Перед реализацией необходимо выполнить настройку системной учетной записи электронной. . .

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