Прерванный файл на неанглийском языке (проблема с кодировкой?)

@ Robert-Hegner Я предлагаю это в качестве ответа, даже если это подлежит вашему тестированию (у меня нет возможности проверить, где я нахожусь)!

Я добавил обновленный подход здесь (вам нужно будет прокрутить вниз до второго примера)

Он использует msiReadStreamDirect (не msiReadStreamAnsi) для извлечения строки пар байтов, преобразует их в двоичный файл и создает выходной файл с использованием ADODB.Stream (не FSO).

Dim oFSO : Set oFSO = CreateObject("Scripting.FileSystemObject")

Dim tempFolder : tempFolder = oFSO.GetSpecialFolder(2) 
Dim outputFile : outputFile = tempFolder & "\notepad.exe"

extractFromBinary "notepad", outputFile

Function MultiByteToBinary(MultiByte)
  'obtained from http://www.motobit.com
  'MultiByteToBinary converts multibyte string To real binary data (VT_UI1 | VT_ARRAY)
  'Using recordset
  Dim RS, LMultiByte, Binary
  Const adLongVarBinary = 205
  Set RS = CreateObject("ADODB.Recordset")
  LMultiByte = LenB(MultiByte)
  If LMultiByte>0 Then
    RS.Fields.Append "mBinary", adLongVarBinary, LMultiByte
    RS.Open
    RS.AddNew
      RS("mBinary").AppendChunk MultiByte & ChrB(0)
    RS.Update
    Binary = RS("mBinary").GetChunk(LMultiByte)
  End If
  Set RS = Nothing
  MultiByteToBinary = Binary
End Function

Function SaveBinaryData(FileName, ByteArray)
  Const adTypeBinary = 1
  Const adSaveCreateOverWrite = 2

  'Create Stream object
  Dim BinaryStream
  Set BinaryStream = CreateObject("ADODB.Stream")

  'Specify stream type - we want To save binary data.
  BinaryStream.Type = adTypeBinary

  'Open the stream And write binary data To the object
  BinaryStream.Open
  BinaryStream.Write ByteArray

  'Save binary data To disk
  BinaryStream.SaveToFile FileName, adSaveCreateOverWrite

  Set BinaryStream = Nothing
End Function

Function extractFromBinary(ByVal binaryName, ByVal binaryOutputFile)

    Const msiReadStreamInteger = 0 
    Const msiReadStreamBytes = 1 
    Const msiReadStreamAnsi = 2  
    Const msiReadStreamDirect = 3

    Dim binaryView : Set binaryView = Session.Database.OpenView("SELECT * FROM Binary WHERE Name = '" & binaryName & "'")  
    binaryView.Execute

    Dim binaryRecord : Set binaryRecord = binaryView.Fetch  
    Dim binaryData : binaryData = binaryRecord.ReadStream(2, binaryRecord.DataSize(2), msiReadStreamDirect)  
    Set binaryRecord = Nothing  

    'convert to string of byte pairs to binary
    binaryData = MultiByteToBinary(binaryData)

    'save binary data
    SaveBinaryData binaryOutputFile, binaryData

End Function

Set oFSO = Nothing

Японская кодовая страница: из этой записи в блоге: " Двоичные файлы и объект файловой системы не смешиваются ":" На японском кодовая страница, just-plain-chr (E0) даже не является допустимым символом, поэтому Chr превратит его в ноль ... Не используйте FSO для чтения / записи двоичных файлов, вы просто просите мир будет больно, как только кто-то из DBCS запустит ваш код. "

Альтернативы? Как насчет .NET? Я слишком поздно понял, что вы находитесь в настраиваемом действии, я сделал образцы как автономные консольные приложения .NET. Платформа WiX имеет механизмы для создания настраиваемого действия DTF. Нашел на github.com.

Перефразирование?. Можно спросить, чем вы на самом деле занимаетесь? Зачем нужно извлекать файлы таким образом? Могут быть другие подходы, более надежные, если вы объясните сценарий?

