Show Posts
This section allows you to view all posts made by this member. Note that you can only see posts made in areas you currently have access to.
In file included from C:\Users\James\AppData\Local\Temp\glbasic\gpc_tempg.cpp:2:
C:\Users\James\AppData\Local\Temp\glbasic\gpc_temp.h:8: error: `Anything' was not declared in this scope
C:\Users\James\AppData\Local\Temp\glbasic\gpc_temp.h:8: error: `Anything' was not declared in this scope
C:\Users\James\AppData\Local\Temp\glbasic\gpc_temp.h:8: error: initializer expression list treated as compound expression
DGInt SortFunc(Anything A, Anything B);TYPE MyType
var%
ENDTYPE
LOCAL Array[] AS MyType
SORTARRAY Array[], ADDRESSOF(SortFunc)
FUNCTION SortFunc: BYREF A AS MyType, BYREF B AS MyType
IF A.var > B.var THEN RETURN 1
IF A.var < B.var THEN RETURN -1
RETURN 0
ENDFUNCTION
// 1) Try with the 'close then reopen' commented. Everything works as expected.
// 2) Try with the 'close then reopen' uncommented. Only broadcast messages get through.
// 3) Do the same and try pressing 'enter'. It's as if SOCK_SHUTDOWN properly closes the sockets, and SOCK_CLOSE doesn't...
LOCAL HostS%, ClientS%
SOCK_INIT()
HostS% = SOCK_UDPOPEN(11111)
ClientS% = SOCK_UDPOPEN(11112)
// If the socket is closed and then reopened, only broadcast messages are received.
//
// Try commmenting and uncommenting this:
//---------------------------------------
SOCK_CLOSE(ClientS%)
ClientS% = SOCK_UDPOPEN(11112)
//---------------------------------------
LOCAL Msg$
WHILE NOT KEY(1)
// Press spacebar to send a broadcast and specific message:
IF KEY(57)
SOCK_UDPSEND(HostS, "Broadcast\r\n", SOCK_GETIP("255.255.255.255"), 11112)
SOCK_UDPSEND(HostS, "Specific\r\n", SOCK_GETIP("127.0.0.1"), 11112)
WHILE KEY(57); WEND
ENDIF
// Press enter to 'reset' networking - after this both broadcasted and specific messages get through.
// It's as if SOCK_SHUTDOWN properly unregisters all of the sockets, but SOCK_CLOSE doesn't.
IF KEY(28)
SOCK_SHUTDOWN
SOCK_INIT()
HostS% = SOCK_UDPOPEN(11111)
ClientS% = SOCK_UDPOPEN(11112)
ENDIF
IF SOCK_RECV(ClientS, Msg$, 16) THEN DEBUG Msg$
SHOWSCREEN
WEND
END// Extended type declaration...
TYPE ExtType
Var // One variable...
FUNCTION Dummy: // One function...
ENDFUNCTION
ENDTYPE
// Create the array...
LOCAL TypeArray[] AS ExtType
DIM TypeArray[1]
// Variables for demonstration:
LOCAL a = 0, b = 0, c = 0, d
d= TypeArray[0].Dummy() // Compiles
d= TypeArray[a].Dummy() // Compiles
d= TypeArray[a + b + c].Var // Compiles
d= TypeArray[0 + 0].Dummy() // Doesn't compile
d= TypeArray[ (0 + 0) ].Dummy() // Doesn't compile
d= TypeArray[0 * 0].Dummy() // Doesn't compile
d= TypeArray[a + b].Dummy() // Doesn't compile
d= TypeArray[ (a + b) ].Dummy() // Doesn't compile
KEYWAIT
ENDSTARTDATA MyData:
ENDDATAcauses the compiler to report a "syntax error" at the STARTDATA line for me...IMPORT "C" const char* GLB_iBT_Recv()'Creates' a new function in the IDE called "char*" rather than GLB_iBT_Recv().IMPORT "C" long int hello()
TYPE DECL_POINT
x%
y%
ENDTYPE
INLINE
DECLARE(ClientToScreen,"user32.dll",(void*, DECL_POINT*),int);
DECLARE(SetCursorPos,"user32.dll",(long x, long y),int);
ENDINLINE
//You can change 'Width' and 'Height' to constants if you wont change the project size - should be faster to do so.
GLOBAL MyPOINT AS DECL_POINT
GETSCREENSIZE MyPOINT.x, MyPOINT.y
MyPOINT.x = MyPOINT.x / 2
MyPOINT.y = MyPOINT.y / 2
FUNCTION MoveCursorMiddle:
INLINE
ClientToScreen(GLBASIC_HWND(), &MyPOINT);
SetCursorPos(MyPOINT.x, MyPOINT.y);
ENDINLINE
ENDFUNCTION