Виртуальный файл.

[Taras2]

Привет All!

Задача в следующем: есть консольная утилита (не моя), которая работает с файлом заданным в командной строке, читает его и выдаёт результаты в стандартный вывод. Не хочется создавать временные файлы и дёргать диск. Можно ли и как задать этот файл в виде массива в памяти.

ЗЫ. Утилита не моя, поэтому переделать её я не смогу.

Спасибо.

[Шурик]

А разве нет такой функции с помощью которой файл в память поместить можно?Я идиот! Убейте меня, кто-нибудь!Я идиот! Убейте меня, кто-нибудь!

[Шурик]

Между прочим раньше был такой комп - ZX SPECTRUM, там все грузилось в память (потому что винтов не было), так вот там с этим проблем вообще не было.

[Taras2]

А разве нет такой функции с помощью которой файл в память поместить можно?Я идиот! Убейте меня, кто-нибудь!Я идиот! Убейте меня, кто-нибудь!

Да, есть Input называется, а дальше?

[RayShade]

Ну положим, не все в память там грузилось. А насчет того, что автор темы спрашивает - ответ: нет.

Сэмулировать файл на диске чем то в памяти, то есть чтобы при обращении к c:\file.ext шло обращение в память - нереально.

[Taras2]

Ну положим, не все в память там грузилось. А насчет того, что автор темы спрашивает - ответ: нет.
Сэмулировать файл на диске чем то в памяти, то есть чтобы при обращении к c:\file.ext шло обращение в память - нереально.

А если открыть pipe, как-то можно подсунуть проге на её запрос хендл этого pipe?

[RayShade]

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

[Taras2]

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

Так ведь она его просто последовательно (даже построчно) читает. Прога не производит перемещений по файлу.
Да и потом попытка не пытка.

ЗЫ. Я видел как результаты работы этой проги (STDOut) были направлены в Notepad, причем Notepad не знал имени файла и при его закрытии предлагал ввести имя файла.

[zzoom]

Так ведь она его просто последовательно (даже построчно) читает. Прога не производит перемещений по файлу.
Да и потом попытка не пытка.

Читать ПОСТРОЧНО и не производить перемещений, это что-то новое

ЗЫ. Я видел как результаты работы этой проги (STDOut) были направлены в Notepad, причем Notepad не знал имени файла и при его закрытии предлагал ввести имя файла.

А может все-таки через clipboard?

[alibek]

Для работы с файлами через API нет никакой разницы, является ли файл настоящим файлом, mailslot или pipe. Если приложение консольное, то stdin, stdout и stderr можно перенаправить почти куда угодно.
Покопайся в MSDN, а начни с Q173085.

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

Option Explicit



      Private Declare Function CreatePipe Lib "kernel32" ( _
          phReadPipe As Long, _
          phWritePipe As Long, _
          lpPipeAttributes As Any, _
          ByVal nSize As Long) As Long

      Private Declare Function ReadFile Lib "kernel32" ( _
          ByVal hFile As Long, _
          ByVal lpBuffer As String, _
          ByVal nNumberOfBytesToRead As Long, _
          lpNumberOfBytesRead As Long, _
          byval lpOverlapped As Any) As Long

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

      Private Type STARTUPINFO
         cb As Long
         lpReserved As Long
         lpDesktop As Long
         lpTitle As Long
         dwX As Long
         dwY As Long
         dwXSize As Long
         dwYSize As Long
         dwXCountChars As Long
         dwYCountChars As Long
         dwFillAttribute As Long
         dwFlags As Long
         wShowWindow As Integer
         cbReserved2 As Integer
         lpReserved2 As Long
         hStdInput As Long
         hStdOutput As Long
         hStdError As Long
      End Type

      Private Type PROCESS_INFORMATION
         hProcess As Long
         hThread As Long
         dwProcessID As Long
         dwThreadID As Long
      End Type

      Private Declare Function CreateProcessA Lib "kernel32" (ByVal _
         lpApplicationName As Long, ByVal lpCommandLine As String, _
         lpProcessAttributes As Any, lpThreadAttributes As Any, _
         ByVal bInheritHandles As Long, ByVal dwCreationFlags As Long, _
         ByVal lpEnvironment As Long, ByVal lpCurrentDirectory As Long, _
         lpStartupInfo As Any, lpProcessInformation As Any) As Long

      Private Declare Function CloseHandle Lib "kernel32" (ByVal _
         hObject As Long) As Long

      Private Const NORMAL_PRIORITY_CLASS = &H20&
      Private Const STARTF_USESTDHANDLES = &H100&

      Private Sub ExecCmd(cmdline$)
          Dim proc As PROCESS_INFORMATION, ret As Long, bSuccess As Long
          Dim start As STARTUPINFO
          Dim sa As SECURITY_ATTRIBUTES, hReadPipe As Long, hWritePipe _
          As Long
          Dim bytesread As Long, mybuff As String
          Dim i As Integer

          mybuff = String(256, Chr$(65))

          sa.nLength = Len(sa)
          sa.bInheritHandle = 1&
          sa.lpSecurityDescriptor = 0&

          ret = CreatePipe(hReadPipe, hWritePipe, sa, 0)
          If ret = 0 Then
              MsgBox "CreatePipe failed. Error: " & Err.LastDllError
              Exit Sub
          End If

       start.cb = Len(start)
       start.dwFlags = STARTF_USESTDHANDLES
       start.hStdOutput = hWritePipe

       ' Start the shelled application:
       ret& = CreateProcessA(0&, cmdline$, sa, sa, 1&, _
       NORMAL_PRIORITY_CLASS, 0&, 0&, start, proc)
       If ret <> 1 Then
           MsgBox "CreateProcess failed. Error: " & Err.LastDllError
       End If

       bSuccess = ReadFile(hReadPipe, mybuff, 100, bytesread, 0&)
       If bSuccess = 1 Then
           List1.AddItem Left(mybuff, bytesread)
       Else
           MsgBox "ReadFile failed. Error: " & Err.LastDllError
       End If

          ret& = CloseHandle(proc.hProcess)
          ret& = CloseHandle(proc.hThread)
          ret& = CloseHandle(hReadPipe)
          ret& = CloseHandle(hWritePipe)
      End Sub


Вызов: ExecCmd ("C:\Console\Debug\console.exe")