XProfan

Español

funkheld

¡Hola, guten Tag.
Yo una Problema con Daten zurückzuholen vom Loksim3d.
Mit SendMessage kann Yo beim Loksim3D el Indusi betätigen, el klappt.

Nun puede ser con el String : cLOK_INSTRUMENT_TACHO = "LOK.INSTRUMENT.TACHO" el Geschwindigkeit abfragen, rückgabe es una String, el sí en un Pointer zurückgegeben se. Jetzt blanco Yo no cómo hacerlo hacer kann con el Befehl "Postmessage". Wer kann me Por favor, veces erklären?

Gracias.

Gruss

Tastendruck kann Yo Loksim3D senden :

Kompilieren Marca Separación

declarar ende&,WM_LOKSIMSENDKEY&,LoksimWnd&,KeyIndex&
ende&=1
Ventana 20,20-400,400
WM_LOKSIMSENDKEY& = 1024 + 12348
LoksimWnd& = @FindWindow("LoksimComWindow A123456TZAR5")

Mientras que Ende&

    sleep 10

    if isKey(87)

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

    endif

EndWhile

End

08.05.2012 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

Hi!

Gemäß el Título del Tema "Wie funktioniert el Postmessage en me en el Ejemplo ?"
finde Yo gar kein PostMessage en Deinem Ejemplo.

Postmessage es en el Diferencia a SendMessage auch más no dazu como,
en una Rückgabewert a warten.

Wenn el Adresse uno Cuerdas zurückgegeben se entonces kannst Usted el Signo
simplemente así auslesen/ ausgeben:
Kompilieren Marca Separación

print string$(dieAdresse,0)

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

08.05.2012 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

Apéndice: Dollarzeichen vergessen/ nachgetragen.

(auch si con xpse auch sin funktioniert ^ ^ )

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

08.05.2012 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

funkheld

Jup, danke. Muss una vez más umbauen el ganzen Kram.

Gruss

XProfan 11

08.05.2012 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

Kein Problema. Und si una anderssprachigen Ver código fuente hast entonces simplemente
zeigen porque el puede ser entonces ligeramente después de XProfan umschreiben.

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

08.05.2012 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

funkheld

Tiempo simplemente gefragt, Yo möchte con Postmessage de una otro Programa(Freebasic) una String senden a el Ventana "Profan".
STRPTR wandelt una Stringvariable en un Adresse en.

Dim texto as String
text="Test"
fenster = FindWindow(0, "Profan")
Postmessage(profano,STRPTR(texto),0,0)

Diesen Texto de Freebasic se el Profanfenster empfangen.
Como va el?

Gracias.

Gruss

08.05.2012 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

Hi,

como hay lauter Wege para,

el Einfachste wäre dazu wohl dass el Programa(Freebasic) el Handle
de uno por el XProfan-Programa erzeugten ListBox-Liste erhält y direkt a
el ListBox Einträge anhängt.

Das wäre auch threadsicher y simplemente entonces por el
XProfan-Programa (getString$(..., getCount(... ) abzurufen.

Andernfalls... dieser Aufruf es no sinnvoll:

Postmessage(profano,STRPTR(texto),0,0)

como hierbei el Nachrichtennummer el Adresse des Cuerdas es y Usted en el Empfänger-
Programa sí el Adresse no kennst o. el Nachrichtennummer una ya
übliche/ verwendete Nachrichtennummer ser kann.

Dann más...

PostMessage(profano,wm_user+12345,strptr(texto),0)

y luego en el XProfan-Programa innerhalb el sogenannten SubClassProc
en Nachricht wm_user+12345 warten y luego el String de el &swParam invitar
por imprimir cadena$(&swParam,0).

Für Cuerdas/ Daten zwischen Prozessen austauschen gibts windowsweit wiederum
eigentlich el wm_copydata -Nachricht ( [...]

).

XProfan-Ejemplo: [...]

Hier todavía mehr: [...]

Was Usted auch hacer kannst es simplemente con SetText/ GetText o. SetWindowText
( [...]

) Fenstertitel conjunto y abfragen z.B. de Fensterndie no sichtbar son.

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

08.05.2012 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

funkheld

So, danke, el Aprovecho ahora en Freebasic a TCP-Daten vom Loksim3d por:
PostMessage(profano,wm_user+12345,strptr(texto),0)
a Profano a senden en esta entonces como Grafik darstellen .

Como va porque el ahora hier Por favor,? :

y luego en el XProfan-Programa innerhalb el sogenannten SubClassProc
en Nachricht wm_user+12345 warten y luego el String de el &swParam invitar
por imprimir cadena$(&swParam,0)

Gracias.

Gruss

08.05.2012 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

Kompilieren Marca Separación

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

mientras que 1

    waitinput

    seleccionar %uMessage

        caseof ~wm_close : romper

    EndSelect

wend

SubClass %HWnd, 0
end

SubClassProc

    If SubClassMessage(%hWnd, ~wm_user+12345)

        imprimir cadena$(&swparam,0)

    endif

ENDPROC

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

08.05.2012 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

Anstelle de StrPtr(texto) musst du Addr(texto$) uso.

PostMessage es algo más rápido como SendMessage, wartet pero no en el Rückantwort el Message.

08.05.2012 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

@Franco: Como Yo verstanden habe bezog se ser "StrPtr(texto)" en FreePascal.

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

08.05.2012 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

funkheld

¡Hola, jup danke para el Ayuda.
Lo war Freebasic. Aber irgendwie hakt lo como en el Freebasic con el Datenversenden.
Yo nehme ahora veces Purebasic como TCP-Grundgerüst welches el Datentransfer übernimmt con Send/Postmessage. En el momento klappt lo con el TCP-Gerüst en me con XProfan no, con el Server y Clienten. Lo debería como veces una Grundgerüst con einfachen Befehlen geschaffen voluntad de euch Spezialisten, porque TCP y el dazugehörige Kram es para una Anwender el el Datentransfer Server/Client para ser Programa haben möchte überhaupt no simplemente. Dabei es, si funktioniert una grosse Bereicherung para el XProfan.

Relacionado con la SubClassing muss Yo primero verdauen.Der Automático ablauf su begreife Todavía no.

Gracias.

Gruss

XProfan 11

09.05.2012 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

►