Как из С# подключиться к 1С?
раньше делал через OLE (VFoxPro, VBasik).

Здравствуйте, abdula, Вы писали:

A>Как из С# подключиться к 1С?
A>раньше делал через OLE (VFoxPro, VBasik).
Соди на http://www.gotdotnet.ru/ там есть пример.

S> Соди на http://www.gotdotnet.ru/ там есть пример.
это не то
запускаеться мой *.exe, он лезет в 1С и грузит себе все необходимое из нее, после небольшой обработки, выгружаем в 1С.
в данном случае юзеру не нать запускать 1С.

Здравствуйте, abdula, Вы писали:

S>> Соди на http://www.gotdotnet.ru/ там есть пример.
A>это не то
A>запускаеться мой *.exe, он лезет в 1С и грузит себе все необходимое из нее, после небольшой обработки, выгружаем в 1С.
A>в данном случае юзеру не нать запускать 1С.

Посмотри v77websrv или я тебе ее скину. Честно не промню где взял. Но принцип обычный, на рефлексии.

lateBoundType=Type.GetTypeFromProgID("v77S.Application");
v77=Activator.CreateInstance(lateBoundType);
arg[0]=lateBoundType.InvokeMember("RMTrade",BindingFlags.Public | BindingFlags.InvokeMethod | BindingFlags.Static,null,v77,null);
arg[1]=@"/D"+v77base+" /N"+user+" /P"+password;
arg[2]="NO_SPLASH_SHOW";



lateBoundType.InvokeMember("Initialize", BindingFlags.Public | BindingFlags.InvokeMethod | BindingFlags.Static, null, v77,arg);
object[] arg2=new object[]{@""+v77object};

object getv77object=lateBoundType.InvokeMember("CreateObject", BindingFlags.Public | BindingFlags.InvokeMethod | BindingFlags.Static, null,v77, arg2);
getv77object.GetType().InvokeMember("ВыбратьЭлементы", BindingFlags.Public | BindingFlags.InvokeMethod | BindingFlags.Static, null, getv77object,null);


while(((double)getv77object.GetType().InvokeMember("ПолучитьЭлемент", BindingFlags.Public | BindingFlags.InvokeMethod | BindingFlags.Static, null, getv77object,null))==1)

{

myDataRow = myDataTable.NewRow();
for (int i=0; i<param.Length; i++)
{
myDataRow[(param[i].ToString())]=getv77object.GetType().InvokeMember((param[i].ToString()), BindingFlags.GetProperty, null,getv77object,null);

}
myDataTable.Rows.Add(myDataRow);

}


Marshal.ReleaseComObject(getv77object);
Marshal.ReleaseComObject(v77);
return myDataSet;

}

S> Посмотри v77websrv или я тебе ее скину. Честно не промню где взял. Но принцип обычный, на рефлексии.
спасибо большое, у меня ее нет, проверь свою почту указанную на здешней регистации, там мой рабочий ящик, пропускная способность 2метра

Здравствуйте, abdula, Вы писали:

S>> Посмотри v77websrv или я тебе ее скину. Честно не промню где взял. Но принцип обычный, на рефлексии.
A>спасибо большое, у меня ее нет, проверь свою почту указанную на здешней регистации, там мой рабочий ящик, пропускная способность 2метра
Лови отослал. 68 кб.
Удачи.

Здравствуйте, Serginio1, Вы писали:

А не проще ли использовать VB.NET?

Здравствуйте, al, Вы писали:

al>Здравствуйте, Serginio1, Вы писали:

al>А не проще ли использовать VB.NET?
Я не пользуюсь. Честно говоря использую прямой досту к БД 1С.

Здравствуйте, al, Вы писали:

al>Здравствуйте, Serginio1, Вы писали:

al>А не проще ли использовать VB.NET?
Да кстати на метаданных 1С очень легко строится объектная обертка вокруг "объектов" 1С и уже работаешь с типизированными объектами в отличии от VB.NET

