Thread creation error недостаточно памяти для обработки команды

Developing.ru

Как бороться с “thread creation error: Недостаточно памяти..

Мастера подскажите, как бороться с “thread creation error: Недостаточно памяти для обработки команды”, говорит, что, мол, мало памяти, хотя под стек выделено 256M <$M 16384,268435456>, на машине стоит 512М, в диспетчере задач приложение показывает, что для приложения выделено около 5M. Пишу на Delphi 7 под WinXP.
Может, кто сталкивался с такой бедой, из каких соображений принимается решение, что не хватает памяти. До того как в проге было мало элементов (меньше сотни кнопок, меток и т.д.) такое сообщение не выскакивало, сейчас их несколько сотен, такое сообщение выскакивает, после того, как вызываю play_sound для проигрывания wav файла, но ф-н sndPlaySound все время выдает FALSE, хотя перенес этот модуль из старого проекта там все работало, а после этого еще раз play_sound но для пробирования тона, процесс (Thread) созданный sndPlaySound так и остается, а звука нет. Причем если вызывать sndPlaySound с тем же именем файла, но указанным как константа – звук есть, если же переменная (PChar) – звука нет.

Содержание ComboBox’ов (ItemIndex = -1 если задал имя файла ):
нет
100 Гц, 1 гудок
100 Гц, 2 гудка
200 Гц, 1 гудок
200 Гц, 2 гудка
300 Гц, 1 гудок
300 Гц, 2 гудка
500 Гц, 1 гудок
500 Гц, 2 гудка
700 Гц, 1 гудок
700 Гц, 2 гудка
1000 Гц, 1 гудок
1000 Гц, 2 гудка
1500 Гц, 1 гудок
1500 Гц, 2 гудка
2000 Гц, 1 гудок
2000 Гц, 2 гудка

type
TPlayToneThread = class(TThread) // Поток проигрывания тона
private
Frequency: integer; // Частота тона, Гц
Duration: integer; // Длительность выдачи тона, мс
Count: integer; // Кол-во выдаваемых тонов
protected
procedure Execute; override; // Исполняемая часть
end;

Источник

Как исправить ошибку «Недостаточно памяти для обработки команды» в Windows?

Ошибка «Недостаточно памяти для обработки команды» встречается на серверах Windows и возникает при неправильно установленном значении реестра, а также после сброса или переустановки.

Для ее решения Майкрософт рекомендует изменить значение в определенном разделе реестра. Если проблема сохраняется, нет другого выбора, кроме как выполнить восстановление системы.

Внесение изменений в системный реестр

В большинстве случаев устранить проблему с недостаточно выделенной памятью для обработки команды можно путем использования официального решения. Для его применения требуется доступ администратора. Нужно внести изменения в раздел. Если его нет, создадим вручную.

Примечание: Параметр «IRPStackSize» нужно поменять на том компьютере, к файлам которого мы обращаемся.

Поскольку будем вносить правки в системный реестр, рекомендуется создать резервную копию. Для этого разверните меню Файл, щелкните на Экспорт и выберите папку для сохранения копии.

Откройте Редактор реестра командой regedit из окна «Выполнить» (Win + R).

Перейдите по пути к разделу:

Найдите запись IRPStackSize. Если ее не существует, щелкните в правой части окна на пустое пространство, выберите Создать – Параметр DWORD (32 бита).

Установите имя нового параметра «IRPStackSize», щелкните правой кнопкой мыши на него и выберите «Изменить».

В поле значение установите большее число и нажмите на «OK». Значения находятся в пределах от 0x1 до 0xC. Они эквивалентны от 1 до 12 в десятичной системе исчисления.

После внесения требуемых изменений перезагрузите компьютер и проверьте, исправлена ли ошибка. Если она остается, увеличивайте значение до тех пор, пока не будет исправлена.

Переустановка драйвера видеокарты

Если ошибка возникает при запуске игры, возможно, что драйвер видеокарты поврежден или устарел. Для решения его нужно полностью удалить перед установкой нового, поэтому потребуется утилита DDU (Display Driver Uninstaller). Загрузите утилиту с официального сайта.

После установки перезапустите компьютер в безопасном режиме. Если используете Windows 10, откройте меню Пуск, кликните на кнопку Питания и, удерживая клавишу Shift, нажмите на Перезагрузку.

В среде восстановления перейдите по пути Поиск и устранение неисправностей – Дополнительные параметры – Параметры загрузки, затем нажмите на F4, чтобы загрузить систему в безопасном режиме.

Запустите DDU, укажите графический процессор и выберите первый вариант «Удалить и перезагрузить». Приложение автоматически удалит текущие драйвера, затем перезагрузит компьютер.

Запустите приложение GeForce Experience, откройте вкладку «Драйверы» и скачайте последнюю версию.

После обновления перезапустите ПК. Проверьте, исправлена ли ошибка. Если видите, что для обработки команды по-прежнему недостаточно ресурсов памяти перейдите к следующему способу.

Также обновить драйвер можно путем загрузки из сайта NVIDIA или AMD и последующего запуска загруженного файла.

Удаление файлов временной папки

Если продолжаете наблюдать, что недостаточно требуемой памяти для обработки этой команды, попробуйте очистить временную папку. Эта папка содержит много системных конфигураций, которые иногда используются системой. Можно всегда создать ее резервную копию, если потребуется вернуть обратно.

Нажмите Win + R, чтобы вызвать окно «Выполнить», наберите %temp% и щелкните на «ОК».

