WPF, Windows Forms, .NET Framework и др.

Форумы ПрочееWPF, Windows Forms, .NET Framework и др. ← Ctrl1 2 345 6Ctrl →

Этот топик читают: Гость

Ответов: 793

Рейтинг: 168

#46: 2022-08-27 18:00:12 ЛС | профиль | цитата

Пример запуска кода C# в пакете Windows(delphi).
https://forum.hiasm.com/getfile/39534
Код взят отсюда - https://github.com/tarikguney/ascii-table-creator и без каких-либо изменений вставлен в схему.
Проверен на Windows10/64

Редактировалось 1 раз(а), последний 2022-08-27 18:03:30

карма: 16

файлы: 1

ascii-table-creator.zip [3.3KB] [365]

Голосовали:

Fangir

Ответов: 315

Рейтинг: 26

#47: 2022-08-28 08:50:16 ЛС | профиль | цитата

Gunta писал(а):

без каких-либо изменений

Очень интересно.

Можно сделать компонент для вставки кода C# ?

Редактировалось 1 раз(а), последний 2022-08-28 08:55:21

карма: 2

Установочные пакеты HiAsm + Новые иконки Hight Assembler

Ответов: 2059

Рейтинг: 132

#48: 2022-08-28 11:42:33 ЛС | профиль | цитата

envoy_sky писал(а):

Можно сделать компонент для вставки кода C# ?

Тогда уж из этого https://bellard.org/tcc/
Скорость компиляции и выполнения кода невероятная!
А вот это понастоящему крутая вещь! https://terralang.org/
Только надо читать https://habr.com/ru/post/336406/ вдумчиво и с пониманием, а то все фишки можно пропустить и не понять. (можно и без LUA а только с hiasm(пробовал, работает!), и вставить С\С++ или любой другой язык - в любой другой язык, в том числе и hiasm, кроссплатформенность...)

Редактировалось 5 раз(а), последний 2022-08-28 11:54:56

карма: 6

Ответов: 5227

Рейтинг: 587

#49: 2022-08-28 18:17:33 ЛС | профиль | цитата

Сделать из NET COM объекты и в последствии их использовать не рекомендуется. Это просто очередная брешь в системе безопастности.
В KOL достаточно средств для продвижения проекта.

карма: 4

Мой форум - http://hiasm.bbtalk.me/ схемы, компоненты...

Ответов: 793

Рейтинг: 168

#50: 2022-08-28 22:58:10 ЛС | профиль | цитата

andrestudio писал(а):

Сделать из NET COM объекты и в последствии их использовать не рекомендуется.

Из Wikipedia

.NET и будущее COM
В 2002 году была официально выпущена платформа Microsoft .NET, которая на сегодняшний день объявлена Microsoft рекомендуемой основой для создания приложений и компонентов под Windows. По этой причине в .NET включены и средства, позволяющие обращаться к компонентам COM из приложений .NET, и наоборот. По словам представителей Майкрософт, COM (точнее, COM+) и .NET являются отлично взаимодополняющими технологиями.

andrestudio писал(а):

Это просто очередная брешь в системе безопастности.

"Верить в наше время нельзя никому. Порой даже самому себе. Мне — можно." ©(Мюллер) "Семнадцать мгновений весны".
Вот "обычный" прогноз погоды - https://forum.hiasm.com/getfile/39535

карма: 16

файлы: 1

test_weather.rar [43.7KB] [342]

Ответов: 5227

Рейтинг: 587

#51: 2022-08-30 17:10:14 ЛС | профиль | цитата

Gunta, дело в том что после директивы assemblies все объектные файлы NET преобразуются в COM объекты (собственно зарегистрированные в системе dll с хуевой тучей ссылок на каждый класс раздувая реестр) и после этих манипуляций (даже просто при компиляции твоей схемы с запуском) эти COM объекты будут всегда доступны для браузера в виде VBS и JS скриптов. Так вот кто работает в IT и внимательно читает должностную инструкцию а не википедию таких ужей с ежами не допускают.

