1С# - Расширяем код 1С кодом на C#

Здрасьте!

Наверняка многие видели, что внутри исходников на языке C могут быть ассемблерные вставки:

Или на языке Pascal могут быть ассемблерные вставки:

Некоторые даже могут использовать asm в C#.

Подобное можно увидеть в различных ЯВУ.

Даже в 1С при работе с данными в СУБД очень часто используют вставки кода на языке запросов (отличном от основного языка по синтаксису и возможностям).

Пойдём дальше, копнём глубже и ... в 1С можно использовать вставки кода на языке C# (с применением внешней компоненты):

Пока это только концепт, но уже рабочий. С версии 2.0 это уже полноценное решение. Можно с помощью таких микроподпрограмм сильно расширить возможности работы в 1С. Например, ускорять тяжелые участки кода (т.к. 1с в алгоритмических задачах сильно проигрывает взрослым Языкам Высокого Уровня) или использовать алгоритмы, которые на 1с не написать за обозримое время.

Пока есть жесткие ограничения:

- во первых, компонента работает только через COM и только под Windows;

- во вторых, во встроенном коде на шарпе обязательно нужно использовать жёстко зашитые наименования для используемого пространства имён, имени класса и имени метода;

- в третьих, пока что не реализована передача значений между компонентой и кодом 1с;

- в четвертых, при написании чего-то большого придётся прибегать к различным ухищрениям, что даже простой вывод примитивного окна сообщений в Windows будет не так просто сделать.

// код для версии 1.0

ТекстПрограммыНаСиШарп = "
|using System;
|using System.Reflection;
|
|namespace CSCodeEvaler
|{
|  public class CSCodeEvaler
|  {
|    public void EvalCode()
|    {
|      Assembly a = Assembly.Load(""System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089"");
|      Type classType = a.GetType(""System.Windows.Forms.MessageBox"");
|      MethodInfo mi = classType.GetMethod(""Show"", new[] { typeof(string) });
|      object[] par = new[] { ""Привет из 1С !"" };
|      mi.Invoke(null, par);
|    }
|  }
|}
|";


// код для версии 2.0

Компонента.ClearSettings();

Компонента.References = "System.dll;System.Windows.Forms.dll";
	
Компонента.Parameter0 = "Привет из 1С!";
Компонента.Parameter1 = 100;
	
ТекстПрограммыНаСиШарп = "
|using System;
|using System.Windows.Forms;
|
|namespace CSCodeEvaler
|{
|	public class CSCodeEvaler
|	{
|		public static void EvalCode(string msg, int p)
|		{
|			MessageBox.Show(msg + ""\nЭто работает на "" + p + ""%"");
|		}
|	}
|}
|";

Компонента.Run(ТекстПрограммыНаСиШарп);

Этот код нарисует окно:

Пока что это больше подходит для "поиграться" С версии 2.0 это подходит уже для полноценного применения, но если сообществу будет интересна данная тема, буду продолжать пилить дальше.

В приложенной обработке вы можете сами попробовать выполнить приведённый выше код. Также там есть примеры для использования в разных кейсах.

Протестировано на платформе 8.3.21.1644, но будет работать на любых платформах 8.2 и 8.3 .

Большое обновление! Версия 2.0 (от 21.04.2023)

- Реализована возможность передавать параметры в скрипт и получать результат из него (пока что поддерживаются только примитивные типы);

- Добавлена опция для передачи в скрипт ссылок (References) на библиотеки, в связи с чем отпадает необходимость использования отражения (Reflection) в коде, тем самым код становится короче и проще для понимания;

- Появилась возможность писать короткие односложные скрипты без пространства имён, наименования класса и метода (код будет исполняться в жёстко заданных namespace CSCodeEvaler -> class CSCodeEvaler -> void EvalCode());

- Можно использовать статические классы;

- Добавлен подсчет времени компиляции и выполнения скрипта.

 Например, для запуска любой программы достаточно написать

ТекстПрограммыНаСиШарп = "
|string path = @""Folder\program.exe"";
|System.Diagnostics.Process.Start(path);
|";

Компонента.RunScript(ТекстПрограммыНаСиШарп);

А для получения файла внутри GZip архива поможет такой код

Компонента.ClearSettings();

ПутьАрхива = "G:\db.gz";

Компонента.Parameter0 = ПутьАрхива;

ТекстПрограммыНаСиШарп = "
|using System;
|using System.IO;
|using System.IO.Compression;
|
|namespace CSCodeEvaler
|{
|	public class CSCodeEvaler
|	{
|		public static byte[] EvalCode(string path)
|		{
|			FileStream fs = new FileStream(path, FileMode.OpenOrCreate);
|			byte[] gzip = new byte[(int)fs.Length];
|			fs.Read(gzip, 0, (int)fs.Length);
|			
|			byte[] bin;
|
|			using (MemoryStream sourceStream = new MemoryStream(gzip))
|			using (MemoryStream targetStream = new MemoryStream())
|			using (GZipStream decompressionStream = new GZipStream(sourceStream, CompressionMode.Decompress))
|			{
|				decompressionStream.CopyTo(targetStream);
|				bin = targetStream.ToArray();
|			}
|			
|			return bin;
|		}
|	}
|}
|";

Компонента.Run(ТекстПрограммыНаСиШарп);

ИзвлеченныйФайл = Компонента.Result;

Для регистрации компоненты выполните

regasm OneSharp.dll /tlb /codebase

* нужны админские права. RegAsm.exe найдёте в C:\Windows\Microsoft.NET\Framework\v4.0.30319\

Разработано в MS Visual Studio Community 2019 под .NET Framework 4.8.1

Это моя 20-я юбилейная публикация. Не забывайте заходить в мой профиль, там вы найдёте ещё более интересные и практичные разработки, связанные с около 1с.

Зacим oтклaнивaюcь!