'Out of Memory' под Windows XP

[Особист]

Люди!
Нихрена не могу понять, достала уже эта бяка!
Сделал проект на VB, откомпилил - под Win98, Win2k прёт без проблем. Даже под Windows95 работает! А под этой долбаной ХР пишет, Out of Memory...
Мож кто сталкивался... Я под ХРюшей вообще стараюсь не работать, но по=хорошему то прога должна себя на любой операционке хорошо чувствовать...

[keks-n]

Проге памяти не хватает. Причём тут WinXP?

[Особист]

А вот в том и дело, что ХРен её знает!
На остальных осях работает как надо!
К тому же на компе гиг оперативы, а прога в хучшем случае жрёт памяти мегов пять-шесть!

[keks-n]

А если под IDE?

[Хакер]

а ты уверен что это так.

Например сколько жрут другие проги.

И ведь нагрузить память не так то трудно. Одной строчки хватит

Space CLng(256) * CLng(256) * CLng(256) * CLng(256)

и потом есть ещё такое понятие как виртуальная память...

[keks-n]

Тут скорее всего, что-то неправильно спроектировано.

[Amed]

Покажи код, на котором начинается Out of memory.

[Особист]

В смысле-под IDE?

В общем, прога работает с большим количеством web-адресов.
Поскольку это кол-во всегда увеличивается, в памяти зарезервировано примерно так:

В модуле:

Public TGPs as Long, TGPURL(65535) as string, TGPInfo(65535) as string и т.д.

В общем-то мне и самому не нравится, что память впустую пропадает, но честно говоря не знаю как можно по другому.

НО !!! В любом случае прога занимает в памяти меньше места в 10 раз (!!!) чем та же Опера, и работает нормально ВЕЗДЕ, кроме этой самой WinXP

[Особист]

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

[Хакер]

Amed
Причём сама-то прога компилится нормально, а глюк возникает с exeшником...

Ага, а такой тикие слова как Run-Time тебе ничего не говорят?

[keks-n]

На самом деле пустая строка-4 байта...

[Хакер]

Что то мне подсказывает, что там можно заюзать динамический массив.

[Особист]

Run-Time - ошибка в процессе выполнения?

[Хакер]

ну типа того

ДА, естественно.

[Особист]

Хакер
Ну сторго не судите, все таки я любитель... Как можно описать динамический массив. На гугле нашёл про ReDim, но он не подходит, т.к. надо, чтоб к массиву можно было обратиться из любой процедуры любой формы...

И всё равно, я бы понял если везде, но только в ХР... ((

[keks-n]

Действительно нужны дин. массивы, но ИМХО, дело не в этом... Не может пара мегов занятой памяти давать такой эффект

[GSerg]

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

Простите... а... как redim связан со степенью доступности массива?..

[Особист]

Ну, опять же, как я понимаю, например

Sub NewSub ()

X = 255
ReDim Array1(x)

...

End sub

А чтобы все процедуры обращались к массиву, надо в начале кода описать переменные, типа
Dim Array1(255)

...

А если глубина массива уже задана, как я могу из какой-либо процедуры её поменять...

[Хакер]

GSerg, аффтар попробовал поюзать ReDim в General Declarations и видимо не то понял.

To "Особист":

Dim делай в глобальной области определения а ReDim в процедуре.

[Особист]

Действительно нужны дин. массивы, но ИМХО, дело не в этом... Не может пара мегов занятой памяти давать такой эффект

Ну вот и я об этом!
Щас попробовал поставить опцию для екзешника в WinXP как "совместимость с Win2k".. Запустилась... Проработала до первого щелчка на произвольном батоне и вылетела с тем же самым Out of memory

[Особист]

Блин туплю наверное, но

Dim x(1) As String

Private Sub Command1_Click()
ReDim x(65535)
End Sub

по нажатии пишет, что масив уже задан.

[GSerg]

Скажи мне, Особист...
В приведённой модели использования, какая нафиг разница между dim и redim?
Если ты хочешь использовать redim так, не используй его вообще.

[Хакер]

Особист, ReDim имеет смысл использовать если добавляется не 65536 элементов а произвольное количество. Я так понял что ты берёшь заведомо большое число, чтобы уж точно всё поместилось в массиве.

Но если ты заносишь в него три строчки стоит сделать это так

Код: Выделить всё

Dim x() As String

Private Sub Command1_Click()
ReDim x(NumberOfStrings)
End Sub



[Особист]

Ну, имелось в виду, что переназначить глубину массива не получается.
Конечно же, в проге оно вместо 65535 была бы изменяемая переменная.

[Хакер]

А что есть глубина массива. Многоуровневость что-ли?

[Особист]

ВСЁ! Я понял!!!

Спасибо, теперь прога жрёт меньше памяти.

Но это тем не менее ничего не меняет! В 2k нормально, в XP- простите, жопа...

[Особист]

Насчёт РеДима.

Вот есть массив, грузится он из файла или ещё откуда пох главное что массив этот заполнен скажем 100 элементами.
Вот появляется необходимость добавить 101-й...

Count=Count+1
ReDim Array1(Count)
Array1(Count) = NextRecord

В результате весь массив потёрся, за исключением последнего добавленного элемента.

[Oxygen]

А можно узнать у автора, какие он использует контролы? В смысле нестандартные?

[Особист]

А можно узнать у автора, какие он использует контролы? В смысле нестандартные?

В смысле какие ocx?
taskicon.ocx, SSubTmr6 (без неё не пашет контрол XPButton скачанный с этого же сайта), MsFlxGrd, mscomctl, comdlg32... вроде бы все))

[Хакер]

Насчёт РеДима.
Count=Count+1
ReDim Array1(Count)
Array1(Count) = NextRecord

А где презерв?