--- Добавлено в 2022-08-30 17:12:24

andrestudio писал(а):

В KOL достаточно средств для продвижения проекта.

Мне и добавить то нечего.

Редактировалось 2 раз(а), последний 2022-08-30 17:21:33

карма: 4

Мой форум - http://hiasm.bbtalk.me/ схемы, компоненты...

Ответов: 793

Рейтинг: 168

#52: 2022-08-30 22:41:08 ЛС | профиль | цитата

andrestudio, Powershell -язык программирования используется во всех ОС Microsoft начиная с Windows XP SP3.
Начиная с Windows 7 поставляется вместе с системой. Версии с 1 по 5.1 это .NET Framework.
В проектах Hiasm powershell запускается в отдельном потоке и взаимодействие с программой происходит через стандартные устройства in-out, консоль, буфер обмена и др.
Не нравится Wikipedia, вот документация самой microsoft - https://docs.microsoft.com/ru-ru/powershell/scripting/samples/creating-.net-and-com-objects--new-object-?view=powershell-7.2

https://docs.microsoft.com/ru-ru/dotnet/framework/interop/exposing-com-components

https://docs.microsoft.com/ru-ru/powershell/scripting/samples/sample-scripts-for-administration?view=powershell-7.2

Я делаю примеры для тех, у кого не сложилось с HiAsm.NET (как у меня) но хотел бы встраивать элементы .Net в свои проекты. Тем более возможностей у PowerShell значительно больше чем у VBS и JS .

Редактировалось 1 раз(а), последний 2022-08-31 07:12:15

карма: 16

Голосовали:

Dad2016

Ответов: 793

Рейтинг: 168

#53: 2022-08-31 06:47:23 ЛС | профиль | цитата

Пример передачи данных из PowerShell по протоколу UDP.


