Code:
FUNCTION PBMAIN () AS LONG LOCAL s1,s2 AS STRING LOCAL p1,p2 AS LONG s1 = "a" s2 = "b" s1 = STRPTR(s1) p2 = STRPTR(s2) ? USING$("#",p2-p1) END FUNCTION
FUNCTION PBMAIN () AS LONG LOCAL s1,s2 AS STRING LOCAL p1,p2 AS LONG s1 = "a" s2 = "b" s1 = STRPTR(s1) p2 = STRPTR(s2) ? USING$("#",p2-p1) END FUNCTION
FUNCTION PBMAIN () AS LONG LOCAL s1,s2 AS STRING LOCAL p1,p2 AS LONG s1 = "a" s2 = "b" p1 = STRPTR(s1) p2 = STRPTR(s2) ? USING$("#",p2-p1) END FUNCTION
FUNCTION PBMAIN () AS LONG LOCAL s1,s2 AS STRING LOCAL p1,p2 AS LONG s1 = "a" s2 = "b" p1 = STRPTR(s1) p2 = STRPTR(s2) ? USING$("#",p2-p1) END FUNCTION
#COMPILE EXE GLOBAL sBuff1 AS STRING FUNCTION PBMAIN () AS LONG STATIC sBuff2 AS STRING LOCAL sBuff3 AS STRING LOCAL p1,p2,p3 AS STRING PTR LOCAL v1,v2,v3 AS STRING PTR sBuff1 = "a" sBuff2 = "b" sBuff3 = "c" p1 = STRPTR(SBuff1) p2 = STRPTR(SBuff2) p3 = STRPTR(SBuff3) v1 = VARPTR(sBuff1) v2 = VARPTR(sBuff2) v3 = VARPTR(sBuff3) ? USING$("# # # # # # ", p1,p2,p3,v1,v2,v3) END FUNCTION '
#COMPILE EXE #STACK 131072 FUNCTION PBMAIN () AS LONG LOCAL sBuff AS STRING sBuff = STRING$(200000,0) '... END FUNCTION '
#COMPILE EXE #INCLUDE "win32api.inc" '-- Winsock documentation for recv() - which conflicts with PB RECV. 'int recv( ' SOCKET s, ' char *buf, ' int len, ' int flags '); DECLARE FUNCTION wsRecv LIB "Ws2_32.dll" ALIAS "recv" ( _ BYVAL hSock AS LONG, _ ' s BYVAL lpBuf AS LONG, _ ' *buf BYVAL bufSize AS LONG, _ ' len BYVAL flags AS LONG _ ' flags ) AS LONG FUNCTION PBMAIN () AS LONG LOCAL ret, hSock AS LONG LOCAL sBuff AS STRING sBuff = STRING$(65535, 0) '... Code to start Winsock and create/open a socket goes here ret = wsRecv ( _ hSock, _ STRPTR(sBuff), _ '<--- Ptr to buffer that will not change in size while LEN(sBuff), _ ' waiting for wsRecv to complete 0 _ ) IF ret = %SOCKET_ERROR THEN ret = GetLastError PRINT "wsRecv failed with err =" ret ELSE PRINT "Number of bytes received =" ret END IF WAITKEY$ END FUNCTION
' ¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤ #include "\basic\include\win32api.inc" ' ¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤ FUNCTION PBmain as LONG LOCAL pMem as DWORD pMem = GlobalAlloc(%GMEM_FIXED,65536) ' Alloc 64 k StdOut format$(pMem) pMem = GlobalReAlloc(pMem,65536*2,%GMEM_MOVEABLE) ' ReAlloc to 128 k StdOut format$(pMem) pMem = GlobalReAlloc(pMem,65536,%GMEM_MOVEABLE) ' ReAlloc back to 64 k again StdOut format$(pMem) waitkey$ End FUNCTION ' ¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤
10352008 10417552 10417552
We process personal data about users of our site, through the use of cookies and other technologies, to deliver our services, and to analyze site activity. For additional details, refer to our Privacy Policy.
By clicking "I AGREE" below, you agree to our Privacy Policy and our personal data processing and cookie practices as described therein. You also acknowledge that this forum may be hosted outside your country and you consent to the collection, storage, and processing of your data in the country where this forum is hosted.
Leave a comment: