|
Das deutsche QBasic- und FreeBASIC-Forum Für euch erreichbar unter qb-forum.de, fb-forum.de und freebasic-forum.de!
|
Vorheriges Thema anzeigen :: Nächstes Thema anzeigen |
Autor |
Nachricht |
arduno
Anmeldungsdatum: 12.05.2011 Beiträge: 252
|
Verfasst am: 26.05.2016, 17:16 Titel: Filemapping für mehrere Integer und auch Strings...wie ? |
|
|
Hallo, guten Tag.
Ich habe ein Filemappaing zum Senden und Empfangen welches auch funktioniert.
Ich habe 1000 Byte reserviert im Filemapping.
Wie kann ich da bitte jetzt mehrere Integer/Strings hinereinander reinbringen und diese auch wieder auslesen. Ich verstehe es nicht, wie ich den Zeiger von *lMap verstellen muss dafür.
Danke.
Gruss
Senden:
Code: |
#Include "windows.bi"
Dim as HANDLE hMap
dim as Integer ptr lpMap
hMap = CreateFileMapping( cast(HANDLE,INVALID_HANDLE_VALUE), _
null, _
PAGE_READWRITE, _
0, _
1000, _
"MyFileMapping" )
lpMap = MapViewOfFile( hMap, _
FILE_MAP_ALL_ACCESS, _
0, _
0, _
0 )
do
*lpMap += 1
Locate 3,1,0
print *lpMap;
sleep 100
loop until inkey = chr(27)
|
Empfangen:
Code: |
#Include "windows.bi"
dim as HANDLE hMap
dim as Integer ptr lpMap
hMap = OpenFileMapping( FILE_MAP_ALL_ACCESS, _
false, _
"MyFileMapping" )
lpMap = MapViewOfFile( hMap, _
FILE_MAP_ALL_ACCESS, _
0, _
0, _
0 )
do
locate 3,1,0
print *lpMap;
loop until inkey = chr(27)
|
|
|
Nach oben |
|
|
volta
Anmeldungsdatum: 04.05.2005 Beiträge: 1875 Wohnort: D59192
|
|
Nach oben |
|
|
arduno
Anmeldungsdatum: 12.05.2011 Beiträge: 252
|
Verfasst am: 26.05.2016, 22:08 Titel: |
|
|
Hallo danke.
Habe jetzt die Lösung gefunden.
Einmal Filemapsend und einmal Filemapempfang.
Funktioniert einwandfrei.
Habe auch noch ein Programm wo die Daten auch wieder mit Filemap zurückgesendet werden.
Eine Startüberprüfung kann noch reingesetzt werden.
Filemapsend muss zuerst gestartet werden.
Filemapsend:
Code: |
#Include "windows.bi"
#Include "fbgfx.bi"
#include "vbcompat.bi"
Using FB
Dim as HANDLE hMap
DIM AS INTEGER PTR buffer
buffer = ALLOCATE( 1000 )
screenres 320,200,32,1,4
WindowTitle "filemap-send"
ScreenControl SET_WINDOW_POS, 50, 40
hMap = CreateFileMapping( cast(HANDLE,INVALID_HANDLE_VALUE), _
null, _
PAGE_READWRITE, _
0, _
1000, _
"MyFileMapping" )
buffer = MapViewOfFile( hMap, _
FILE_MAP_ALL_ACCESS, _
0, _
0, _
0 )
Do
buffer[0] = buffer[0] + 1
buffer[1] = buffer[1] + 5
Locate 3,1,0
print buffer[0]
print buffer[1]
Sleep 100
loop until inkey = chr(27)
|
Filemapempfang:
Code: |
#Include "windows.bi"
#Include "fbgfx.bi"
#include "vbcompat.bi"
Using FB
dim Shared as HANDLE hMap
DIM Shared AS INTEGER PTR buffer
buffer = ALLOCATE( 1000 )
screenres 320,200,32,1,4
WindowTitle "filemap-empfang"
ScreenControl SET_WINDOW_POS, 400, 40
hMap = OpenFileMapping( FILE_MAP_ALL_ACCESS, _
false, _
"MyFileMapping" )
buffer = MapViewOfFile( hMap, _
FILE_MAP_ALL_ACCESS, _
0, _
0, _
0 )
do
locate 3,1,0
print buffer[0]
print buffer[1]
Loop until inkey = chr(27)
|
|
|
Nach oben |
|
|
|
|
Du kannst keine Beiträge in dieses Forum schreiben. Du kannst auf Beiträge in diesem Forum nicht antworten. Du kannst deine Beiträge in diesem Forum nicht bearbeiten. Du kannst deine Beiträge in diesem Forum nicht löschen. Du kannst an Umfragen in diesem Forum nicht mitmachen.
|
|