Форум программистов, компьютерный форум, киберфорум
C++ Builder
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 4.80/5: Рейтинг темы: голосов - 5, средняя оценка - 4.80
0 / 0 / 0
Регистрация: 06.04.2013
Сообщений: 4

Как передать значение "IdHTTP1" из одной формы во вторую

08.04.2013, 00:42. Показов 986. Ответов 1
Метки нет (Все метки)

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

В общем, есть две формы, в одной происходит авторизация на сайт (тут все работает отлично) :

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
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm2 *Form2;
TIdHTTP *IdHTTP1 = new TIdHTTP;
TIdCookieManager *IdCookieManager1 = new TIdCookieManager;
TStringList *SL= new TStringList;
//---------------------------------------------------------------------------
 
__fastcall TForm2::TForm2(TComponent* Owner)
    : TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TForm2::Button1Click(TObject *Sender)
{
    IdHTTP1->CookieManager= IdCookieManager1;
    IdHTTP1->AllowCookies= true;
    IdHTTP1->HandleRedirects=true;
 
    String Url = "http://clubnika.com.ua/home/";
    IdHTTP1->Request->Host = "clubnika.com.ua";
    IdHTTP1->Request->UserAgent = "Mozilla/5.0 (Windows NT 6.1; rv:20.0) Gecko/20100101 Firefox/20.0";
    IdHTTP1->Request->Accept = "text/html,application/xhtml+xml,application/xml;q=0.9,*/*;q=0.8";
    IdHTTP1->Request->AcceptLanguage = "uk,ru;q=0.8,en-us;q=0.5,en;q=0.3";
    IdHTTP1->Request->AcceptEncoding = "gzip, deflate";
    IdHTTP1->Request->Referer = "http://clubnika.com.ua/home/";
    IdHTTP1->Request->Connection = "keep-alive";
 
    SL->Add("country=ua");
    SL->Add("login="+Edit1->Text);
    SL->Add("password="+Edit2->Text);
    SL->Add("signin=%D0%92%D0%BE%D0%B9%D1%82%D0%B8");
 
    try
    {
        IdHTTP1->Post(Url,SL);
    }
 
    catch(EIdException &E)
    {
       ShowMessage("Ошибка:\n\""+E.Message+"\"");
    };
 
    SL->Clear();
 
    if(IdHTTP1->Response->ResponseText == "HTTP/1.1 200 OK")
    {
        ShowMessage("Неверный логин/пароль");
    }
    else
    {
        Form1->Visible = true;
        Form2->Visible = false;
    }
}
После успешной авторизации открывается форма для работы с функциями программы.
Например, отправка сообщения:

C++
1
2
3
4
5
6
7
8
9
10
void __fastcall TForm1::Button1Click(TObject *Sender)
{
    String Url1 = "http://clubnika.com.ua/mail/?id=80562";
    IdHTTP1->Request->Referer = "http://clubnika.com.ua/mail/?id=80562";
 
    SL1->Add("message="+ TIdURI::PathEncode(Memo1->Text));
 
    IdHTTP1->Post(Url1,SL1);
    SL1->Clear();
}
Вопрос: Как передать значение "IdHTTP1" из одной формы во вторую ?
0
cpp_developer
Эксперт
20123 / 5690 / 1417
Регистрация: 09.04.2010
Сообщений: 22,546
Блог
08.04.2013, 00:42
Ответы с готовыми решениями:

Как передать значение с одной формы на другой
В общем есть 3 формы: -авторизация -меню -теория с начало пользователь авторизуется и если он ввел пароль администратора то...

Как передать значение из одной формы в другую?
Столкнулся с очередной проблемой В одной форме у меня проходит тест, подсчитывается набранный бал. Затем запускается следующая форма и...

Как передать значение из одной формы в другую?
Помогите, все обыскал и не смог сделать. У меня есть значение(2 переменные одного типа: verno и neverno) в одной форме и мне надо передать...

1
 Аватар для ijonhson
47 / 47 / 15
Регистрация: 09.03.2011
Сообщений: 584
09.04.2013, 06:42
На одной из форм объявить глобально TIdHTTP * чтоб везде видно было + спецификатор extern если правильно понял
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
raxper
Эксперт
30234 / 6612 / 1498
Регистрация: 28.12.2010
Сообщений: 21,154
Блог
09.04.2013, 06:42
Помогаю со студенческими работами здесь

Как передать значение из одной формы в другую?
В общем пишу программу с помощью Windows Form, в первой форме задаётся значение,после чего открывается вторая форма где это значение...

Как передать значение переменной из одной формы в другую?
У меня есть две формы. на Form1 есть textbox1, на form2 есть label1. Подскажите, пожалуйста, как из textbox1 перенести текст в label1?

Как передать значение переменной из одной формы в другую
Помогите пжлста!Не могу передать значение переменной из одной формы в другую.Пробовал так: В первой форме откуда передаю переменную. ...

Как передать значение переменной из одной формы в другую?
Здравствуйте. Кто знает как реализовать передачу параметра переменной QString из 1й формы во вторую. Нужно для передачи имени таблицы. Не...

Как передать значение переменной из одной формы в другую?
Доброго времени суток! Требуется переменную типа IXMLNode, создаваемую в одной форме использовать в другой... Пробовал способ: extern...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Новые блоги и статьи
Настройки VS Code
Loafer 13.04.2026
{ "cmake. configureOnOpen": false, "diffEditor. ignoreTrimWhitespace": true, "editor. guides. bracketPairs": "active", "extensions. ignoreRecommendations": true, . . .
Оптимизация кода на разграничение прав доступа к элементам формы
Maks 13.04.2026
Алгоритм из решения ниже реализован на нетиповом документе, разработанного в конфигурации КА2. Задачи, как таковой, поставлено не было, проделанное ниже исключительно моя инициатива. Было так:. . .
Контроль заполнения и очистка дат в зависимости от значения перечислений
Maks 12.04.2026
Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеПерсонала", разработанного в конфигурации КА2. Задача: реализовать контроль корректности заполнения дат назначения. . .
Архитектура слоя интернета для сервера-слоя.
Hrethgir 11.04.2026
В продолжение https:/ / www. cyberforum. ru/ blogs/ 223907/ 10860. html Знаешь что я подумал? Раз мы все источники пишем в голове ветки, то ничего не мешает добавить в голову такой источник, который сам. . .
Подстановка значения реквизита справочника в табличную часть документа
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. Задача: запретить редактирование документа, если он открыт у другого пользователя. / / . . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru