XProfan

Français

funkheld

allô, guten journée.

je voudrais une String dans un Bereichsvariable stecken et SendMessage à einem Prozess senden. là avec Getmessage empfangen et là avec Imprimer ausgeben. qui Variable wert1& voudrais je dans SendMessage par une Bereichsvariable ersetzen.

comment funktioniert cela s'il te plaît?

merci.

Kompilieren Marque Séparation

 $MAKE CLE
 $H Messages.PH
Déclarer h&,hd&,hd1&,ende&,wert&,wert1&,b_send&,text$,tadr&
declare pointer#
dim pointer#,32
Déclarer Handle ZielFenster

Proc Prozess

    parameters hd&,hd1&
    declare w&,w1&,ende&
    windowtitle "empfang"
    window 10,10 - 150, 150
    ende& = 0

    whilenot ende&

        sleep 1
        GetMessage

        Si %Message = $1000

            w&=&wParam
            w1&= &lParam
            locate 3,1
            imprimer "   " + str$(w&) + "   "
            setText hd&, str$(w&)
            locate 5,1
            imprimer "   " + str$(w1&) + "   "
            setText hd1&, str$(w1&)

        endif

    endwhile

endproc

windowtitle "send"
window 10,200-200,200
hd& = create("Text", %hWnd, », 20, 10, 60, 20)
hd1& = create("Text", %hWnd, », 20, 35, 60, 20)
b_send& = Créer("Button",%hWnd,"send", 10, 65, 80, 24)
h&=pExec("|Prozess",hd&,hd1&)
sleep 500
ZielFenster = FindWindow("empfang")
ende& = 0

whilenot ende&

    waitinput

    Si Clicked(b_send&)

        wert&=wert&+1
        wert1&=wert1&+5
        String pointer#,0 = "Test"
        Poster un message(ZielFenster, $1000, wert&, wert1&)

    endif

endwhile

end

XProfan 11

07.04.2016 ▲

Vollständiges citation

Absatzweise Citation Zeilenweise Citation

Georg
Teles

Nabend !

bof muss es car une Bereichsvariable son ? exposition fois le Befehle trop MapFile à, cela gibt es depuis XProfan X2 (glaube) ... ansonsten ici un d'autre Beispiel avec Mapfile, qui Code ist Steinkohle & stammt aus qui Community daher habe justement ne...aucune Link en supplément prêt

Kompilieren Marque Séparation

Def CreateFileMapping(6) !"KERNEL32","CreateFileMappingA"
Def UnmapViewOfFile(1) !"KERNEL32","UnmapViewOfFile"
Def MapViewOfFile(5) !"KERNEL32","MapViewOfFile"
Def CloseHandle(1) !"KERNEL32","CloseHandle"
Déclarer h&,hd&,hd1&,ende&,wert&,wert1&,b_send&,text$,tadr&
Déclarer Handle ZielFenster
Déclarer HandleMap&, ViewPointer&, Buffer#

Proc Prozess

    Déclarer HandleMap&, ViewPointer&, Buffer#
    declare ende&, button&, text$
    windowtitle "empfang"
    window 10,10 - 150, 150
    clear ende&
    button& = create("Button",%HWnd,"auslesen",5,5,100,20)
    OpenMap "testmap", 4096

    whilenot ende&

        Waitinput

        Si clicked(button&)

            text$ = ReadStrFromMap()
            locate 3,1
            imprimer "   " + text$ + "   "

        EndIf

    endwhile

    CloseMap()

endproc

windowtitle "send"
window 10,200-200,200
hd& = create("Text", %hWnd, », 20, 10, 100, 20)
b_send& = Créer("Button",%hWnd,"send", 10, 65, 80, 24)
h&=pExec("|Prozess")
sleep 500
ZielFenster = FindWindow("empfang")
clear ende&
OpenMap "testmap", 4096

whilenot ende&

    waitinput

    Si Clicked(b_send&)

        text$ = "testtext "+Str$(rnd(200))
        Settext hd&,text$
        WriteStrToMap(text$)

    endif

endwhile

CloseMap()
end

Proc OpenMap

    Paramètres MapName$, Size&
    HandleMap& = CreateFileMapping($FFFFFFFF,0, 402653188,0,Size&,Addr(MapName$))

    Si HandleMap& <= 0

        MessageBox("Fehler beim erstellen des Mappings !","Fehler",16)

    D'autre

        ViewPointer& = MapViewOfFile(HandleMap&, 983071, 0, 0, 0)
        Cas ViewPointer& = 0 : MessageBox("Fehler beim erstellen des Views !","Fehler",16)

    Endif

ENDPROC

Proc WriteStrToMap

    Paramètres Text$
    Déclarer OldBuffer&

    Si ViewPointer& <> 0

        Faible Buffer#, Len(Text$)
        OldBuffer& = Buffer#
        Buffer# = ViewPointer&
        Char Buffer#,0 = Text$
        Buffer# = OldBuffer&
        Dispose Buffer#

    EndIf

ENDPROC

Proc ReadStrFromMap

    Déclarer Ergebnis$, OldBuffer&

    Si ViewPointer& <> 0

        Faible Buffer#, 512
        OldBuffer& = Buffer#
        Buffer# = ViewPointer&
        Ergebnis$ = String$(Buffer#,0)
        Buffer# = OldBuffer&
        Dispose Buffer#

    EndIf

    Retour Ergebnis$

ENDPROC

Proc CloseMap

    UnMapViewOfFile(ViewPointer&)
    CloseHandle(HandleMap&)

ENDPROC