Как объединить несколько задач для кнопки?

@WWWNuta · Регистрация: 08.10.2012

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

Всем Доброго времени суток!

Есть программа, которая при нажатии на кнопку копирует текст из Едита в определённое поле на веб-странице.
Кусочек кода:

C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
void __fastcall TForm1::Button1Click(TObject *Sender)
{
  String Name = "phone_code";
  String Data = Edit1->Text;
  TComInterface<IHTMLDocument2>          pDoc;
  TComInterface<IHTMLElementCollection>  pColl;
  TComInterface<IDispatch>               pTmpDisp;
  TComInterface<IHTMLInputElement>       pElement;
  TComInterface<IDispatch>               pDisp;
  if ( SUCCEEDED (CppWebBrowser1->Document->QueryInterface(IID_IHTMLDocument2, (LPVOID*)&pDoc)))    {
    if ( SUCCEEDED (pDoc->get_all(&pColl)))                 {
     if ( SUCCEEDED (pColl->item(TVariant(WideString(Name)), TVariant(0), &pDisp))) {
        pElement = pDisp;
        pElement->put_value(WideString(Data));
      }
   }
  }
}

Задача состоит в том, чтобы при нажатии на одну кнопку копировался текст:
1. Из Edit1 в поле Name = "phone_code",
2. Из Edit2 в поле Name = "phone_number",
3. Из Edit3 в поле Name = "code".
Пыталась по-разному менять код, то ошибки при нажатии кнопки выходили, то тупо не копировало, то комп висел

Подскажите, что нужно в коде поменять для кнопки, чтобы не создавать ещё батоны для других задач?

@Avazart · 09.10.2012, 05:04

Почему бы не написать метод как здесь Заполнение полей на сайте

@WWWNuta · 09.10.2012, 06:01 **[ТС]**

Как я понимаю здесь Заполнение полей на сайте тоже происходит одно действие: текст из Edit1 копируется в поле Name = "uin", а как и куда вставить остальные поля не понятно.
В последнем коде у меня ошибка:
[C++ Error] Unit1.cpp(35): E2316 'w_str' is not a member of 'AnsiString'

@Avazart · 09.10.2012, 06:06

Ну так там UnicodeString ( Builder2009 ) а не Ansi .... перепишите на метод как в вашем коде:

C++
1
pElement->put_value(WideString(Data));// Вместо Data.w_str()

А потом в кнопке

C++
1
2
3
4
5
6
7
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
  FillForm("phone_code",Edit1->Text);
  FillForm("phone_number",Edit2->Text);
  FillForm("code",Edit3->Text);
}

@WWWNuta · 09.10.2012, 07:07 **[ТС]**

Всё получилось!

Огромное СПАСИБО за помощь!!!!
Тема закрыта..

Новые блоги и статьи Все статьи Все блоги /
Перемещение выделенных строк ТЧ из одного документа в другой Maks 30.03.2026 Реализация из решения ниже выполнена на примере нетипового документа "ВыдачаОборудованияНаСпецтехнику" с единственной табличной частью "ОборудованиеИКомплектующие" разработанного в конфигурации КА2. . . .	Functional First Web Framework Suave DevAlt 30.03.2026 Sauve. IO Апнулись до NET10. Из зависимостей один пакет, работает одинаково хорошо как в режиме проекта так и в интерактивном режиме. из сложностей - чисто функциональный подход. Решил. . .	Автоматическое создание документа при проведении другого документа 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. В качестве источника данных. . .

@Avazart 8488 / 6155 / 615 Регистрация: 10.12.2010 Сообщений: 28,683 Записей в блоге: 30
	09.10.2012, 05:04
	Почему бы не написать метод как здесь Заполнение полей на сайте 0

@WWWNuta 0 / 0 / 0 Регистрация: 08.10.2012 Сообщений: 19
	09.10.2012, 06:01 [ТС]
	Как я понимаю здесь Заполнение полей на сайте тоже происходит одно действие: текст из Edit1 копируется в поле Name = "uin", а как и куда вставить остальные поля не понятно. В последнем коде у меня ошибка: [C++ Error] Unit1.cpp(35): E2316 'w_str' is not a member of 'AnsiString' 0

@WWWNuta 0 / 0 / 0 Регистрация: 08.10.2012 Сообщений: 19
	09.10.2012, 07:07 [ТС]
	Всё получилось! Огромное СПАСИБО за помощь!!!! Тема закрыта.. 0