XProfan

Français

funkheld

allô, guten journée.
je hab un Problem avec données zurückzuholen vom Loksim3d.
avec SendMessage peux je beim Loksim3D qui Indusi betätigen, cela klappt.

eh bien peux on avec dem String : cLOK_INSTRUMENT_TACHO = "LOK.INSTRUMENT.TACHO" qui Geschwindigkeit abfragen, rückgabe est un String, qui oui dans einem Pointer retour wird. maintenant weiss je pas comment on cela faire peux avec dem Befehl "Postmessage". qui peux mir cela s'il te plaît la fois expliquer?

merci.

Gruss

Tastendruck peux je Loksim3D senden :

Kompilieren Marque Séparation

declare ende&,WM_LOKSIMSENDKEY&,LoksimWnd&,KeyIndex&
ende&=1
Fenêtre 20,20-400,400
WM_LOKSIMSENDKEY& = 1024 + 12348
LoksimWnd& = @FindWindow("LoksimComWindow A123456TZAR5")

Tandis que Ende&

    sleep 10

    si isKey(87)

        KeyIndex&=1
        @SendMessage( LoksimWnd&, WM_LOKSIMSENDKEY&,KeyIndex&, 0)

    endif

Endwhile

Fin

08.05.2012 ▲

Vollständiges citation

Absatzweise Citation Zeilenweise Citation

- page 1 -

Nachtrag: Dollarzeichen oublier qc/ nachgetragen.

(aussi si es avec xpse aussi sans funktioniert ^ ^ )

XProfan X2
Vista (TM) Home Premium, SP2, Core(TM)2 Duo P8600 @ 2.40GHz

08.05.2012 ▲

Vollständiges citation

Absatzweise Citation Zeilenweise Citation

funkheld

Jup, merci. Muss encore la fois umbauen den ganzen Kram.

Gruss

XProfan 11

08.05.2012 ▲

Vollständiges citation

Absatzweise Citation Zeilenweise Citation

ne...aucune Problem. et si Du une anderssprachigen Voir le texte source la hâte ensuite simple
montrer car den peux on ensuite léger pour XProfan paraphraser.

XProfan X2
Vista (TM) Home Premium, SP2, Core(TM)2 Duo P8600 @ 2.40GHz

08.05.2012 ▲

Vollständiges citation

Absatzweise Citation Zeilenweise Citation

funkheld

la fois simple gefragt, je voudrais avec Postmessage de einem anderen Programme(Freebasic) un String senden à cela la fenêtre "Profan".
STRPTR wandelt une Stringvariable dans un Adresse um.

Faible text as String
text="Test"
la fenêtre = FindWindow(0, "Profan")
Postmessage(profan,STRPTR(text),0,0)

Diesen Text de Freebasic soll cela Profanfenster empfangen.
comment allez cela?

merci.

Gruss

08.05.2012 ▲

Vollständiges citation

Absatzweise Citation Zeilenweise Citation

Hi,

là gibt es lauter Wege pour,

cela Einfachste wäre en supplément wohl dass cela Programme(Freebasic) cela Handle
de einer par cela XProfan-Programme erzeugten ListBox-liste erhält et direct à
qui ListBox Einträge anhängt.

