Как ускорить извлечение файла из ресурсов программы?

[Watts[]n!]

Всем доброго времени суток!
Использую функцию для сохранения файла из ресурсов на жесткий диск:

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

Public Function GetBinary(File_Path As String, ByVal ID As Long, Resource As String) As Boolean
Dim File() As Byte
File = LoadResData(ID, Resource)

    If Len(File(1)) > 0 Then
   Open File_Path For Binary Access Write As #1
   Put #1, 1, File
   Close #1

   GetBinary = True
   Exit Function
    End If

GetBinary = False
End Function

Вопрос - можно ли как-нибудь оптимизировать ее скорость, потому что нужно извлечь файл размером 110 Мб?
А делается это при загрузке формы, и приходится очень долго ждать даже на новой "машине", что уж говорить про более медленные =)

[VVitafresh]

Зачем хранить такой большой файл в ресурасах?

[GSerg]

Если у тебя 110 Мб в ресурсах, мало что поможет. Ты их в реестре храни лучше.

[Lumen]

А может проще поставлять этот файл отдельно, пусть себе валяется рядом с программой.

[Watts[]n!]

Ты их в реестре храни лучше.

LOL

А может проще поставлять этот файл отдельно, пусть себе валяется рядом с программой.

Желательно, чтобы все одним файлом шло.

Ладно, пошел прикручивать ProgressBar

[iGrok]

Вы таки извращенец.. =)))
Создать экзешник на 110 мб.. Ты понимаешь, что всё это щастье в память грузится при запуске?

[Watts[]n!]

Подозреваю
Тогда возникает такой вопрос:
Помню, был у меня 1 GB экзешник (RAR-овский SFX-архив с GTA San Andreas), так он тоже что ли весь в память грузился?

[GSerg]

Раровский экзешник не есть экзешник с ресурсами. Там данные дописаны в конец образа и игнорируются загрузчиком.

[jangle]

Вопрос - можно ли как-нибудь оптимизировать ее скорость, потому что нужно извлечь файл размером 110 Мб?
А делается это при загрузке формы, и приходится очень долго ждать даже на новой "машине", что уж говорить про более медленные =)

Вместо LoadResData надо использовать Resource API функции LoadResource и т.д. :

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

Private Declare Function LoadResource Lib "kernel32" Alias "LoadResource" (ByVal hInstance As Long, ByVal hResInfo As Long) As Long

Файл сохраняй функцией WriteFile, скорость возрастет значительно:

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

Private Declare Function WriteFile Lib "kernel32" Alias "WriteFile" (ByVal hFile As Long, lpBuffer As Any, ByVal nNumberOfBytesToWrite As Long, lpNumberOfBytesWritten As Long, lpOverlapped As OVERLAPPED) As Long

iGrok

Вы таки извращенец.. =)))
Создать экзешник на 110 мб.. Ты понимаешь, что всё это щастье в память грузится при запуске?

Секция ресурсов, не отображается (не грузится) в память при запуске приложения. Выражаясь на старый манер - это оверлей, данные из которого программист подгружает сам по мере необходимости, используя Resource API.

[tyomitch]

Вместо LoadResData надо использовать Resource API функции LoadResource и т.д. :

Файл сохраняй функцией WriteFile, скорость возрастет значительно:

Это умозрительное заключение, или ты проверил и сравнил?
Готов поспорить, что первое.

Секция ресурсов, не отображается (не грузится) в память при запуске приложения. Выражаясь на старый манер - это оверлей, данные из которого программист подгружает сам по мере необходимости, используя Resource API.

Отображается при запуске, грузится по первому обращению. Как и код / данные только для чтения, абсолютно так же.
Resource API процессом загрузки не управляют абсолютно никак.
Соответствия староманерным оверлеям нет абсолютно никакого.

[Watts[]n!]

Мало того, что 4 минуты тормозит (засекал =)), так только что заметил, что создается файл нулевого размера!
Хотя маленькие файлы создаются этой функцией на ура...

Для сравнения - Restorator 2007 извлекает этот файл чуть меньше, чем за 20 секунд.