DTF / .NET: хотя я не большой поклонник .NET для развертывания (слишком много уровней зависимостей), я думаю, вам лучше использовать .NET / DTF. для этого. Что такое DTF?

Пример приложения DTF C #. Ниже приведен простой пример приложения C #, показывающий один способ извлечения двоичного потока из двоичной таблицы (есть несколько других способов, я не .NET эксперт).

1. Создайте новое консольное приложение C # (.NET Framework).
2. Вставьте приведенный ниже код и настройте параметры.
3. Добавьте ссылку на Microsoft.Deployment.WindowsInstaller.dll (структура DTF).

using Microsoft.Deployment.WindowsInstaller;

namespace MSIExtractBinaryTableEntry
{
    class Program
    {
        static void Main(string[] args)
        {
            // ADJUST 1: Name of Binary Table Entry
            var binarytableentry = "ImageBmp"; 

            // ADJUST 2: Source MSI path
            var msifullpath = @"C:\MySetup.msi";

            // ADJUST 3: Output target path for binary stream
            var binaryfileoutputpath = @"C:\Output.XXX";

            using (var db = new Database(msifullpath, DatabaseOpenMode.ReadOnly))
            {
                using (var binaryView = db.OpenView("SELECT Name, Data FROM Binary WHERE Name='" + binarytableentry + "'"))
                {
                    binaryView.Execute();
                    binaryView.Fetch().GetStream(2, binaryfileoutputpath); // force overwrites output path
                }
            }
        }
    }
}

Альтернатива: вот настройка, которая экспортирует всю двоичную таблицу в папку с именем «Вывод» на рабочем столе пользователя.

Та же процедура для создания тестового проекта, что и выше. Только один параметр, который нужно указать: полный путь к входному MSI.

using System;
using System.IO;
using Microsoft.Deployment.WindowsInstaller;

namespace MSIExtractBinaryTableEntry
{
    class Program
    {
        static void Main(string[] args)
        {
            // ADJUST 1: Specify MSI file path
            var msifullpath = @"C:\MySetup.msi";

            var outputpath = Path.Combine(Environment.GetFolderPath(Environment.SpecialFolder.Desktop), @"Output\");
            Directory.CreateDirectory(outputpath);

            using (var db = new Database(msifullpath, DatabaseOpenMode.ReadOnly))
            {
                using (var binaryView = db.OpenView("SELECT Name, Data FROM Binary"))
                {
                    binaryView.Execute();

                    foreach (var rec in binaryView)
                    {
                        rec.GetStream("Data", outputpath + rec.GetString("Name"));
                    }
                }
            }
        }
    }
}

Вот что у меня получилось.

Как было предложено Штейном Осмулом, я переписал настраиваемое действие, используя C # (.NET / DTF). Изначально я не решался писать настраиваемые действия на C #, поскольку он вводит дополнительные предварительные условия для установщика. Но оказывается, что если настраиваемое действие нацелено на .NET Framework 2.0, оно должно поддерживаться на большинстве машин без необходимости вручную устанавливать платформу (см. здесь).

Итак, вот мой код:

public static class TemporaryFilesExtractor
{

    [CustomAction]
    public static ActionResult ExtractTemporaryFiles(Session session)
    {
        ExtractFromBinary(session, "binaryname1", "<filePath1>");
        ExtractFromBinary(session, "binaryname2", "<filePath2>");
        return ActionResult.Success;
    }

    private static void ExtractFromBinary(Session session, string binaryName, string binaryOutputFile)
    {
        session.Log($"Extracting {binaryName} to {binaryOutputFile}");
        byte[] buffer = new byte[4096];

        using (var view = session.Database.OpenView("SELECT Data FROM Binary WHERE Name = '{0}'", binaryName))
        {
            view.Execute();
            using (var record = view.Fetch())
            using (var dbStream = record.GetStream(1))
            using (var fileStream = File.OpenWrite(binaryOutputFile))
            {
                int count;
                while ((count = dbStream.Read(buffer, 0, buffer.Length)) != 0)
                    fileStream.Write(buffer, 0, count);
            }
        }
    }

}