Add(MainForm,10237418,105,273)
{
 Left=20
 Top=105
 Width=550
 Height=387
 Caption="Test"
 ClientSize=0
 Point(onClose)
 link(onCreate,6678770:doOpen,[])
 link(onClose,6678770:doClose,[(158,300)(158,314)])
}
Add(UDP,6678770,168,287)
{
 LocalPort=1002
 LocalIP="127.0.0.1"
 Point(LocalIP)
 link(onReceive,4168011:doCharset,[])
}
Add(WinExec,11401622,294,105)
{
 FileName="powershell"
 Mode=0
 Action="runas"
 Point(doConsoleExec)
 Point(doConsoleInput)
 Point(onConsoleTerminate)
 Point(onConsoleResult)
 Point(onConsoleError)
}
Add(FormatStr,4794102,231,119)
{
 DataCount=1
 Mask="$Message = '%1'\r\n[int]$Port = 1002\r\n$IP = '127.0.0.1'\r\n\r\n$Address = [system.net.IPAddress]::Parse($IP)\r\n$End = New-Object System.Net.IPEndPoint $address, $port\r\n$Saddrf = [System.Net.Sockets.AddressFamily]::InterNetwork\r\n$Stype = [System.Net.Sockets.SocketType]::Dgram\r\n$Ptype = [System.Net.Sockets.ProtocolType]::UDP\r\n$Sock = New-Object System.Net.Sockets.Socket $saddrf, $stype, $ptype\r\n$Sock.TTL = 26\r\n$sock.Connect($End)\r\n# $Enc = [System.Text.Encoding]::ASCII\r\n$Enc = [System.Text.Encoding]::Unicode\r\n$Buffer = $Enc.GetBytes($Message)\r\n$Sent = $Sock.Send($Buffer)\r\n\r\n\r\n"
 link(onFString,11401622:doConsoleExec,[])
 link(Str1,3013988:Text,[])
}
Add(Menu,8475728,105,112)
{
 Menu=#4:Send|5:Clean|
 Point(onSelectNum)
 link(onSelectNum,16231780:doEvent,[])
}
Add(Charset,4168011,217,287)
{
 Type=9
 link(onCharset,11001438:doConvert,[])
}
Add(IndexToChanel,16231780,168,119)
{
 link(onEvent1,4794102:doString,[])
 link(onEvent2,1332877:doClear,[(221,132)(221,167)])
}
Add(StrList,3013988,231,63)
{
 Strings=#42:Артикул;Название;Кол-во;Ед.изм.;Цена;Сумма|56:23544122;Carbon disc ?44,7/38,3x5,8mm;10;PC;16,92;169,20|56:23544122;Carbon disc ?44,7/38,3x5,8mm;10;PC;16,92;169,20|54:23544122;Carbon disc ?44,7/38,3x5,8mm;2;PC;16,92;33,84|64:21200159;Top part UNIFL3/4 for steel bot.part;25;PC;30,09;752,25|57:24400111;Hose f. pump compl. UNIWASH;153;PC;10,58;1618,74|58:13225;Piston complete for valve UNIWASH3;4;PC;27,09;108,36|60:12200105;Vacuumgauge glycerine ?100mm 3/8";5;PC;40,57;202,85|54:21200141;Thread bush UNIFLOW3 steel;130;PC;1,93;250,90|45:25100146;O-ring ?16,1x1,6mm;175;PC;0,36;63,00|57:21200127;Holder rocking lever, UNIFLOW3;170;PC;0,26;44,20|50:21200131;Rocking lever UNIFLOW3;150;PC;0,89;133,50|65:25200132;Valve button inside UNIFLOW3 steel FA;225;PC;0,72;162,00|61:21200129;Bar closing device UNIFLOW3 steel;225;PC;1,09;245,25|55:25200124;Valve flap outside UNIFLOW3;225;PC;1,56;351,00|60:14400212;Solenoid valve sgl. invensys 230vac;5;PC;8,50;42,50|62:14400213;Solenoid valve dobb. invensys 230vac;5;PC;14,13;70,65|48:21200131;Rocking lever UNIFLOW3;20;PC;0,89;17,80|63:25200132;Valve button inside UNIFLOW3 steel FA;20;PC;0,72;14,40|43:25100146;O-ring ?16,1x1,6mm;20;PC;0,36;7,20|55:21200127;Holder rocking lever, UNIFLOW3;20;PC;0,26;5,20|58:21200130;Bar closing device UNIFLOW3 steel;20;PC;0,34;6,80|58:25200119;Guard bracket UNIFLOW3 steel SBS;20;PC;3,38;67,60|55:13474;Valve flap exterior UNIFLOW3 SBS;20;PC;1,56;31,20|59:26400104;Terminal wheel for lock guide str;20;PC;1,12;22,40|67:25215022;Rubber liner UNIFL. 15022-?22 UNIFLEX FA;96;PC;2,39;229,44|55:14800695;Hose guide f. SAC115 complete;10;PC;9,17;91,70|36:14306;Filter for IDC;20;PC;0,40;8,00|51:25515435;Rubber hose ?27/16 mm - FA;15;M;5,24;78,60|63:13930;Double-action Quickstart II rem. L=740mm;1;PC;98,66;98,66|54:13100201;Spray gun for udder washer;20;PC;17,77;355,40|0:|
}
Add(StreamConvertor,11001438,266,287)
{
 Mode=7
 link(onResult,11559680:doLoadFromStream,[])
}
Add(MST_Load,11559680,315,280)
{
 MSTControl="asd"
 link(onLoadFromStream,681341:doColAction,[])
}
Add(MTStrTbl,9953103,448,287)
{
 Left=405
 Top=210
 Align=5
 Name="asd"
}
Add(MST_Clear,1332877,231,161)
{
 MSTControl="asd"
}
Add(MST_ColAction,681341,371,287)
{
 Action=9
 Index=-2
 MSTControl="asd"
}

