Bienvenu au nouveau Panoramicien

dim pChars%,p1%

dim txt$
txt$  = "12345678"
print "txt$ = " + txt$
print "adr(txt$) = " + str$(adr(txt$))
pChars%=adr(txt$)
print "pChars% = adr(txt$) " + str$(pChars%)

p1%=pChars%
print "p1%=pChars% " + str$(p1%)
p1%=p1%+1
print "p1%=p1+1    " + str$(p1%)
p1%=p1%+1
print "p1%=p1+1    " + str$(p1%)

p1%=adr(txt$)+0
print "p1%=adr(txt$)+0=" + str$(p1%)
p1%=adr(txt$)+1
print "p1%=adr(txt$)+1=" + str$(p1%)
p1%=adr(txt$)+2
print "p1%=adr(txt$)+2=" + str$(p1%)

end

dll_on "kernel32.dll"

label AllocConsole,FreeConsole,WriteConsole,GetStrAdr
dim hConsole%,txt$,nBytes%,ret%,pChars%
dim STD_INPUT_HANDLE%,STD_OUTPUT_HANDLE%,STD_ERROR_HANDLE%

STD_INPUT_HANDLE%  = -10
STD_OUTPUT_HANDLE% = -11
STD_ERROR_HANDLE%  = -12

'
' main
'
txt$ = "hello, world!"

' create and open a windows console
gosub AllocConsole

' get address of the string
pChars%=adr(txt$)
' print the string at address pChars
gosub WriteConsole :' wrong

' now get the real address of the chars
gosub GetStrAdr
' print the string at address pChars
gosub WriteConsole :' ok
' waiting a litle bit
wait 3000

' destroy the console
gosub FreeConsole
' thats all for now
terminate


AllocConsole:
ret%=dll_call0("AllocConsole")
hConsole%=dll_call1("GetStdHandle",STD_OUTPUT_HANDLE%):return

FreeConsole:
ret%=dll_call0("FreeConsole"):return

WriteConsole:
ret%=dll_call5("WriteFile",hConsole%,pChars%,len(txt$),adr(nBytes%),0):return

GetStrAdr:
' adr(txt$) points to an pointer with the address of the chars
' now we copy from pChars the new address back in pChars.
ret% = dll_call3("RtlMoveMemory",adr(pChars%),pChars%,4)
return

label SetClipboard

dim GHND%,CF_TEXT%,MAXSIZE%
dim hGlobalMemory%,lpGlobalMemory%
GHND%=66 : ' 0x42
CF_TEXT%=1
MAXSIZE%=4096

SetClipboard:
  dll_on "kernel32.dll"
  hGlobalMemory% = dll_call2("GlobalAlloc",GHND%,len(txt$)+1)
  lpGlobalMemory% = dll_call1("GlobalLock",hGlobalMemory%)
  ret% = dll_call3("RtlMoveMemory",adr(pChars%),pChars%,4)
  lpGlobalMemory% = dll_call2("lstrcpy",lpGlobalMemory%,pChars%)
  lpGlobalMemory% = dll_call1("GlobalUnlock",hGlobalMemory%)
  dll_off
  wait 1000
  dll_on "User32.dll"
  ret%=0
  ret%=dll_call1("OpenClipboard",ret%)
  ret%=dll_call2("SetClipboardData",CF_TEXT%,hGlobalMemory%)
  ret%=dll_call0("CloseClipboard")
  dll_off
return

dll_on "kernel32.dll"

label ReadByte0,ReadByte1,ReadByte2,ReadByte3,Read4Bytes,GetCharPointer

dim ret%,pAdr,pChar%,txt$,b$,Byte%

txt$="AbCd"

print "string is '"; txt$; "'"
pAdr=adr(txt$):pChar%=pAdr
print "adr(txt$) points inside the decriptor "; pAdr
gosub ReadByte0:print "pAdr[0] = "; chr$(Byte%)
gosub ReadByte1:print "pAdr[1] = "; chr$(Byte%)
gosub ReadByte2:print "pAdr[2] = "; chr$(Byte%)
gosub ReadByte3:print "pAdr[3] = "; chr$(Byte%)
print

gosub GetCharPointer
print "the real char pointer is = "; pChar%
gosub ReadByte0:print "pChar[0] = "; chr$(Byte%)
gosub ReadByte1:print "pChar[1] = "; chr$(Byte%)
gosub ReadByte2:print "pChar[2] = "; chr$(Byte%)
gosub ReadByte3:print "pChar[3] = "; chr$(Byte%)
print

pChar%=pChar%-4
print "this pointer points to nChars = "; pChar%
gosub Read4Bytes:print "len(txt$) = "; byte%
print

pChar%=pChar%-4
print "this pointer points to nRefs = "; pChar%
gosub Read4Bytes:print "ref counter is "; byte%
b$=txt$
print "after we make a copy of txt$ (b$=txt$)"
gosub Read4Bytes:print "ref counter is now "; byte%

end

ReadByte0:
ret%=DLL_CALL3("RtlMoveMemory",adr(Byte%),pChar%,1):return
ReadByte1:
ret%=DLL_CALL3("RtlMoveMemory",adr(Byte%),pChar%+1,1):return
ReadByte2:
ret%=DLL_CALL3("RtlMoveMemory",adr(Byte%),pChar%+2,1):return
ReadByte3:
ret%=DLL_CALL3("RtlMoveMemory",adr(Byte%),pChar%+3,1):return
Read4Bytes:
ret%=DLL_CALL3("RtlMoveMemory",adr(Byte%),pChar%,4):return
GetCharPointer:
ret%=DLL_CALL3("RtlMoveMemory",adr(pChar%),pChar%,4):return

adr(txt$) = 15894332

          address        value

adr()-> 15894332  :  16576308   

        16576300-03  ref counter
        16576304-07  Len(Txt$)
        16576308-11  'AbCd'