Как передать значение 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 туда же

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

Новые блоги и статьи Все статьи Все блоги /
http://iceja.net/ сервер решения полиномов iceja 18.01.2026 Выкатила http:/ / iceja. net/ сервер решения полиномов (находит действительные корни полиномов методом Штурма). На сайте документация по API, но скажу прямо VPS слабенький и 200 000 полиномов. . .	Расчёт переходных процессов в цепи постоянного тока igorrr37 16.01.2026 / * Дана цепь постоянного тока с R, L, C, k(ключ), U, E, J. Программа составляет систему уравнений по 1 и 2 законам Кирхгофа, решает её и находит: токи, напряжения и их 1 и 2 производные при t = 0;. . .	Восстановить юзерскрипты Greasemonkey из бэкапа браузера damix 15.01.2026 Если восстановить из бэкапа профиль Firefox после переустановки винды, то список юзерскриптов в Greasemonkey будет пустым. Но восстановить их можно так. Для этого понадобится консольная утилита. . .	Сукцессия микоризы: основная теория в виде двух уравнений. anaschu 11.01.2026 https:/ / rutube. ru/ video/ 7a537f578d808e67a3c6fd818a44a5c4/
WordPad для Windows 11 Jel 10.01.2026 WordPad для Windows 11 — это приложение, которое восстанавливает классический текстовый редактор WordPad в операционной системе Windows 11. После того как Microsoft исключила WordPad из. . .	Classic Notepad for Windows 11 Jel 10.01.2026 Old Classic Notepad for Windows 11 Приложение для Windows 11, позволяющее пользователям вернуть классическую версию текстового редактора «Блокнот» из Windows 10. Программа предоставляет более. . .	Почему дизайн решает? Neotwalker 09.01.2026 В современном мире, где конкуренция за внимание потребителя достигла пика, дизайн становится мощным инструментом для успеха бренда. Это не просто красивый внешний вид продукта или сайта — это. . .	Модель микоризы: классовый агентный подход 3 anaschu 06.01.2026 aa0a7f55b50dd51c5ec569d2d10c54f6/ O1rJuneU_ls https:/ / vkvideo. ru/ video-115721503_456239114

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