карма: 16

Ответов: 5227

Рейтинг: 587

#54: 2022-08-31 18:00:25 ЛС | профиль | цитата

Gunta, Ради интереса, твои схемы работают под учёткой пользователя

Если нет тогда смысл какой

карма: 4

Мой форум - http://hiasm.bbtalk.me/ схемы, компоненты...

Ответов: 793

Рейтинг: 168

#55: 2022-08-31 19:10:49 ЛС | профиль | цитата

andrestudio писал(а):

Ради интереса, твои схемы работают под учёткой пользователя

Под той учётной записью под которой запускалась программа.
Это легко проверить

Add(MainForm,2953706,133,140)
{
 link(onCreate,6128134:doString,[])
}
Add(WinExec,11401622,245,140)
{
 FileName="POWERSHELL"
 Mode=0
 Point(doConsoleExec)
 Point(onConsoleResult)
 link(onConsoleResult,1021983:doCharset,[])
}
Add(Charset,1021983,301,154)
{
 link(onCharset,9860473:doAdd,[])
}
Add(FormatStr,6128134,189,154)
{
 DataCount=1
 Mask="$env:UserName\r\n$env:USERPROFILE\r\n$env:ComputerName"
 link(onFString,11401622:doConsoleExec,[])
}
Add(Memo,9860473,357,154)
{
 Width=655
 Height=490
 Align=5
 ScrollBars=3
}

Редактировалось 1 раз(а), последний 2022-08-31 19:14:55

карма: 16

Ответов: 5227

Рейтинг: 587

#56: 2022-09-01 20:02:57 ЛС | профиль | цитата

Gunta, это не ответ на вопрос а отмазка (нет у меня этого POWERSHELL(а) и почему я тебе уже говорил)
Год назад работал в одной гос. структуре пока не сократили и занимался защитой персональных данных. (крипто-сервис, электронные-подписи и всякой другой хренью)

т.е представляя таким образом дырки в системе ты можешь утверждать что это во благо пользователей

Но это же бесстыже как минимум

--- Добавлено в 2022-09-01 20:32:45

Вот что бы не было проколов у кого кто занимается подобной деятельностью для примера история того как один "талантливый" программист пошёл таким же коротким путём. В следствии чего его чудо классы из C# стали доступны в 1С-предприятие. Ну и что, думаете ему премию выписали

Да нет, был уволен с чёрным билетом.

Редактировалось 1 раз(а), последний 2022-09-01 20:32:45

карма: 4

Мой форум - http://hiasm.bbtalk.me/ схемы, компоненты...

Ответов: 793

Рейтинг: 168

#57: 2022-09-03 19:47:08 ЛС | профиль | цитата

andrestudio писал(а):

нет у меня этого POWERSHELL(а)

"Я Пастернака не читал, но осуждаю"

PowerShell — это кроссплатформенное решение для автоматизации задач, которое включает оболочку командной строки, скриптовый язык и платформу управления конфигурацией. PowerShell поддерживается в Windows, Linux и macOS
В первую очередь эта среда для решения задач, стоящих перед системными администраторами, а также разработчиками программного обеспечения, предоставляя им средства для быстрой реализации интерфейсов управления к создаваемым приложениям.