Здравствуйте, Serginio1, Вы писали:
S> Лови отослал. 68 кб.
S> Удачи.
Спасибо большое, получил.
Щас буду юзать

Здравствуйте, abdula, Вы писали:
A>Как из С# подключиться к 1С?

    string BaseCatalog = @"C:\1C\Base1\",
        User = "Auto",
        Pass = "";
        //OneUserOnly = " /m",
        //WithOutSplash = "NO_SPLASH_SHOW";

    object [] arg = new object[3];
    Type lateBoundType = Type.GetTypeFromProgID("v77S.Application");
    object v77 = Activator.CreateInstance(lateBoundType);
    //Initialize
    arg[0] = lateBoundType.InvokeMember("RMTrade", BindingFlags.Public | BindingFlags.InvokeMethod | BindingFlags.Static, null, v77, null);
    arg[1] = @"/D"+BaseCatalog+" /N"+User+" /P"+Pass;//+OneUserOnly;
    arg[2] = "";//WithOutSplash;
    lateBoundType.InvokeMember("Initialize", BindingFlags.Public | BindingFlags.InvokeMethod | BindingFlags.Static, null, v77, arg);
    //EvalCreation
    object [] arg1 = new object[] {"ProcessCountriesList()"};
    lateBoundType.InvokeMember("EvalExpr", BindingFlags.Public | BindingFlags.InvokeMethod | BindingFlags.Static, null, v77, arg1);

    //before exit
    System.Runtime.InteropServices.Marshal.ReleaseComObject(v77);

Данный пример вызывает 1С 7.7 Торговля SQL, запускает функцию из глобального модуля ProcessCountriesList() и выходит. Далее — обточить напильником по необходимости.

Здравствуйте, Vladosha, Вы писали:
V> string BaseCatalog = @"C:\1C\Base1\",
V> User = "Auto",
V> Pass = "";
V> //OneUserOnly = " /m",
V> //WithOutSplash = "NO_SPLASH_SHOW";

V> object [] arg = new object[3];
V> Type lateBoundType = Type.GetTypeFromProgID("v77S.Application");
V> object v77 = Activator.CreateInstance(lateBoundType);
V> //Initialize
V> arg[0] = lateBoundType.InvokeMember("RMTrade", BindingFlags.Public | BindingFlags.InvokeMethod | BindingFlags.Static, null, v77, null);
V> arg[1] = @"/D"+BaseCatalog+" /N"+User+" /P"+Pass;//+OneUserOnly;
V> arg[2] = "";//WithOutSplash;
V> lateBoundType.InvokeMember("Initialize", BindingFlags.Public | BindingFlags.InvokeMethod | BindingFlags.Static, null, v77, arg);
V> //EvalCreation
V> object [] arg1 = new object[] {"ProcessCountriesList()"};
V> lateBoundType.InvokeMember("EvalExpr", BindingFlags.Public | BindingFlags.InvokeMethod | BindingFlags.Static, null, v77, arg1);