Совместным нажатием Ctrl + A отметьте все записи, кликните на кнопку Удалить.

После перейдите на локальный диск C, откройте каталог Temp и также очистите все содержимое. Перезагрузите ПК и посмотрите, возникает ли ошибка, указывающую на недостаточную память при обработке команды.

Источник

Мастера подскажите, как бороться с “thread creation error: Недостаточно памяти для обработки команды”, говорит, что, мол, мало памяти, хотя под стек выделено 256M {$M 16384,268435456}, на машине стоит 512М, в диспетчере задач приложение показывает, что для приложения выделено около 5M. Пишу на Delphi 7 под WinXP.
Может, кто сталкивался с такой бедой, из каких соображений принимается решение, что не хватает памяти. До того как в проге было мало элементов (меньше сотни кнопок, меток и т.д.) такое сообщение не выскакивало, сейчас их несколько сотен, такое сообщение выскакивает, после того, как вызываю play_sound для проигрывания wav файла, но ф-н sndPlaySound все время выдает FALSE, хотя перенес этот модуль из старого проекта там все работало, а после этого еще раз play_sound но для пробирования тона, процесс (Thread) созданный sndPlaySound так и остается, а звука нет. Причем если вызывать sndPlaySound с тем же именем файла, но указанным как константа – звук есть, если же переменная (PChar) – звука нет.

Содержание ComboBox’ов (ItemIndex = -1 если задал имя файла ):
нет
100 Гц, 1 гудок
100 Гц, 2 гудка
200 Гц, 1 гудок
200 Гц, 2 гудка
300 Гц, 1 гудок
300 Гц, 2 гудка
500 Гц, 1 гудок
500 Гц, 2 гудка
700 Гц, 1 гудок
700 Гц, 2 гудка
1000 Гц, 1 гудок
1000 Гц, 2 гудка
1500 Гц, 1 гудок
1500 Гц, 2 гудка
2000 Гц, 1 гудок
2000 Гц, 2 гудка

type
TPlayToneThread = class(TThread) // Поток проигрывания тона
private
Frequency: integer; // Частота тона, Гц
Duration: integer; // Длительность выдачи тона, мс
Count: integer; // Кол-во выдаваемых тонов
protected
procedure Execute; override; // Исполняемая часть
end;

//———————————— Выдать на динамик тон —————————————-
procedure Sound(Frequency, Duration: Integer);
asm
push edx
push eax
mov eax, Win32Platform
cmp eax, VER_PLATFORM_WIN32_NT
jne @@9X
call Windows.Beep
ret
@@9X:
pop eax
pop edx
push ebx
push edx
mov bx, ax
mov ax, 34DDh
mov dx, 0012h
cmp dx, bx
jnc @@2
div bx
mov bx, ax
in al, 61h
test al, 3
jnz @@1
or al, 3
out 61h, al
mov al, 0B6h
out 43h, al
@@1:
mov al, bl
out 42h, al
mov al, bh
out 42h, al
call Windows.Sleep
in al, 61h
and al, 0FCh
out 61h, al
jmp @@3
@@2:
pop edx
@@3:
pop ebx
end;

//——————————— Реализация потока проигрывания тона —————————-
procedure TPlayToneThread.Execute;
begin
FreeOnTerminate:=True; // По завершению работы освободить память
while Count>0 do
begin
Sound(Frequency,Duration);
sleep(Duration);
dec(Count);
end;
Terminate; // На всяк случай завершаем поток
end;

//——————————— Процедура завершения потока ————————————
procedure TfmOSC_Buzzer.end_thread(Sender: TObject);
begin
PlayToneThread:=nil; // На всяк случай уничтожаем объект
end;

//————————————— Проиграть звук ———————————————
procedure TfmOSC_Buzzer.play_sound(cbSound: TComboBox; play: boolean = false);
const
Duration: integer = 75;
var
Frequency, Count: integer;
begin
if cbSound.ItemIndex=0 then exit; // Если нечего проигрывать то выходим

if cbSound.ItemIndex<0 then // Если это *.wav файл
try
sndPlaySound(PChar(cbSound.Text),SND_ASYNC); // то просто проигрываем его
except
end
else begin
Frequency:=StrToInt(Trim(Copy(cbSound.Text,1,4))); // Определили частоту и кол-во гудков
if Odd(cbSound.ItemIndex) then Count:=1 else Count:=2;
if IsWindowsNT then
begin
{
if PlayToneThread<>nil then // Если поток существует
if not PlayToneThread.Terminated then // Да он еще и не завершен
begin
if play then // Если нужно проиграть
PlayToneThread.Terminate // то завершили поток
else // Если событие
exit; // то выходим
end;
PlayToneThread:=TPlayToneThread.Create(true); // Создаем поток
PlayToneThread.OnTerminate:=end_thread; // Задали процедуру завершения
PlayToneThread.Priority:=tpNormal; // Задаем нормальный приоритет потоку
PlayToneThread.Frequency:=Frequency;
PlayToneThread.Duration:=Duration;
PlayToneThread.Count:=Count;
PlayToneThread.Resume; // Запускаем поток
}
{}
while Count>0 do
begin
Sound(Frequency,Duration);
sleep(Duration);
dec(Count);
end;
{}
end
else begin
while Count>0 do
begin
Sound(Frequency,Duration);
sleep(Duration);
dec(Count);
end;
end;
end;
end;

Недостаточно ресурсов памяти