cela wäre aussi threadsicher et simple ensuite par cela
XProfan-Programme (getString$(..., getCount(... ) abzurufen.

Andernfalls... cette Aufruf ist pas sinnvoll:

Postmessage(profan,STRPTR(text),0,0)

là hierbei qui Nachrichtennummer qui Adresse des Cordes ist et Du im Empfänger-
Programme oui qui Adresse pas kennst bzw. qui Nachrichtennummer une bereits
übliche/ verwendete Nachrichtennummer son peux.

ensuite plutôt...

Poster un message(profan,wm_user+12345,strptr(text),0)

et ensuite im XProfan-Programme dedans qui sogenannten SubClassProc
sur nouvelle wm_user+12345 attendre et ensuite den String aus dem &swParam magasin
per imprimer string$(&swParam,0).

Pour Cordes/ données entre Prozessen austauschen gibts windowsweit wiederum
eigentlich qui wm_copydata -nouvelle ( [...]

).

XProfan-Beispiel: [...]

ici encore plus: [...]

quoi Du aussi faire peux ist simple avec SetText/ GetText bzw. SetWindowText
( [...]

) Fenstertitel mettons et abfragen z.B. de Fensterndie pas sichtbar sommes.

XProfan X2
Vista (TM) Home Premium, SP2, Core(TM)2 Duo P8600 @ 2.40GHz

08.05.2012 ▲

Vollständiges citation

Absatzweise Citation Zeilenweise Citation

funkheld

So, merci, qui nehme je maintenant dans Freebasic à TCP-données vom Loksim3d per:
Poster un message(profan,wm_user+12345,strptr(text),0)
à Profan trop senden um cet ensuite comme Grafik représenter .

comment allez car cela maintenant voilà? :

et ensuite im XProfan-Programme dedans qui sogenannten SubClassProc
sur nouvelle wm_user+12345 attendre et ensuite den String aus dem &swParam magasin
per imprimer string$(&swParam,0)

merci.

Gruss

08.05.2012 ▲

Vollständiges citation

Absatzweise Citation Zeilenweise Citation

Kompilieren Marque Séparation

 $H Messages.ph
 $H Windows.ph
cls
usermessages ~wm_close
SubClass %HWnd, 1'SubClassing des Hauptfensters einschalten

tandis que 1

    waitinput

    sélectionner %uMessage

        caseof ~wm_close : pause

    EndSelect

Wend

SubClass %HWnd, 0
end

SubClassProc

    Si SubClassMessage(%hWnd, ~wm_user+12345)

        imprimer string$(&swparam,0)

    endif

endproc

XProfan X2
Vista (TM) Home Premium, SP2, Core(TM)2 Duo P8600 @ 2.40GHz

08.05.2012 ▲

Vollständiges citation

Absatzweise Citation Zeilenweise Citation

Anstelle de StrPtr(text) musst du Addr(text$) verwenden.

Poster un message ist quelque chose plus rapide comme SendMessage, wartet mais pas sur qui Rückantwort qui Message.

08.05.2012 ▲

Vollständiges citation

Absatzweise Citation Zeilenweise Citation

@Frank: comment je es verstanden habe bezog sich son "StrPtr(text)" sur Free Pascal.

XProfan X2
Vista (TM) Home Premium, SP2, Core(TM)2 Duo P8600 @ 2.40GHz

08.05.2012 ▲

Vollständiges citation

Absatzweise Citation Zeilenweise Citation

funkheld

allô, jup merci pour qui Aider.
Es était Freebasic. mais irgendwie hakt es là im Freebasic avec dem Datenversenden.
je prends maintenant la fois Purebasic comme TCP-Grundgerüst welches den Datentransfer übernimmt avec Send/Postmessage. Zur Zeit klappt es avec dem TCP-Gerüst chez mir avec XProfan pas, avec dem Server et Clienten. Es sollte là la fois un Grundgerüst avec einfachen Befehlen geschaffen volonté de euch Spezialisten, car TCP et qui dazugehörige Kram ist pour une Anwender qui den Datentransfer Server/Client pour son Programme avons voudrais pas du tout simple. Dabei ist es, si es funktioniert une grosse Bereicherung pour cela XProfan.

Relatif à la SubClassing muss je erstmal digérer.qui Automatique le bout en begreife je encore pas.

merci.

Gruss

XProfan 11

09.05.2012 ▲

Vollständiges citation

Absatzweise Citation Zeilenweise Citation

- page 2 -

dans qui SubClassProc landen arrêt qui Nouvelles de den Windows/ Controls pour qui
SubClassing (per SubClass-Procédure) aktiviert wurde.

So wird ici pour %hWnd qui SubClassProc aktiviert:

Kompilieren Marque Séparation