Отправлено Kenat 06 марта 2006 г. 13:53 В ответ на: Вопрос по Дельфям. Профан в дельфях, но надо сделать программку в которой должен быть массив на 150000 байт. В хелпе сказано, что ограничение массива 2 гига. На деле же при создании массива более 38000 элементов компиляция происходит криво, хотя сообщений об ошибках нет. Что делать? отправлено <font color=gray>_igor_u</font> 06 марта 2006 г. 12:28

создаёте файл ресурса, resource.rc

в нём добавлятете строку
ITS_NEW_IMAGE RCDATA "c:\image.bin"

копилите программу
имеете доступ к ресурсу в вашем типа

 HGLOBAL hRes         = NULL;
 HRSRC   hResData     = NULL;
 char    *SQLResource = NULL;
 DWORD   resSize      = 0;
 bool ret_result;
 ret_result=true;
 PToStr->Clear();
 if ( (hRes = FindResource( NULL, "ITS_NEW_IMAGE", RT_RCDATA)) != NULL ) {
  if ( (hResData = LoadResource(  NULL, hRes )) != NULL ){
   resSize = SizeofResource( NULL, hRes );
   if ( (SQLResource =(char*) LockResource( hResData )) != NULL ) {
    SQLResource - указатель на массив ... 
    UnlockResource( hResData );
   }//if ( (SQLResource =(char*) LockResource( hResData )) != NULL )
   else ret_result=false;
  }//if ( (hResData = LoadResource(  NULL, hRes )) != NULL )
  else ret_result=false;
 }//if ( (hRes = FindResource( NULL, ResourceName.c_str(), RT_RCDATA)) != NULL )
 else ret_result=false;
 return ret_result;
}

• Да. Спасибо. Похоже это выход. — _igor_u   (06.03.2006 14:11 62.33.25.238, пустое)

E-mail: info@telesys.ru