Inter Process Communicatio程式崩潰

最近想要寫兩程式通訊IPC(Inter Process Communication)的程式 某位四個英文字的大大提供#pragma Data_Set的方式 不過程式考量之下不希望使用DLL的達到IPC,所以我選擇使用CreateFileMapping 但是以下程式碼在寫入時總是讓程式崩潰,不知道是否有大大能夠 幫助一下小弟我呢? '======== 'Use Visual Basic 6 'MyMap and MyMEM is global variable ,type is [long] 'FILE_MAP_ALL_ACCESS is constant, Value is... 顯示更多 最近想要寫兩程式通訊IPC(Inter Process Communication)的程式

某位四個英文字的大大提供#pragma Data_Set的方式

不過程式考量之下不希望使用DLL的達到IPC,所以我選擇使用CreateFileMapping

但是以下程式碼在寫入時總是讓程式崩潰,不知道是否有大大能夠

幫助一下小弟我呢?

'========
'Use Visual Basic 6
'MyMap and MyMEM is global variable ,type is [long]
'FILE_MAP_ALL_ACCESS is constant, Value is &HF001F
'&H4 is PAGE_READWRITE
'========

'====CreateFileMapping Function
'(Form_Load)
MyMap = OpenFileMapping(FILE_MAP_ALL_ACCESS, False, "SharedMEM")
If MyMap = 0 Then
 MyMap = CreateFileMapping(-1, 0, &H4, 0, 256, "SharedMEM")
End If
If MyMap <> 0 Then
 MyMEM = MapViewOfFile(MyMap, FILE_MAP_ALL_ACCESS, 0, 0, 0)
'到此處顯示正常執行
End If

'=======Write Memory
'(Command1_Click)
Dim Buffer As String * 128
Buffer = Text1.Text
CopyMemory MyMEM, ByVal Buffer, 128
更新: 去掉ByVal依然Crash...真詭異
3 個解答 3