V> //before exit
V> System.Runtime.InteropServices.Marshal.ReleaseComObject(v77);
V>[/c#]
V>Данный пример вызывает 1С 7.7 Торговля SQL, запускает функцию из глобального модуля ProcessCountriesList() и выходит. Далее — обточить напильником по необходимости.

напильником не обтачиваеться
object [] arg1 = new object[] {"глЕстьРеквизитШапки()", "", ""};

lateBoundType.InvokeMember("ExecuteBach", BindingFlags.Public | BindingFlags.InvokeMethod | BindingFlags.Static, null, v77, arg1);
на этой строке выкидывает...

в 1С:
Функция глЕстьРеквизитШапки(ИмяРеквизита, ВидДокумента) Экспорт

Если ПустоеЗначение(ИмяРеквизита) = 1 Тогда
Возврат 0;

ИначеЕсли Метаданные.ОбщийРеквизитДокумента(ИмяРеквизита).Выбран() = 1 Тогда
Возврат 1;

ИначеЕсли ПустоеЗначение(ВидДокумента) = 1 Тогда
Возврат 0;

ИначеЕсли Метаданные.Документ(ВидДокумента).РеквизитШапки(ИмяРеквизита).Выбран() = 1 Тогда
Возврат 1;

Иначе
Возврат 0;
КонецЕсли;

КонецФункции

стою на асфальте я в лыжи обутый ...

Люди, все работает!!!
на будущее:
если рабочий каталог базы 1С: C:\1с\FSBUCH
То в С# его так и пишите, такие фишки как: c:\1C\FSbuch не прокатят (утро вечера мудренее )
string sPach = @"/DC:\1с\FSBUCH /N";

Ребята, спасибо Вам за примеры, без них долго сам разбирался.

Здравствуйте, abdula, Вы писали:

A>напильником не обтачиваеться


A>lateBoundType.InvokeMember("ExecuteBach", BindingFlags.Public | BindingFlags.InvokeMethod | BindingFlags.Static, null, v77, arg1);
A>на этой строке выкидывает...

A>в 1С:
A>Функция глЕстьРеквизитШапки(ИмяРеквизита, ВидДокумента) Экспорт


A>стою на асфальте я в лыжи обутый ...
В первых ExecuteBach это вызов процедуры. Зачем 3 аргумента, если нужен 1.
Применяй напрямую вызов глобальной функции 1С помеченной как экспорт.
A>object [] arg1 = new object[] { "", ""};
lateBoundType.InvokeMember("глЕстьРеквизитШапки", BindingFlags.Public | BindingFlags.InvokeMethod | BindingFlags.Static, null, v77, arg1);
A>на этой строке выкидывает...

или object [] arg1 = new object[] {"глЕстьРеквизитШапки(""""","""")"};
A>lateBoundType.InvokeMember("EvalExpr", BindingFlags.Public | BindingFlags.InvokeMethod |

У меня в 1С так:

Функция ProcessCountriesList() Экспорт
    //Очистить справочник стран
    Спр = СоздатьОбъект("Справочник.Страны");
    Спр.ВыбратьЭлементы();
    Пока Спр.ПолучитьЭлемент()=1 Цикл
        Спр.Удалить(1);
        Спр.ВыбратьЭлементы();
    КонецЦикла;

    Возврат 1;

КонецФункции

Название функции по-английски, чтоб вопросов лишних не возникало. Насчет параметров:
V>> object [] arg1 = new object[] {"ProcessCountriesList()"};
V>> lateBoundType.InvokeMember("EvalExpr", BindingFlags.Public | BindingFlags.InvokeMethod | BindingFlags.Static, null, v77, arg1);
В моем случае параметров нет, подозреваю что в твоем случае нужно получить некую строку для вызова, типа "<имя_функции>(<параметр1>,...)" и передавать ее при создании arg1.

A>object [] arg1 = new object[] {"глЕстьРеквизитШапки()", "", ""};
A>lateBoundType.InvokeMember("ExecuteBach", BindingFlags.Public | BindingFlags.InvokeMethod | BindingFlags.Static, null, v77, arg1);
A>на этой строке выкидывает...
Что такое ExecuteBach??? Я такой команды у 1C не знаю. Вот EvalExpr, означает выполнить команду, переданную в строке. В принципе вместо этого может быть любая команда 1С, но для уменьшения вызывающего кода и кол-вов вызовов 1С через Reflection, я писал часть обработчика в 1С и дергал одну единственную функцию. Можно даже пойти дальше — через C# дернуть 1С, а она в свою очередь создает COM-объект или делает что угодно. Просто большое кол-во вызовов через OLE (как пишут в 1С) нередко приводит ее в ступор, что она перестает отвечать на запросы. Из-за этого большинство интеграторов механизм обмена данными между конфигурациями часто делают через файл, а не через OLE (т.е. COM). Не знаю что будет в 1С 8.0, но явно не намного лучше

Короче предлагаю закрыть тему про 1С, т.к. это форум про .Net.

A>стою на асфальте я в лыжи обутый ...
Скоро зима

Здравствуйте, Vladosha, Вы писали:

V>Короче предлагаю закрыть тему про 1С, т.к. это форум про .Net.

A>>стою на асфальте я в лыжи обутый ...
V>Скоро зима
А чо це то ке НЕТ.

Здравствуйте, Vladosha, Вы писали:

V>Не знаю что будет в 1С 8.0, но явно не намного лучше

Не, в 8-ке с дот нетом все нормально — если использовать ComConnection,

или WinForms контрол в форму v8 засунуть. Правда чего то у меня из-за контрола 8-ка не выгружается, зараза

Здравствуйте, abdula, Вы писали:

A>Люди, все работает!!!
A>на будущее:
A>если рабочий каталог базы 1С: C:\1с\FSBUCH
A>То в С# его так и пишите, такие фишки как: c:\1C\FSbuch не прокатят (утро вечера мудренее )
A>string sPach = @"/DC:\1с\FSBUCH /N";

A>Ребята, спасибо Вам за примеры, без них долго сам разбирался.

А как это все на вб.нет сделать

Здравствуйте, Serginio1, Вы писали:

S>Здравствуйте, abdula, Вы писали:

S>>> Посмотри v77websrv или я тебе ее скину. Честно не промню где взял. Но принцип обычный, на рефлексии.
A>>спасибо большое, у меня ее нет, проверь свою почту указанную на здешней регистации, там мой рабочий ящик, пропускная способность 2метра
S> Лови отослал. 68 кб.
S> Удачи.

Прошу прощение за вклинивание. Скажите плиз что такое v77websrv и где его можна взять. Еще интересует есть ли у кого пример работы с БД 1С из дот нет. У меня проблема с кодировкой кириллицы. Еще интересует как получить возвращаемое значение функции 1С используя кода приведенный вами ниже:

object [] arg1 = new object[] {"ProcessCountriesList()"};
lateBoundType.InvokeMember("EvalExpr", BindingFlags.Public | BindingFlags.InvokeMethod | BindingFlags.Static, null, v77, arg1);

Здравствуйте, ablazhko, Вы писали:

A>Здравствуйте, Serginio1, Вы писали:

S>>Здравствуйте, abdula, Вы писали:

S>>>> Посмотри v77websrv или я тебе ее скину. Честно не промню где взял. Но принцип обычный, на рефлексии.
A>>>спасибо большое, у меня ее нет, проверь свою почту указанную на здешней регистации, там мой рабочий ящик, пропускная способность 2метра
S>> Лови отослал. 68 кб.
S>> Удачи.

A>Прошу прощение за вклинивание. Скажите плиз что такое v77websrv и где его можна взять. Еще интересует есть ли у кого пример работы с БД 1С из дот нет. У меня проблема с кодировкой кириллицы. Еще интересует как получить возвращаемое значение функции 1С используя кода приведенный вами ниже:

A>object [] arg1 = new object[] {"ProcessCountriesList()"};
A> lateBoundType.InvokeMember("EvalExpr", BindingFlags.Public | BindingFlags.InvokeMethod | BindingFlags.Static, null, v77, arg1);


Посмотри
http://1c.proclub.ru/modules/mydownloads/personal.php?cid=81&amp;lid=2710
http://www.erp-volga.com/hare/add-in/addin.websrv.html
http://gzip.rsdn.ru/article/dotnet/cs1c.xml

Автор(ы): Алексей Столповских
Дата: 20.11.2004
Данная статья описывает технологию создания COM+-компонента для 1С на C#. Код компонента был написан с использованием Microsoft Visual Studio.NET 2003, классов Microsoft .NET Framework 1.1 и протестирован на операционной системе Windows Server 2003 System.

http://www.gotdotnet.ru/LearnDotNet/NETFramework/589.aspx

Сейчас непомню Посмотри перегруженный InvokeMember где передается массив индексов возвращаемых значений

Здравствуйте, ablazhko, Вы писали:


Посмотри еще
http://www.codeproject.com/csharp/SafeCOMWrapper.asp

Здравствуйте, ablazhko, Вы писали:


A>object [] arg1 = new object[] {"ProcessCountriesList()"};
A> lateBoundType.InvokeMember("EvalExpr", BindingFlags.Public | BindingFlags.InvokeMethod | BindingFlags.Static, null, v77, arg1);

http://msdn.microsoft.com/library/default.asp?url=/library/en-us/cpref/html/frlrfsystemtypeclassinvokemembertopic3.asp

Здравствуйте, ablazhko, Вы писали:

До кучи http://msdn.microsoft.com/msdnmag/issues/03/09/CustomMarshaling/

Здравствуйте, ablazhko, Вы писали:

A>интересует как получить возвращаемое значение функции 1С

Все еще актуально. Посмотрел ссылки в конце ветки, ниче толком не понял

Здравствуйте, t_a_n_k, Вы писали:

___>Здравствуйте, ablazhko, Вы писали:

A>>интересует как получить возвращаемое значение функции 1С

___>Все еще актуально. Посмотрел ссылки в конце ветки, ниче толком не понял

Тоже не все понял из этой ветки...

Вообще сейчас для обмена данными, что с V77, что с V8 можно (и даже нужно) использовать XML.
Благо на диске ИТС лежат две конфигурации:

• 1С:Предприятие 7.7. Конвертация данных;
  
• 1С:Предприятие 8.0. Конвертация данных.

Поэтому для offline проще (и надежнее) обмениваться данными через XML.

Здравствуйте, Red Bird, Вы писали:

RB>Поэтому для offline проще (и надежнее) обмениваться данными через XML.

xml в моем случае не подходит — нужно именно ловить возвращаемые значения.

У меня получилось примерно следующее:

string BaseCatalog=@"\\Test_base", User="TestDimon",Pass="123";
object[] arg=new object[3];
Type lateBoundType=Type.GetTypeFromProgID("v77S.Application",true);
object v77=Activator.CreateInstance(lateBoundType);
arg[0]=lateBoundType.InvokeMember("RMTrade",BindingFlags.Public | BindingFlags.InvokeMethod | BindingFlags.Static,null,v77,null);
arg[1]=@"/D"+BaseCatalog+" /N"+User+" /P"+Pass;
arg[2]="";
lateBoundType.InvokeMember("Initialize",BindingFlags.Public | BindingFlags.InvokeMethod | BindingFlags.Static,null,v77,arg);
object [] arg1 = new object[] {"FuckAchtung()"};
// выполняем ф-ию
object Params=lateBoundType.InvokeMember("EvalExpr", BindingFlags.Public | BindingFlags.InvokeMethod | BindingFlags.Static, null, v77, arg1);
// получаем значения
txtInfo.Text+="Value: "+(string)Params;
//before exit
System.Runtime.InteropServices.Marshal.ReleaseComObject(v77);
// чистим память, иначе процесс все равно остается.
GC.GetTotalMemory(true);

Ф-ия в 1С позращает один параметр.

Здравствуйте, t_a_n_k, Вы писали:

Ну, общем, да.

Только у меня 1cv7s.exe выгуржается из памяти по:

//before exit
System.Runtime.InteropServices.Marshal.ReleaseComObject(v77);

Здравствуйте, Red Bird, Вы писали:

RB>Здравствуйте, t_a_n_k, Вы писали:

RB>Ну, общем, да.

RB>Только у меня 1cv7s.exe выгуржается из памяти по:
RB>

RB>//before exit
RB>System.Runtime.InteropServices.Marshal.ReleaseComObject(v77);
RB>

Ну дык она и должна в этом месте выгружаться, но как я понял не всегда.
У меня процесс висит, пока память не почищу.

Господа, а как же все-таки передать аргумент в вызываеммую 1С-ную ф-ию?
Например делаю так:

object [] arg1 = new object[] {"SomeFunction()"};

Удачно проходит только аргумент, как строка:

object [] arg1 = new object[] {"SomeFunction(\"bla-bla\")"};

А как передать в функцию массив или еще че-нить?