XProfan

English

funkheld

Hello, good day.
I Have a problem with data zurückzuholen of Loksim3d.
with Sendmessage can I at Loksim3D The Indusi activate, the works.

now can with the string : cLOK_INSTRUMENT_TACHO = "LOK.INSTRUMENT.TACHO" The speed inquire, return is a String, the Yes in a Pointer zurückgegeben becomes. now knows I do not How to the make can with the commands "Postmessage". who can me the please times explain?

Thank you.

greeting

Tastendruck can I Loksim3D Send :

Compile Mark Separation

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

While Ende&

    sleep 10

    if isKey(87)

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

    endif

EndWhile

End

05/08/12 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote

- Page 1 -

Nachtrag: Dollarzeichen forget/ nachgetragen.

(even if it with xpse too without functions ^^ )

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

05/08/12 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote

funkheld

Jup, thanks. must once more rebuild whom whole Kram.

greeting

XProfan 11

05/08/12 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote

no trouble. And if You a anderssprachigen View source have then simply
show because whom You can then slight to XProfan paraphrase.

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

05/08/12 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote

funkheld

time simply demand, i want with Postmessage of a others Program(Freebasic) one String Send on the window "Profan".
STRPTR GetControlParas (B a Stringvariable in a address circa.

Dim Text as String
text="Test"
window = FindWindow(0, "Profan")
Postmessage(profane,STRPTR(Text),0,0)

Diesen Text of Freebasic should the Profanfenster receive.
How are the?

Thank you.

greeting

05/08/12 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote

Hi,

there there lauter ways for,

the Simplest would moreover well that the program(Freebasic) the lever
a by the XProfan-Program begot ListBox-list sustain and directly on
The ListBox Entries anhängt.

the would too threadsicher and simply then by the
XProfan-Program (getString$(..., getCount(... ) abzurufen.

otherwise... this appeal isn't meaningfully:

Postmessage(profane,STRPTR(Text),0,0)

there hierbei The Nachrichtennummer The address the Strings is and You in the Empfänger-
Program Yes The address not know or. The Nachrichtennummer a already
übliche/ used Nachrichtennummer his can.

then sooner...

PostMessage(profane,wm_user+12345,strptr(Text),0)

and then in the XProfan-Program inside the so-called SubClassProc
on Message wm_user+12345 Waiting and then whom String from the &swParam loading
by print string$(&swParam,0).

for Strings/ data between Prozessen replace Gibts windowsweit against
really The wm_copydata -Message ( [...]

).

XProfan-example: [...]

here yet More: [...]

what You too make can is simply with SetText/ GetText or. SetWindowText
( [...]

) Window Title settle and inquire z.B. of Fensterndie not visible are.

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

05/08/12 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote

funkheld

so, thanks, The take I now in Freebasic around the TCP-data of Loksim3d by:
PostMessage(profane,wm_user+12345,strptr(Text),0)
to profane To Send circa these then as graphic present .

How are because the now here Please? :

and then in the XProfan-Program inside the so-called SubClassProc
on Message wm_user+12345 Waiting and then whom String from the &swParam loading
by print string$(&swParam,0)

Thank you.

greeting

05/08/12 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote

well

Compile Mark Separation

 $H Messages.ph
 $H windows.ph
cls
usermessages ~wm_close
SubClass %HWnd, 1'SubClassing the Mainwindow on

while 1

    waitinput

    select %uMessage

        caseof ~wm_close : break

    endSelect

wend

SubClass %HWnd, 0
end

SubClassProc

    If SubClassMessage(%hWnd, ~wm_user+12345)

        print string $(&swparam,0)

    endif

endproc

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

05/08/12 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote

in lieu of of StrPtr(Text) must You Addr(Text$) use.

PostMessage is something faster as SendMessage, wait but not The Rückantwort the Message.

05/08/12 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote

@Frank: How I it understood have related his "StrPtr(Text)" on FreePascal.

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

05/08/12 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote

funkheld

Hello, jup thanks for Help.
it was Freebasic. but somehow hakt it there in the Freebasic with the Datenversenden.
I take now time Purebasic as TCP-Grundgerüst which whom Datentransfer undertaking with Send/Postmessage. Currently works it with the TCP-Gerüst by me with XProfan not, with the Server and Clienten. it ought to there time one Grundgerüst with einfachen command created go of you Specialists, because TCP and the dazugehörige Kram is for a users the whom Datentransfer Server/Client for its Program having would like not at all simply. thereby is it, if it functions a grosse Bereicherung for the XProfan.

Related to the SubClassing must I first digest.The Automatic term of it begreife I not yet.

Thank you.

greeting

XProfan 11

05/09/12 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote

- Page 2 -

in the SubClassProc disembark hold The Messages from the Windows/ Controls for
SubClassing (by SubClass-procedure) activate watts.

so becomes here for %hWnd The SubClassProc activate:

Compile Mark Separation