Для достижения этих целей были решены следующие задачи:
• Обеспечение прямого доступа из командной строки к объектам COM, WMI и .NET. В новой оболочке присутствуют команды, позволяющие в интерактивном режиме работать с COM-объектами, а также с экземплярами классов, определенных в информационных схемах WMI и .NET.
• Организация работы с произвольными источниками данных в командной строке по принципу файловой системы. Например, навигация по системному реестру или хранилищу цифровых сертификатов выполняется из командной строки с помощью аналога команды CD интерпретатора Cmd.exe.
• Разработка интуитивно понятной унифицированной структуры встроенных команд, основанной на их функциональном назначении. В новой оболочке имена всех внутренних команд (в PowerShell они называются командлетами) соответствуют шаблону "глагол-существительное", например, Get-Process (получить информацию о процессе), Stop-Service (остановить службу), Clear-Host (очистить экран консоли) и т.д. Для одинаковых параметров внутренних команд используются стандартные имена, структура параметров во всех командах идентична, все команды обрабатываются одним синтаксическим анализатором. В результате облегчается запоминание и изучение команд.
• Обеспечение возможности расширения встроенного набора команд. Внутренние команды PowerShell могут дополняться командами, создаваемыми пользователем. При этом они полностью интегрируются в оболочку, информация о них может быть получена из стандартной справочной системы PowerShell.
• Организация поддержки знакомых команд из других оболочек. В PowerShell на уровне псевдонимов собственных внутренних команд поддерживаются наиболее часто используемые стандартные команды из оболочки Cmd.exe и Unix-оболочек. Например, если пользователь, привыкший работать с Unix-оболочкой, выполнит ls, то он получит ожидаемый результат: список файлов в текущем каталоге (то же самое относится к команде dir).
• Разработка полноценной встроенной справочной системы для внутренних команд. Для большинства внутренних команд в справочной системе дано подробное описание и примеры использования. В любом случае встроенная справка по любой внутренней команде будет содержать краткое описание всех ее параметров.
• Реализация автоматического завершения при вводе с клавиатуры имен команд, их параметров, а также имен файлов и папок. Данная возможность значительно упрощает и ускоряет ввод команд с клавиатуры.
Главной особенностью среды PowerShell, отличающей ее от всех других оболочек командной строки, является то, что единицей обработки и передачи информации здесь является объект, а не строка текста.

Отличие PowerShell от других оболочек – ориентация на объекты
При разработке любого языка программирования одним из основных является вопрос о том, какие типы данных и каким образом будут в нем представлены. При создании PowerShell разработчики решили не изобретать ничего нового и воспользоваться унифицированной объектной моделью .NET. Данный выбор был сделан по нескольким причинам.
Во-первых, платформа .NET повсеместно используется при разработке программного обеспечения для Windows и представляет, в частности, общую информационную схему, с помощью которой разные компоненты операционной системы могут обмениваться данными друг с другом.
Во-вторых, объектная модель .NET является самодокументируемой: каждый объект .NET содержит информацию о своей структуре. При интерактивной работе это очень полезно, так как появляется возможность непосредственно из командной строки выполнить запрос к определенному объекту и увидеть описание его свойств и методов, то есть понять, какие именно манипуляции можно проделать с данным объектом, не изучая дополнительной документации с его описанием.
В-третьих, работая в оболочке с объектами, можно с помощью их свойств и методов легко получать нужные данные, не занимаясь разбором и анализом символьной информации, как это происходит во всех традиционных тексто-ориентированных оболочках командной строки.
Типы команд PowerShell
В оболочке PowerShell поддерживаются команды четырех типов: командлеты, функции, сценарии и внешние исполняемые файлы.
Первый тип – так называемые командлеты (cmdlet). Этот термин используется пока только внутри PowerShell. Командлет представляет собой класс .NET, порожденный от базового класса Cmdlet ; разрабатываются командлеты с помощью пакета PowerShell Software Developers Kit (SDK). Единый базовый класс Cmdlet гарантирует совместимый синтаксис всех командлетов, а также автоматизирует анализ параметров командной строки и описание синтаксиса командлетов для встроенной справки.
Данный тип команд компилируется в динамическую библиотеку (DLL) и подгружается к процессу PowerShell во время запуска оболочки (то есть сами по себе командлеты не могут быть запущены как приложения, но в них содержатся исполняемые объекты). Так как компилированный код подгружается к процессу оболочки, данный тип команд выполняется наиболее эффективно. Командлеты – это аналог внутренних команд традиционных оболочек.
Следующий тип команд – функции. Функция – это блок кода на языке PowerShell, имеющий название и находящийся в памяти до завершения текущего сеанса командной оболочки. Функции, как и командлеты, поддерживают именованные параметры. Анализ синтаксиса функции производится один раз при ее объявлении.
Сценарий – это блок кода на языке PowerShell, хранящийся во внешнем файле с расширением ps1. Анализ синтаксиса сценария производится при каждом его запуске.
Последний тип команд – внешние исполняемые файлы, которые выполняются обычным образом операционной системой.

