如何使用文件映射发送位图和文本数据思维过程？

Question

我尝试使用file mapping将bitmap和一些text字符串从脚本发送到另一个脚本，以下是我的尝试：

FM := new FileMapping()
Return

F1:: FM.Read()
Esc::ExitApp

F2:: ; Write the pbitmap to map

; GDIp startup
VarSetCapacity(si, 8 + A_PtrSize*2, 0), si := Chr(1)
DllCall("gdiplus\GdiplusStartup", "UPtrP", pToken, "Ptr", &si, "Ptr", 0)
; ------------------------------------------------------------------------

; Create the pBitmap #1
File := "test.png"
DllCall("gdiplus\GdipCreateBitmapFromFile", "WStr", File, "PtrP", pBitmap)
; ------------------------------------------------------------------------

; LockBits #2
DllCall("gdiplus\GdipGetImageDimension", Ptr, pBitmap, "float*", width, "float*", height)
DllCall("gdiplus\GdipGetImagePixelFormat", "Ptr", pBitmap, "PtrP", pixelFormat)

VarSetCapacity(Rect, 16)
NumPut(0, Rect, 0, "UInt")
NumPut(0, Rect, 4, "UInt")
NumPut(width, Rect, 8, "UInt")
NumPut(height, Rect, 12, "UInt")

VarSetCapacity(BitmapData, 16+2*(A_PtrSize ? A_PtrSize : 4), 0)
E := DllCall("Gdiplus\GdipBitmapLockBits", "Ptr", pBitmap, "Ptr", &Rect, "UInt", LockMode:=3, "Int", PixelFormat, "Ptr", &BitmapData)
Stride := NumGet(BitmapData, 8, "Int")
Scan0  := NumGet(BitmapData, 16)
size := stride * height
; ------------------------------------------------------------------------


; Append a string into the data 
; that will be saved on memory #3
str  := "test test"
      
VarSetCapacity(data, dataSize := size + 16 + StrLen(str)*2 + 2, 0)
StrPut(str, &data + size + 16)

; Copty the data to memory #4
DllCall("RtlCopyMemory", "Ptr", &data + 16, "Ptr", scan0, "Ptr", size)

DllCall("Gdiplus\GdipBitmapUnlockBits", "UPtr", pBitmap, "UPtr", &BitmapData) 

; ------------------------------------------------------------------------


; Write to map #5
NumPut(pixelFormat, data)
NumPut(width      , data, 4)
NumPut(height     , data, 8)
NumPut(stride     , data, 12, "UInt")

VarSetCapacity(COPYDATASTRUCT, A_PtrSize*3, 0)
NumPut(dataSize, COPYDATASTRUCT, A_PtrSize)
NumPut(&data, COPYDATASTRUCT, A_PtrSize*2)

FM.Write(&COPYDATASTRUCT)
; ------------------------------------------------------------------------

Return



Class FileMapping {
   
   __New(Name="Global\MyFileMappingObject", BufSize=100000) {    
      
      ; Opens existing or creates new file mapping object
      static INVALID_HANDLE_VALUE := -1, PAGE_READWRITE := 0x4, FILE_MAP_ALL_ACCESS := 0xF001F
      
      hMapFile := DllCall("OpenFileMapping", "Ptr", FILE_MAP_ALL_ACCESS, "Int", 0, "Str", Name)
      
      if ( hMapFile == 0 ) {        
         ; OpenFileMapping Failed - file mapping object doesn't exist - that means we have to create it
         hMapFile := DllCall("CreateFileMapping", "Ptr", INVALID_HANDLE_VALUE, "Ptr", 0, "Int", PAGE_READWRITE, "Int", 0, "Int", BufSize, "Str", Name)
         if ( hMapFile == 0 )    ; CreateFileMapping Failed
               return
      }

      pBuf := DllCall("MapViewOfFile", "Ptr", hMapFile, "Int", FILE_MAP_ALL_ACCESS, "Int", 0, "Int", 0, "Ptr", BufSize)
      
      if ( pBuf == 0 ) ; MapViewOfFile Failed
         return

      this.Name     := Name
      this.hMapFile := hMapFile
      this.pBuf     := pBuf
      this.BufSize  := BufSize
      
   }
   


   Write(data:="") {       
      NumPut(data, this.pBuf)
   }



   Read() {

      static flags := HEAP_ZERO_MEMORY := 0x00000008
         , hHeap := DllCall("GetProcessHeap", "Ptr")

      param := NumGet(this.pBuf)
      size  := NumGet(param + A_PtrSize, "UInt")
      pData := NumGet(param + A_PtrSize*2)

      pHeap := DllCall("HeapAlloc", "Ptr", hHeap, "UInt", flags, "UPtr", size, "Ptr")
      DllCall("RtlCopyMemory", "Ptr", pHeap, "Ptr", pData, "Ptr", size)

      this.CreateBitmapFromData(hHeap, pHeap)
      return

   }



   CreateBitmapFromData(hHeap, pImageData) {

      pixelFormat := NumGet(pImageData+0, "UInt")
      width       := NumGet(pImageData+4, "UInt")
      height      := NumGet(pImageData+8, "UInt")
      stride      := NumGet(pImageData+12,"UInt")
      ; The string appended in the step #3 ("test test")
      str         := StrGet(pImageData + 16 + stride*height)


      
      DllCall("gdiplus\GdipCreateBitmapFromScan0", "Int", width, "Int", height, "Int", stride, "Int", pixelFormat, "Ptr", pImageData + 16, "PtrP", pBitmap)

      DllCall("gdiplus\GdipCreateHBITMAPFromBitmap", "Ptr", pBitmap, "PtrP", hbm, "Int", 0xffffffff)

      ; Just for test, create a gui showing the picture.
      Gui, Add, Picture, x0 y0, % "HBITMAP:" hbm
      Gui, Show

      DllCall("HeapFree", "Ptr", hHeap, "UInt", 0, "Ptr", pImageData)
      DllCall("gdiplus\GdipDisposeImage", "Ptr", pBitmap)

   }



   __Delete() {
      DllCall("UnmapViewOfFile", "Ptr", this.pBuf), DllCall("CloseHandle", "Ptr", this.hMapFile)
   }

}

要将位图和文本写入文件映射，请F2

它将从给定文件创建一个位图（#1）

在位图上调用 lockbits(#2)，将扫描和字符串 (#3) 保存到data中并利用RtlCopyMemory将data复制到内存 (#4)

然后，将data保存到文件映射中（#5）

当您按F1时，它将从Class FileMap调用函数Read()并“重建”已保存在文件映射内的位图 ( CreateBitmapFromData )，并读取步骤 #3 中附加的字符串

只要从同一个脚本读取/写入，事情就可以正常工作，如果我启动不同的进程并调用FM.Read()它不起作用，则函数Read()内的size和pData的值是空白的：

  param := NumGet(this.pBuf)
  size  := NumGet(param + A_PtrSize, "UInt")
  pData := NumGet(param + A_PtrSize*2)

感谢您对此的任何帮助！

Answer 1

您必须添加更多错误处理。 检查所有返回值并调用

DllCall("GetLastError") 

在不返回错误代码的函数之后。 这将说明正在发生的事情。 没有这个，就很难给出一个完整的答案，因为有很多事情可能会出错。

使用 VS Code 的 AutoHotkey 调试器扩展之一，如下所示： AutoHotkey Plus