Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > C++ Builder > Помогите разобраться

Автор: Allexander 1.7.2006, 21:42

Точнее помогите перевести с Delphi на C++Builder вот такой код

Код


procedure TForm1.SpeedButton5Click(Sender: TObject);
var 
  WordApp: _Application; 
  Dlg: Dialog; 
begin
  if re.Text='' then exit;
  WordApp := CoWordApplication.Create;
  WordApp.Documents.AddOld(EmptyParam, EmptyParam); 
  WordApp.Visible := True; 
  Dlg := WordApp.Dialogs.Item(wdDialogToolsCreateEnvelope); 
  OleVariant(Dlg).AddrText :=remindex+#13+remstreet;
  Dlg.Show(EmptyParam);
end;

Автор: 586 2.7.2006, 22:24

Код

void __fastcall TForm1::Button1Click(TObject *Sender)
{
  _Application *WordApp;
  Dialog *Dlg;

  if re.Text.IsEmpty() return;
  CoWordApplication::Create(&WordApp);
  WordApp->Documents->AddOld(EmptyParam, EmptyParam);
  WordApp->Visible=true;
  Dlg=WordApp->Dialogs->Item(wdDialogToolsCreateEnvelope);
  // ??? OleVariant(Dlg).AddrText :=remindex+#13+remstreet;
  Dlg->Show(EmptyParam);
}

Перевёл все что смог.
Неасилил 11 строку: OleVariant(Dlg).AddrText :=remindex+#13+remstreet;
ОБъясни подробнее, как она работает, может мереведу.

Автор: Allexander 3.7.2006, 08:12

OleVariant(Dlg).AddrText :=remindex+#13+remstreet;
remindex и remstreet переменные типа String они передают в открытый диалог печати конверта значения адрес и индехкс
тоест эта строка заполняет даннные об адресате в конверте

Автор: 586 4.7.2006, 08:44

OleVariant(Dlg).AddrText :=remindex+#13+remstreet;

Каким образом, Dlg взаимодействует с (remindex+#13+remstreet)?
Как понимать OleVariant(Dlg).AddrText? Dlg конвертируется, или String(remindex+#13+remstreet)?

Автор: Allexander 4.7.2006, 13:01

Да в том и проблема что и сам непонимаю нашел пример кода на Delphi как это делается а в C++Bilder Немогу перевести еслиб там хоть описание было бы smile

Автор: Allexander 4.7.2006, 22:27

AddrText это свойство Worda строка ввода поля адресата. а remindex,remstreet это посто строки

Автор: Nasgool 11.7.2006, 10:06

Я или тупой или чего то непонимаю , был у меня C++Builder6 - на нем я без проблем делал файлы командной строки (писал код с книги и компилировал).... потом то дело забросил ...
Поставил BUILDERX и решил тоже самое делать - только почему - то ничего не выходит
Поставил исходники библиотеки QT там есть готовые файлы форматы Pro/ H/ CPP/, открываю их , а там такое при компиляции ........... smile

"main.cpp": ../../../../000/Process/main.cpp qapplication.h: No such file or directory at line 10, column 26
In file included from ../../../../000/Process/main.cpp:11:
"Shell.h": ../../../../000/Process/Shell.h qlineedit.h: No such file or directory at line 13, column 23
"Shell.h": ../../../../000/Process/Shell.h qtextedit.h: No such file or directory at line 14, column 23
"Shell.h": ../../../../000/Process/Shell.h qlabel.h: No such file or directory at line 15, column 20
"Shell.h": ../../../../000/Process/Shell.h qpushbutton.h: No such file or directory at line 16, column 25
"Shell.h": ../../../../000/Process/Shell.h parse error before `{' token at line 22
"Shell.h": ../../../../000/Process/Shell.h syntax error before `*' token at line 26
"Shell.h": ../../../../000/Process/Shell.h parse error before `(' token at line 35
"Shell.h": ../../../../000/Process/Shell.h `readyReadStdout' was not declared in this at line 46
и короче все это в том-же духе... smile

Автор: BreakPointMAN 11.7.2006, 12:12

Nasgool, ознакомься с http://forum.vingrad.ru/index.php?act=SR&f=27.

Цитата

Правила форума, которые обязаны ВСЕ соблюдать:
...
10) Запрещается создание сообщения с несколькими вопросами. На каждый вопрос должна создаваться отдельная тема. В случае возникновения таких тем, администрация форума оставляет за собой право изменить текст сообщения, удалить его или закрыть тему.

Что касается непосредственно твоего вопроса, ответь: что именно ты пытаешься компилировать? куда ты разместил все эти файлы? установил ли соответствующие пути в настройках компилятора?