Bug avec a$=b$

' demo du bug avec les variables string

dim a$, b$, c$ : ' définition de deux variables
dim res%      : ' pour appel des fonctions DLL

a$ = string$(25," ") : ' charger a$ par 25 espaces
b$ = a$              : ' en faire une copie
                    : ' ici, on devrait avoir deux chaînes distinctes, avec les mêmes données
c$ = a$ + " "        : ' ici, on a une nouvelle chaîne de 26 espaces

dll_on "KGF.dll"    : ' ouvrir KGF.dll
                   
res% = dll_call1("KGFdllVersion",adr(a$))
message "a$="+a$    : ' variable chargée par la fonction DLL
message "b$="+b$    : ' il ne devrait y avoir que des espaces !
                    : ' or, on a un contenu identique à a$ !
message "c$="+c$    : ' ici, on a bien une variable indépendante
                   
' ceci prouve que la ligne "b$ = a$" est implémentée par un équivalant Delphi de:
'  var
'    a, b: string;
'  begin
'    a := StringOfChar(' ',25);
'    b := a;
' Et l'on sait que dans ce cas, les données ne cont pas copiées.
' Seul un pointeur sur les données de a est copié.

end

dim a$, b$

a$ = "abcd"
b$ = a$

print a$
print b$

end

#include"MemoryModule.bi"
#include"incfile.bi"
IncFile(DLLdata,"panoramic.dll")
#lang "fblite"
option gosub
#include once"windows.bi"
dim shared _handl as HWND
dim shared _library as HMEMORYMODULE
_library = MemoryLoadLibrary(DLLdata)
dim shared pc_init as sub stdcall _
(byval operand1 as handle)
pc_init=MemoryGetProcAddress(_library,"pc_init")
dim shared pc_close as sub
pc_close=MemoryGetProcAddress(_library,"pc_close")
DIM SHARED V_NUMBER_3D_OBJECTS AS DOUBLE
DIM SHARED V_NUMBER_3D_TARGET AS DOUBLE
DIM SHARED V_A AS STRING
DIM SHARED V_B AS STRING
dim shared pc_print_string as sub stdcall _
(byval P1 as string)
pc_print_string=MemoryGetProcAddress(_library,"pc_print_string")
declare function WinMain _
(byval _hInstance as HINSTANCE,_
byval _hPrevInstance as HINSTANCE,_
byval _szCmdLine as string,_
byval _iCmdShow as integer)as integer
end WinMain(GetModuleHandle(null),null,Command(),SW_NORMAL)
function WndProc _
(byval _hWnd as HWND,_
byval _wMsg as UINT,_
byval _wParam as WPARAM,_
byval _lParam as LPARAM)as LRESULT
function=0
select case(_wMsg)
case WM_CREATE
exit function
case WM_DESTROY
pc_close()
sleep 200
MemoryFreeLibrary(_library)
PostQuitMessage(0)
exit function
end select
function=DefWindowProc(_hWnd,_wMsg,_wParam,_lParam)
end function
function WinMain (byval _hInstance as HINSTANCE,_
byval _hPrevInstance as HINSTANCE,_
byval _szCmdLine as string,_
byval _iCmdShow as integer)as integer
dim _wMsg as MSG
dim _wcls as WNDCLASS
dim _hWnd as HWND
function=0
with _wcls
.style=CS_HREDRAW or CS_VREDRAW
.lpfnWndProc=@WndProc
.cbClsExtra=0
.cbWndExtra=0
.hInstance=_hInstance
.hIcon=LoadIcon(NULL,IDI_APPLICATION)
.hCursor=LoadCursor(NULL,IDC_ARROW)
.hbrBackground=GetStockObject(WHITE_BRUSH)
.lpszMenuName=NULL
.lpszClassName=@"HelloWin"
end with
if(RegisterClass(@_wcls)=FALSE)then
MessageBox(null,"Failed to register _wcls","Error",MB_ICONERROR)
exit function
end if
_hWnd = CreateWindowEx(0,_
@"HelloWin",_
"PANORAMIC",_
WS_OVERLAPPEDWINDOW,_
10,_
10,_
200,_
100,_
NULL,_
NULL,_
_hInstance,_
NULL)
_handl=_hWnd
UpdateWindow(_hWnd)
pc_init(_hWnd)
sleep 100
V_A="abcd"
V_B=V_A
pc_print_string(V_A)
pc_print_string(V_B)
goto _end
_end:
while(GetMessage(@_wMsg,NULL,0,0)<>FALSE)
TranslateMessage(@_wMsg)
DispatchMessage(@_wMsg)
wend
function=_wMsg.wParam
end function

dim a$, b$

a$ = "abcd"
b$ = a$

print a$
print b$

end

dim a$, b$
dim a0%, i%, ax%(3), az%

a$ = "abcd"
b$ = a$

a0% = adr(a$)
print "adr(a$)="+hex$(a0%)

az% = 0
for i%=0 to 3
  ax%(i%) = peek(a0%+i%)
next i%
for i%=3 to 0 step -1
  az% = az%*256 + ax%(i%)
next i%
print "adresse des données="+hex$(az%)
print "premier caractère="+chr$(peek(az%))
print " "

a0% = adr(b$)

print "adr(b$)="+hex$(a0%)

az% = 0
for i%=0 to 3
  ax%(i%) = peek(a0%+i%)
next i%
for i%=3 to 0 step -1
  az% = az%*256 + ax%(i%)
next i%
print "adresse des données="+hex$(az%)
print "premier caractère="+chr$(peek(az%))

print
print "===> l'adresse des données est la même !"

extern "Windows-MS"

 function StrFunc(byref p as zstring ptr) as integer export
   dim as string s = *p
   s = ucase(s)
   *p = s
   return 0
 end function
 
end extern

dim a$, b$, res%

a$ = "abcd"
b$ = a$

dll_on "fbdll.dll"

res% = dll_call1("StrFunc", adr(a$))

print a$
print b$

dll_off
end