ReplaceString
Publié : lun. 24/mai/2004 23:55
La bidouille suivante semble fonctionner pour toutes les fonctions concernant les textes, SAUF avec ReplaceString.
Code : Tout sélectionner
;************************************************************
;* Le truc de Fred pour augmenter la taille du buffer texte *
;* et éviter les plantage quand on manipule des grandes *
;* chaines de caractères. *
;************************************************************
Procedure SetStringManipulationBufferSize(Bytes)
PBStringBase.l = 0
PBMemoryBase.l = 0
!MOV eax, dword [PB_StringBase]
!MOV [esp+4],eax
!MOV eax, dword [PB_MemoryBase]
!MOV [esp+8],eax
HeapReAlloc_(PBMemoryBase, #GMEM_ZEROINIT, PBStringBase, Bytes)
!MOV dword [_PB_StringBase],eax
EndProcedure
; Set the buffer size for all strings to 1 MB.
SetStringManipulationBufferSize(1000000)