Показать сообщение отдельно
  #1  
Старый 21.02.2016, 01:13
JustProSkill JustProSkill вне форума
Прохожий
 
Регистрация: 21.02.2016
Сообщения: 17
Версия Delphi: Delphi XE5
Репутация: 10
По умолчанию Помогите открыть файл

Есть кусочек кода на другом языке. Мне нужно так же открыть этот файл в делфи и загрузить в Мемо.
Код:
    public static int[] _lut;

    public static unsafe void Init() // to load a table
    {
        _lut = new int[32487834];
        FileInfo lutFileInfo = new FileInfo("HandRanks.dat");
        if (!lutFileInfo.Exists)
        {throw new Exception("Handranks.dat not found");}

        FileStream lutFile = new FileStream("HandRanks.dat", FileMode.Open, FileAccess.Read, FileShare.ReadWrite, 4096);

        byte[] tempBuffer = new byte[32487834 * 4];
        lutFile.Read(tempBuffer, 0, 32487834 * 4);

        fixed (int* pLut = _lut)
        { Marshal.Copy(tempBuffer, 0, (IntPtr)pLut, 32487834 * 4);}
        tempBuffer = null;
    }
Админ: Пользуемся тегами для оформления кода!
Ответить с цитированием