PureBasic - форум

Информация о пользователе

Привет, Гость! Войдите или зарегистрируйтесь.

Вы здесь » PureBasic - форум » PureBasic для Windows » Исследование опасности функций работы с памятью

Исследование опасности функций работы с памятью

Страница: 1

Сообщений 1 страница 2 из 2

1

  • Автор: SadStar
  • Активный участник
  • Зарегистрирован: 19.09.2011
  • Приглашений: 0
  • Сообщений: 168
  • Уважение: [+2/-0]
  • Позитив: [+0/-0]
  • Провел на форуме:
    3 дня 11 часов
  • Последний визит:
    21.06.2023 08:59:22
Код:
OpenConsole()

txt$="1234567890123456789" //19 байтов
*mem=AllocateMemory(10) //10 байтов
PrintN("MemorySize="+Str(MemorySize(*mem)))
If *mem
	PokeS(*mem,txt$) //пишем 19 байтов в блок размером 10 байтов
	PrintN(PeekS(*mem)) //читаем строку до zero-byte
	PrintN("MemorySize="+Str(MemorySize(*mem)))
EndIf

PrintN("Press Escape to exit")
Repeat
	KeyPressed$ = Inkey()
	Delay(20)
Until KeyPressed$ = Chr(27)

правильно ли я понял что при сохранении строки 19 байт в блок памяти размером 10 байт
9 байт были записаны на нераспределённое место?
И затерли бы расположенные там данные?

0

2

  • Автор: Пётр
  • Активный участник
  • Зарегистрирован: 14.06.2009
  • Приглашений: 0
  • Сообщений: 2944
  • Уважение: [+96/-5]
  • Позитив: [+1/-0]
  • Пол: Мужской
  • Провел на форуме:
    2 месяца 9 дней
  • Последний визит:
    Вчера 21:40:41

Эта строка занимает не 19 байт, а 20 в ascii и 40 в unicode формате. Чтобы находить такие ситуации нужно в настройках компилятора на вкладке "Компиляция/Запуск" поставить галочку в "Включить Purifier". Тогда отладчик сообщит о записи за пределами выделенной памяти.

[ОШИБКА] Строка: 7
[ОШИБКА] Overflow in a dynamically allocated memory block.

Правильнее этот код написать так

Код:
OpenConsole()

txt$="1234567890123456789" ;//19 байтов
*mem=AllocateMemory(StringByteLength(txt$)+SizeOf(Character)) ;//10 байтов
PrintN("MemorySize="+Str(MemorySize(*mem)))
If *mem
	PokeS(*mem,txt$) ;//пишем 19 байтов в блок размером 10 байтов
	PrintN(PeekS(*mem)) ;//читаем строку до zero-byte
	PrintN("MemorySize="+Str(MemorySize(*mem)))
EndIf

PrintN("Press Escape to exit")
Repeat
	KeyPressed$ = Inkey()
	Delay(20)
Until KeyPressed$ = Chr(27)

0

Страница: 1

Вы здесь » PureBasic - форум » PureBasic для Windows » Исследование опасности функций работы с памятью