Отсюда появилась бредовая идея - найти какой нибудь редактор ресурсов (желательно бесплатный и небольшой по размеру), поддерживающий ключи командной строки, и при запуске программы "скормить" ему путь для извлечения, тип ресурса и ID.

jangle!
Функция WriteFile не работает, чего-то вроде не хватает. Ругается на неопределенный пользовательский тип.

[tyomitch]

Watts, лучше не майся дурью и не запихивай в ресурсы то, чему там не место. Лучше в отдельный NTFS-стрим запихни, тоже будет один файл.

[alibek]

Тогда файл будет сложно переносить на флешках, выкладывать в инете, отправлять почтой и т.п. Что-то большое лучше прицепить в конце файла, как это RAR делает.

[jangle]

tyomitch
Отображается при запуске, грузится по первому обращению. Как и код / данные только для чтения, абсолютно так же.
Resource API процессом загрузки не управляют абсолютно никак.
Соответствия староманерным оверлеям нет абсолютно никакого.

Первая же строка в описании LoadResource из "Microsoft Win32 Progreamers Reference":

The LoadResource function loads the specified resource into global memory.

Для примера создай один пустой EXE без ресурсов, а ко второму EXE прилинкуй скомпилированный в RES файл архив, мегабайт на 700 (фильм какой-нибудь). По очереди запусти оба EXE, и помедитируй, в мыслях почему оба файла запускаются одновременно и без всяких тормозов во втором случае.

jangle!
Функция WriteFile не работает, чего-то вроде не хватает. Ругается на неопределенный пользовательский тип.

Работает! Я проверял Значит, что-то не так делаешь.

[tyomitch]

tyomitch
Отображается при запуске, грузится по первому обращению. Как и код / данные только для чтения, абсолютно так же.
Resource API процессом загрузки не управляют абсолютно никак.
Соответствия староманерным оверлеям нет абсолютно никакого.

Первая же строка в описании LoadResource из "Microsoft Win32 Progreamers Reference":

The LoadResource function loads the specified resource into global memory.

Теперь растолкуй, как ты эту строчку понимаешь. Что загруженные этой функцией ресурсы доступны всем процессам?

Для примера создай один пустой EXE без ресурсов, а ко второму EXE прилинкуй скомпилированный в RES файл архив, мегабайт на 700 (фильм какой-нибудь). По очереди запусти оба EXE, и помедитируй, в мыслях почему оба файла запускаются одновременно и без всяких тормозов во втором случае.

А ты спроецируй этот же файл вызовом MapViewOfFile, и помедитируй, в мыслях почему он проецируется мгновенно и без всяких тормозов.

[Watts[]n!]

Работает! Я проверял Значит, что-то не так делаешь.

Я вообще в API не очень силен

Просто при попытке запуска выдает упомянутую мной ошибку. Может быть, у тебя в коде еще какие-нибудь константы или типы объявлены, о которых ты не упомянул?

не запихивай в ресурсы то, чему там не место

Ну почему же не место?
Тогда подскажите пожалуйста, как дописывать в конец Exe-шника данные и потом их читать?

Тогда файл будет сложно переносить на флешках, выкладывать в инете, отправлять почтой и т.п.

Вот именно! К тому же у меня Fat32

[Crio]

Тогда подскажите пожалуйста, как дописывать в конец Exe-шника данные и потом их читать?

Можно работать с exe как с обычным файлом.
(вопрос самому себе: а exe файл необычный?)

Например, чтобы добавить в конец exe файла строку:

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

Open strFileName For Append As intFreeFile
Print intFreeFile, strText
Close intFreeFile

Но это нельзя проделать при запущенном exe.

[Хакер]

Я вообще в API не очень силен

Бред. rtcMsgBox - то же API. В ней ты тоже не силён?

Просто при попытке запуска выдает упомянутую мной ошибку. Может быть, у тебя в коде еще какие-нибудь константы или типы объявлены, о которых ты не упомянул?

