Форум по торговому электронному оборудованию

Код: Выделить всё

Add-Type -TypeDefinition @"
using System;
using System.Runtime.InteropServices;

public class ScaleTester {
    [DllImport(@"C:\Windows\SysWOW64\WindowsPowerShell\v1.0\TransferEth.dll", EntryPoint = "_Transfer_Ethernet_EX@8", CallingConvention = CallingConvention.StdCall)]
    public static extern int Transfer_Ethernet_EX(string configFile, int key);

    [DllImport(@"C:\Windows\SysWOW64\WindowsPowerShell\v1.0\TransferEth.dll", EntryPoint = "Transfer_Ethernet", CallingConvention = CallingConvention.StdCall)]
    public static extern int Transfer_Ethernet(string configFile);
}
"@
[ScaleTester]::Transfer_Ethernet_EX("Transscale.ini", 251245664)

Код: Выделить всё

param(
    [int]$NotEx
)

Add-Type -TypeDefinition @"
using System;
using System.Runtime.InteropServices;

public class MTLoader {
    [DllImport(@"TransferEth.dll", EntryPoint = "_Transfer_Ethernet_EX@8", CallingConvention = CallingConvention.StdCall)]
    public static extern int Transfer_Ethernet_EX(string configFile, int key);

    [DllImport(@"TransferEth.dll", EntryPoint = "Transfer_Ethernet", CallingConvention = CallingConvention.StdCall)]
    public static extern int Transfer_Ethernet(string configFile);
}
"@
If ($NotEx -eq 1) {
    [MTLoader]::Transfer_Ethernet("Transscale.ini")
}
Else
{
    [MTLoader]::Transfer_Ethernet_EX("Transscale.ini", 251245664)
}

Код: Выделить всё

param(
    [string]$exePath,
    [int]$TimeoutSeconds = 10,
    [int]$NotEx = 0
)

# Проверка существования EXE
if (-not (Test-Path -LiteralPath $exePath)) {
    Write-Error "EXE не найден: $exePath"
    exit 1
}

try {
    # Настройка процесса
    $psi = New-Object System.Diagnostics.ProcessStartInfo
    $psi.FileName = $exePath
    $psi.Arguments = $NotEx.ToString()
    $psi.UseShellExecute = $false      # Обязательно false для перехвата вывода
    $psi.RedirectStandardOutput = $true
    $psi.RedirectStandardError = $true
    $psi.CreateNoWindow = $true        # Не показывать окно консоли

    $process = [System.Diagnostics.Process]::Start($psi)

    # Ждём завершения с таймаутом
    $completed = $process.WaitForExit($TimeoutSeconds * 1000)

    if ($completed) {
        $output = $process.StandardOutput.ReadToEnd()
        $errorOut = $process.StandardError.ReadToEnd()
        if ($output) {
            Write-Host $output
        }
        ElseIf($errorOut) {
            Write-Host $errorOut
        }
    }
    Else {
        $process.Kill()  # Принудительно завершаем
        Write-Host "-1"
    }
}
Catch {
}

Код: Выделить всё

LoadStarter.exe Trans.exe %TimeOut% %NotEx%

Код: Выделить всё

Б) в бинарном формате
Загрузка PLU в весы осуществляется функцией
ireturn =Transfer_Ethernet_EX("Transscale.ini",251245664)
из предварительно сформированного при помощи PLUFmtConvert.dll файла &&trf!!.out.