powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Форумы / C++ [игнор отключен] [закрыт для гостей] / 1C (очень прошу помогите....)
14 сообщений из 14, страница 1 из 1
1C (очень прошу помогите....)
    #34217288
RazBoyNik
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Только не нужно отправлять в поиск... я уже все варианты перепробывал!
Как подключится через ОЛЕ 1С?

Делфи:
Var
ResOpen : integer;
begin
Ole1C := CreateOleObject(Edit1.Text);
ResOpen:=Ole1C.Initialize(Ole1C.RMTrade, Edit2.Text, '');
end;

Как это сделать на Билдере?

int ResOpe;//если верить исходнику....
Variant Ole1C;
Ole1C = CreateOleObject("V77.Application");

Все Ок вот только
Ole1C.Initialize(Ole1C.RMTrade, Edit2.Text, '');
непонимается.... пробывал ResOpen = Ole1C.Exec(Procedure("RMTrade"));
значение ResOpen становится true.(Хотя это может быть и неправильно)
в диспетчере задач появляется 1С.

Помогите....
...
Рейтинг: 0 / 0
1C (очень прошу помогите....)
    #34217322
Фотография JibSkeart
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
попробуй так .

Код: plaintext
1.
2.
3.
4.
5.
  Variant Ole1C,RMTrade;
  Ole1C = CreateOleObject("V77.Application");
  PropertyGet Get_RMTrade("RMTrade");
  RMTrade = Ole1C.Exec(Get_RMTrade);
  Ole1C.Exec(Function("Initialize")<<RMTrade<<Filename.c_str());
...
Рейтинг: 0 / 0
1C (очень прошу помогите....)
    #34221903
RazBoyNik
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Очень выручил... сделаю кошелек WebMoney обязательно
придет сума(только скажи свой или способ переслать деньги).....
...
Рейтинг: 0 / 0
1C (очень прошу помогите....)
    #34223337
RazBoyNik
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Ole1C.Exec(Function("Initialize")<<RMTrade<<Filename.c_str()<<"");
Так правильней будет...
"EvalExpr" неполучается, но думаю разберусь...
...
Рейтинг: 0 / 0
1C (очень прошу помогите....)
    #34223469
RazBoyNik
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Variant SprOrg = Ole1C.Exec(Function("EvalExpr")<<"СоздатьОбъект(\"Справочник.Контрагенты\")");
SprOrg.Exec(Function("ВыбратьЭлементы")<<1);
SprOrg.Exec(Function("ПолучитьЭлемент"))>0;
Variant Tip= SprOrg.OlePropertyGet("ВидКонтрагента");
Variant Res=Tip.OleFunction("Идентификатор");
AnsiString Str=Res;
Edit2->Text=Str;

Выдает: "Variant does not reference an automation object". в первой строке -
дальше естественно никак.
что это значит и как решить? если не трудно...!
Если бы мог пивом угостил!!!
...
Рейтинг: 0 / 0
1C (очень прошу помогите....)
    #34223766
Фотография JibSkeart
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
А как бы это выглядело на делфях ? :)
...
Рейтинг: 0 / 0
1C (очень прошу помогите....)
    #34228701
RazBoyNik
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
:)Логично... но я в Делфях почти 0;
Странно, но такие примеры лежат в инете.
Люди говорят "работает", может у меня чёто с 1С.?
Пробывал разные варианты но результат тот-же.
Через CreateObject пробивал...-безрезультатно.
Надежда на форум и на словянский народ. :)
...
Рейтинг: 0 / 0
1C (очень прошу помогите....)
    #34228833
Фотография JibSkeart
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
а я только наугад могу предположить (так как нету у меня 1C)

а не в этом ли дело ?

"СоздатьОбъект( \\ "Справочник.Контрагенты \\ ")");
...
Рейтинг: 0 / 0
1C (очень прошу помогите....)
    #34235049
RazBoyNik
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Думаю нет ...
Но попробую после празников!!!
Кстати с Новым Годом!!!
...
Рейтинг: 0 / 0
1C (очень прошу помогите....)
    #34372620
RazBoyNik
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Подключиться получилось... а вот добраться к
Журналы.Банк
неполучается! Может кто сталкивался или знает как?
...
Рейтинг: 0 / 0
1C (очень прошу помогите....)
    #34565189
Aynur
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
RazBoyNikПодключиться получилось... а вот добраться к
Журналы.Банк
неполучается! Может кто сталкивался или знает как?

попробуй так:
Код: plaintext
1.
AnsiString sCommand = "ОткрытьФорму(\"Журнал.ПлатежныеДокументы.ФормаСписка\")";
Variant vJurBank = New1c->Ole1C.OleFunction("EvalExpr", sCommand.c_str());
...
Рейтинг: 0 / 0
1C (очень прошу помогите....)
    #34697765
RazBoyNik
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Извините за отсутсвие... возникли некоторые проблемы...

Aynur - спасибо за помощь! обязательно попробую.

Но наверное придется отказатся от этой идеи. Дело в том что версия 1С не сетевая, компания опасается утечки информации и потому розместила ее на отдельном компе(доступ к базе 1С закрыт). И скорее всего я думаю нужно делать обратную связь: 1С to BuilderC.
Тупо брать записи кидать на сервер в свою базу, или временный файл ТЕМП.ДБФ (если нет возможности в ДБ скинуть...).

Как вам это? Если есть идеи ..."будьте ласкаві"... кидайте!
...
Рейтинг: 0 / 0
1C (очень прошу помогите....)
    #34705312
mrbus
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Зачем, можно получить доступ к приложению, написанному на билдере, из 1С (кстати говоря, разницы не вижу, что из билдера в 1С, что наоборот).
Примеры.
В 7.7:
Эксел = СоздатьОбъект ("Excel.Application");
В 8.0:
Эксел = Новый COMОбъект ("Excel.Application");
...
Рейтинг: 0 / 0
1C (очень прошу помогите....)
    #34705662
RazBoyNik
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
mrbusЗачем, можно получить доступ к приложению, написанному на билдере, из 1С (кстати говоря, разницы не вижу, что из билдера в 1С, что наоборот).

Компьютер на котором 1С в сети, но сама нет.
C 1C я смогу кинуть на сервер данные, а от туда вытянуть в свое приложение.

Вот только как луше будет? Сразу в мои ДБ-файлы(Paradox), или через временный файл...?
...
Рейтинг: 0 / 0
14 сообщений из 14, страница 1 из 1
Форумы / C++ [игнор отключен] [закрыт для гостей] / 1C (очень прошу помогите....)
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]