Если пишет "Пользовательский тип не определён" - то это не значит "в коде что-то не так" или "может быть какую-то константу забыли объявить". Это однозначно значит (тавтология, блин), что пользовательский тип не определён - и ничто иное.

Тогда подскажите пожалуйста, как дописывать в конец Exe-шника данные и потом их читать?

Да, пожалуй, также как если бы их надо было записать не в конец, или не в EXE-шник.

Можно работать с exe как с обычным файлом.
(вопрос самому себе: а exe файл необычный?)

Обычный.

[Watts[]n!]

Не силен в API - это значит, что пока что мало с ним работал и ошибка "Пользовательский тип не определён" мне мало что говорит. Но это уже, естественно, моя "заслуга"

Можно работать с exe как с обычным файлом.

Понятно, значит будем работать как с обычным, бинарным.

А вообще, уже начинаю понимать бессмысленность этой своей затеи. Лучше уж, как сказал в начале Lumen, положить его рядом с экзешником и не париться.

[Crio]

А вообще, уже начинаю понимать бессмысленность этой своей затеи. Лучше уж, как сказал в начале Lumen, положить его рядом с экзешником и не париться.

Лучше отдельно. Вдруг редактировать его придётся; заменять, обновлять, патчить...

С другой стороны по случайности не удалят, не испортят, не забудут, кто угодно копаться не будет.

А какая у тебя задача? (если не секрет)

[Lumen]

Ошибка "пользовательский тип не определен", как это ни странно, означает, что пользовательский тип не определен.
Покажи код, где возникает ошибка...

[jangle]

Я вообще в API не очень силен

Просто при попытке запуска выдает упомянутую мной ошибку. Может быть, у тебя в коде еще какие-нибудь константы или типы объявлены, о которых ты не упомянул?

Ну хоть бы описание в MSDN почитал, вот пример сохранения файла около 100 мбайт. На моей P4-2.6 Ггц, RAM-512 мб занимает 4 секунды.

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

Option Explicit

Public Type SECURITY_ATTRIBUTES
        nLength As Long
        lpSecurityDescriptor As Long
        bInheritHandle As Long
End Type

Public Type OVERLAPPED
        Internal As Long
        InternalHigh As Long
        offset As Long
        OffsetHigh As Long
        hEvent As Long
End Type

Public Declare Function CreateFile Lib "kernel32" Alias "CreateFileA" (ByVal lpFileName As String, ByVal dwDesiredAccess As Long, ByVal dwShareMode As Long, lpSecurityAttributes As SECURITY_ATTRIBUTES, ByVal dwCreationDisposition As Long, ByVal dwFlagsAndAttributes As Long, ByVal hTemplateFile As Long) As Long
Public Declare Function WriteFile Lib "kernel32" (ByVal hFile As Long, lpBuffer As Any, ByVal nNumberOfBytesToWrite As Long, lpNumberOfBytesWritten As Long, LPOVERLAPPED As OVERLAPPED) As Long
Public Declare Function CloseHandle Lib "kernel32" (ByVal hObject As Long) As Long
Public Const GENERIC_WRITE = &H40000000
Public Const FILE_SHARE_READ = &H1
Public Const CREATE_ALWAYS = 2
Public Const FILE_ATTRIBUTE_NORMAL = &H80

Sub Main()
  Dim FileNum As Long
  Dim Dest As String
  Dim dwWritten As Long
  Dim SecAttrib As SECURITY_ATTRIBUTES
  Dim LPOVERLAPPED As OVERLAPPED
  Dim hTemplateFile As Long
    Dest = Space(50485760)
          FileNum = CreateFile("c:\hello.txt", GENERIC_WRITE, FILE_SHARE_READ, SecAttrib, CREATE_ALWAYS, FILE_ATTRIBUTE_NORMAL, hTemplateFile)
          Call WriteFile(FileNum, ByVal StrPtr(Dest), LenB(Dest), dwWritten, LPOVERLAPPED)
          CloseHandle FileNum
          MsgBox "Файл сохранен"
End Sub

[Watts[]n!]

jangle, спасибо, буду разбираться!