PureBasic Forums - English

CCleaner Pro
Nord VPN
Proton VPN
PureBasic
Molotov (Live TV and Replay)
UCheck
and many others.

Enumeration Window
#WinApp
EndEnumeration

If OpenWindow(#WinApp, 0, 0, 222, 70, "ButtonGadgets", #PB_Window_SystemMenu | #PB_Window_ScreenCentered)
ButtonGadget(0, 10, 10, 200, 20, "Standard Button")
ButtonImageGadget(1, 10, 40, 200, 20, 9)
SetActiveGadget(0)
Repeat
ev = WaitWindowEvent ...

Who does the questions and answers now?

If OpenWindow(0,0,0,320,200,#Null$,#PB_Window_SystemMenu|#PB_Window_WindowCentered)
Repeat
Event=WaitWindowEvent(20)
;
Select Event
;=== EVENTS SOURIS ===
Case #WM_LBUTTONUP : Debug "LEFT BUTTON UP"
Case #WM_LBUTTONDOWN : Debug "LEFT BUTTON DOWN"
Case #WM_LBUTTONDBLCLK : Debug "LEFT BUTTON ...

Hello,

Another approach I use in my applications: EnableExplicit

Enumeration Windows
#WinMain
EndEnumeration

Enumeration Menus
#MenuMain
EndEnumeration

Enumeration MenuItems
#MenuClose
EndEnumeration

Enumeration Gadget
#Button
#ButtonEnd=#Button+5
EndEnumeration

Define Event, indexMenu ...

It works for me in version 6.00 LTS, or I don't understand your problem.
If I launch PB and select a pb file in explorer, it opens in the IDE and the tab has focus.
If the IDE is not in the foreground, then it comes to the foreground as desired.
If I minimize the IDE to the taskbar before opening a ...

Hi,

Try unchecking Memorize Windows positions in General preferences

Gérard

I created a file from your data to analyze the data and extract each value.

FILE$="json-file.json"
JSON = ReadFile(#PB_Any, FILE$)
If JSON
While Eof(JSON) = 0
JSON_STRING$ + ReadString(JSON)
Wend
CloseFile(JSON)
EndIf

;Debug JSON_STRING$

Structure usage ; Not used
prompt_tokens.s ; text or ...

Thanks for the confirmation, maybe Fred can fix this in the next version of PB

Gérard

Hello,
Can you check if by modifying the menu Compiler/Compiler Options.../Executable format: with the 3 possible values, there is indeed a bug with the Shared Dll option
The Windows and Console options do return the correct value for #PB_Compiler_ExecutableFormat, but the Shared Dll option returns ...

Hello,

Thank you very much, I would not hesitate.

Sorry for my english, i am French and i live in France.

Gérard

My knowledge is limited, but always ready to learn.

Thanks for the info, everything is working fine now.

Gérard Repeat
sendLine = Input()
If sendLine = "q"
Break
Else
lenSendLine = StringByteLength(sendLine)
If lenSendLine
SendNetworkData(connectionID, @sendLine, lenSendLine)
EndIf
EndIf ...

If the client sends qwertyuiop, the server receives qwert

If the client sends qwertyuiopqwertyuiop, the client receives qwertyuiop

The server receives only half of the string sent by the client.

The received buffer length is always correct.

I tried this, and it works. Repeat
sendLine = Input ...

Hi,
I'm not KCC, but I appreciate this code.
It will be very useful to me.
G