Официальная документация по продуктам PowerShell - https://docs.microsoft.com/ru-ru/powershell/

При разработке PowerShell особое внимание было уделено безопасности. Одной из мер безопасности является наличие политики выполнения (Execution Policy), которая определяет, могут ли скрипты PowerShell выполняться в системе, и если могут, то какие именно.

карма: 16

Ответов: 793

Рейтинг: 168

#58: 2022-10-24 20:38:30 ЛС | профиль | цитата

Пример передачи данных в PowerShell через MemoryMappedFile (компонент SharedStream).

Add(MainForm,11176470,441,105)
{
 Left=20
 Top=105
 Width=527
 Height=321
 Caption="Send to PS by MemoryMappedFile"
 Point(onClose)
 link(onCreate,11748904:doOpen,[])
 link(onClose,11748904:doClose,[(494,132)(494,139)])
}
Add(SharedStream,11748904,504,119)
{
 CoreName="mmf"
 PageMem=4
 link(onOpen,1427330:doEvent1,[])
}
Add(WinExec,7014996,651,126)
{
 FileName="POWERSHELL"
 Mode=0
 Action="runas"
 Point(doConsoleExec)
 Point(doConsoleTerminate)
 Point(onConsoleTerminate)
 Point(onConsoleResult)
 Point(onConsoleError)
 link(onConsoleResult,1998131:doWork2,[])
 link(onConsoleError,1998131:doWork3,[(704,160)])
}
Add(Memo,13999287,784,147)
{
 Top=132
 Width=511
 Height=150
 Align=5
 Font=[Lucida Console,14,0,0,204]
 ScrollBars=3
}
Add(Charset,15431191,728,147)
{
 link(onCharset,13999287:doAdd,[])
}
Add(HubEx,1998131,700,147)
{
 link(onEvent,15431191:doCharset,[])
}
Add(Hub,1427330,560,119)
{
 link(onEvent1,8729136:doSaveToStream,[])
 link(onEvent2,12356033:doString,[(585,132)(585,146)])
}
Add(StrList,8729136,595,84)
{
 Strings=#42:Item;Description;Quantity;Unit;Price;Value|63:13930;Double-action Quickstart II rem. L=740mm;1;PC;98,66;98,66|53:13100201;Spray gun for udder washer;20;PC;17,77;355,4|49:13246007;COMBI-cock ш51 mm cpl.;10;PC;63,43;634,3|51:25643301;Milk hose ш 24/14 x 2750;32;PC;9,76;312,32|56:14291;Service no.1 RDS MAX double box;1;PC;250,51;250,51|54:24144638;Spiral spring for tube filter;3;PC;43,2;129,6|40:22121763;V-belt spz 1087;4;PC;5,91;23,64|61:MH0015;Repair kit non-rotating cylinder ш40mm;8;PC;14,3;114,4|48:GS9835;Revision set SAC Unipuls;4;PC;13,97;55,88|52:22121735;El-motor 3,0kw 3x400v 1400;1;PC;186,4;186,4|55:23544122;Carbon disc ш44,7/38,3x5,8mm;10;PC;16,92;169,2|55:23544122;Carbon disc ш44,7/38,3x5,8mm;10;PC;16,92;169,2|54:23544122;Carbon disc ш44,7/38,3x5,8mm;2;PC;16,92;33,84|64:21200159;Top part UNIFL3/4 for steel bot.part;25;PC;30,09;752,25|57:24400111;Hose f. pump compl. UNIWASH;153;PC;10,58;1618,74|58:13225;Piston complete for valve UNIWASH3;4;PC;27,09;108,36|60:12200105;Vacuumgauge glycerine ш100mm 3/8";5;PC;40,57;202,85|53:21200141;Thread bush UNIFLOW3 steel;130;PC;1,93;250,9|42:25100146;O-ring ш16,1x1,6mm;175;PC;0,36;63|56:21200127;Holder rocking lever, UNIFLOW3;170;PC;0,26;44,2|49:21200131;Rocking lever UNIFLOW3;150;PC;0,89;133,5|62:25200132;Valve button inside UNIFLOW3 steel FA;225;PC;0,72;162|61:21200129;Bar closing device UNIFLOW3 steel;225;PC;1,09;245,25|52:25200124;Valve flap outside UNIFLOW3;225;PC;1,56;351|58:14400212;Solenoid valve sgl. invensys 230vac;5;PC;8,5;42,5|62:14400213;Solenoid valve dobb. invensys 230vac;5;PC;14,13;70,65|47:21200131;Rocking lever UNIFLOW3;20;PC;0,89;17,8|62:25200132;Valve button inside UNIFLOW3 steel FA;20;PC;0,72;14,4|42:25100146;O-ring ш16,1x1,6mm;20;PC;0,36;7,2|54:21200127;Holder rocking lever, UNIFLOW3;20;PC;0,26;5,2|57:21200130;Bar closing device UNIFLOW3 steel;20;PC;0,34;6,8|57:25200119;Guard bracket UNIFLOW3 steel SBS;20;PC;3,38;67,6|54:13474;Valve flap exterior UNIFLOW3 SBS;20;PC;1,56;31,2|58:26400104;Terminal wheel for lock guide str;20;PC;1,12;22,4|67:25215022;Rubber liner UNIFL. 15022-ш22 UNIFLEX FA;96;PC;2,39;229,44|54:14800695;Hose guide f. SAC115 complete;10;PC;9,17;91,7|32:14306;Filter for IDC;20;PC;0,4;8|50:25515435;Rubber hose ш27/16 mm - FA;15;M;5,24;78,6|47:34200107;Indicator jar UNICO1/2;3;PC;4,26;12,78|53:24144638;Spiral spring for tube filter;1;PC;43,2;43,2|61:25200142;Rubber liner RDS FUTURELINE Ш20mm FA;100;PC;4,79;479|66:21214817;Shell w. weight ring UNIFLOW3/4 UNIFLEX;48;PC;6,99;335,52|46:25100204;EC O-Ring 020,0x4,0;250;PC;0,51;127,5|42:23200102;Slide for COMBI-cock;20;PC;1,4;28|53:33246520;Union f. pipe coupling Ш40mm;7;PC;3,91;27,37|50:25246516;Gasket for union DS ш51mm;7;PC;1,77;12,39|49:25200144;Seal f/vacuum container;2;PC;10,93;21,86|63:13197;Inductive sensor - NPN-switch 24Vdc M18;4;PC;67,66;270,64|57:15729;Contact pipe bend 420mm complete;2;PC;118,19;236,38|57:15095;Contact pipe bend 510mm complete;2;PC;121,49;242,98|58:13140216;Lid transp. f. RECeiv.con.60/100l;4;PC;67,6;270,4|60:12900;Milk pump 8000 l 1,1kW 3x400/230V;1;PC;1374,17;1374,17|51:13814;Spare part set for IDC meter;300;PC;8,26;2478|49:25246516;Gasket for union DS ш51mm;4;PC;1,77;7,08|57:15095;Contact pipe bend 510mm complete;1;PC;121,49;121,49|46:24848304;Tube f/cyl. ш110x580;1;PC;18,33;18,33|65:25215022;Rubber liner UNIFL. 15022-ш22 UNIFLEX FA;300;PC;2,39;717|47:25100197;EC O-ring 108x6mm EPDM;80;PC;0,99;79,2|59:21200107;Distributing piece UNIFLOW2/3/4/4S;80;PC;1,13;90,4|46:22022417;Ball bearing FAG 6204;4;PC;7,76;31,04|61:22022633;Roller bearing FAG nup 204 e tvp. 2;2;PC;49,51;99,02|36:22121752;V-belt a 40;6;PC;5,34;32,04|57:22022566;Oil simmer ring f.SACCO 600-1000;8;PC;4,94;39,52|52:25200104;Gasket for slide COMBI-cock;200;PC;0,77;154|64:25246542;Gasket f. pipeline coup. ш51 steel p. FA;100;PC;0,81;81|52:33246520;Union f. pipe coupling Ш40mm;2;PC;3,91;7,82|56:11161;Plastic plug with logo and magnets;3;PC;7,05;21,15|46:11188;Rubber button for starter;3;PC;1,06;3,18|35:23141666;Eccentric;5;PC;16,71;83,55|29:23141668;Bush;10;PC;1,77;17,7|46:12200102;UNI servo regulator;2;PC;81,67;163,34|47:25242625;Rubber inlet ш 63,5 mm;6;PC;2,56;15,36|44:25242628;Inlet rubber ш76 mm;6;PC;2,18;13,08|41:11943;Valve set complete;2;PC;39,68;79,36|44:11165;Pulsator guard IDC;15;PC;69,43;1041,45|50:1511188;Rubber button for starter;48;PC;1,06;50,88|55:90642903;Upper part indicator IDC2;15;PC;366,45;5496,75|62:12200105;Vacuumgauge glycerine ш100mm 3/8";26;PC;40,57;1054,82|50:21200141;Thread bush UNIFLOW3 steel;2;PC;1,93;3,86|0:|
 Point(doSave)
 Point(EndIdx)
 Point(doSaveToStream)
 Point(Stream)
 link(Stream,11748904:Stream,[(615,75)(552,75)(552,159)(510,159)])
}
Add(FormatStr,12356033,595,140)
{
 DataCount=0
 Mask="$MemoryMappedFile =  [System.IO.MemoryMappedFiles.MemoryMappedFile]::OpenExisting('mmf')\r\n$Stream = $MemoryMappedFile.CreateViewStream()\r\n$StreamReader = New-Object System.IO.StreamReader -ArgumentList $Stream\r\n\r\n$StreamReader.ReadToEnd().Replace("""`0""", '') | ConvertFrom-Csv -Delimiter ';' | Out-GridView -PassThru -Title 'Выберите несколько строк и нажмите ОК.'\r\n\r\n$StreamReader.Dispose()\r\n$Stream.Dispose()\r\n"
 link(onFString,7014996:doConsoleExec,[])
}

Редактировалось 1 раз(а), последний 2022-10-25 11:35:03

карма: 16

Ответов: 793

Рейтинг: 168

#59: 2023-04-29 17:58:10 ЛС | профиль | цитата

Сумма, дата и деньги прописью.
Ещё один пример запуска кода C# в пакете Windows(delphi) - https://forum.hiasm.com/getfile/39602
Код взят отсюда - https://github.com/maestrow/amount-in-words и без каких-либо изменений вставлен в StrList.

Проверено на
- Windows 10 (x64)
- Hiasm v4.05 build 186 (delphi)

карма: 16

файлы: 1

amount-in-words.zip [4.3KB] [243]

Ответов: 8926

Рейтинг: 823

#60: 2023-04-29 22:27:26 ЛС | профиль | цитата

Gunta, 890.352 --> "... триста пятьдесят два сотых"

В рублях всё нормально

карма: 19

Форумы ПрочееWPF, Windows Forms, .NET Framework и др. ← Ctrl1 2 345 6Ctrl →


Сообщение ...
Прикрепленные файлы (файлы не залиты)