Вверх ↑
Ответов: 652
Рейтинг: 138
#1: 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,[])
}

карма: 14

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