Версия для печати темы

Автор: TarasBer 22.10.2012 13:11

Я тут когда-то выкладывал программу, которая графики рисует и всё такое.
Мне вдруг эта программа очень понадобилась, но старые ехе не сохранились нигде.
Программа собрана в GNAT2010.
Однако при сборке в GNAT2011 выдаётся предупреждение, что-то типа что вызывается инициализатор объекта, которого не существует и типа будет ошибка при запуске (повторить флаги, при которых выдаётся это предупреждение, не удалось). И вправду, exe при запуске сразу закрывается.

Плюс со средой что-то стало: при попытке запустить программу (даже новую) из среды выдаётся ошибка:

Переустановка не помогает.

В общем, что делать (с проектом (где в нём ошибка) и средой), программа вдруг стала позарез нужна?
На всякий случай добавляю исходники, в том виде, в котором у меня они есть.



Прикрепленные файлы
 Func_Graph_Test.rar ( 26.11 килобайт ) Кол-во скачиваний: 512

Автор: IUnknown 22.10.2012 19:55

Где б взять еще 2011, чтобы проверить...

2012 прекрасно собирает проект, и запускает, кстати:

только изменил первую строку GPR-файла на

with "win32ada.gpr";

, и изменил структуру папок:

(так они должны быть судя по GPR-файлу, вот по этой записи: for Source_Dirs use (".", "..\UNITS\**"); папка где лежит GPR должна быть на одном уровне с папкой UNITS, а не UNITS должен быть вложен в нее).

Кроме этого, нашел на старом диске версию, скомпилированную еще GNAT 2009-ым (тот самый проект, который ты выкладывал как-то на форум), но запустить у меня ее, естественно, не получилось, поскольку DLL-ки уже обновились, и требуются другие версии. Но на всякий случай приложу результат компиляции 2009-ой версией тоже. Вот:
 func_graph_test_09.zip ( 287.24 килобайт ) Кол-во скачиваний: 639

 func_graph_test_12.zip ( 215.92 килобайт ) Кол-во скачиваний: 638

Автор: -TarasBer- 22.10.2012 20:50

Во, за екзешник спасибо, очень нужен!
Правда ерунда с кодировкой в заголовке окна смущает, но это ладно.

Новая структура папок мне не нравится, ибо по замыслу UNITS она как бы одна на все проекты.

Автор: IUnknown 22.10.2012 22:34

Ерунда с кодировкой - это из-за нерусифицированной Windows. В русскоязычной (или с применением AppLocale, позволяющей имитировать таковую) все нормально. Тот же EXE-шник, запущенный на XP через AppLocale:

Автор: TarasBer 23.10.2012 9:24

А заголовки окон в английской версии быть русскими не могут?
Дело в том, что я пытался и сами окна создавать через CreateWindowW, но в заголовке была какая-то ерунда, хотя я текст в них отправлял так же, как и в кнопки, поля ввода итд, поэтому я для окон сделал исключение.

Автор: IUnknown 23.10.2012 10:34

Могут. Но для этого надо приложить дополнительные усилия. Мало того, что нужно создавать окна через CreateWindowW, так еще и текст, который будет отправляться в заголовок, должен сохраняться не редактором GPS, а сторонним. Дело в том, что для корректной работы с заголовками окон (странно, но это так. С остальным кириллическим текстом это не так критично, хотя тоже желательно) нужно текст хранить в UTF8 with BOM, чего редактор GPS не делает, он хранит без BOM.

Поэтому обычно я делаю проще: все (даже не только кириллические) строковые константы выношу в отдельный модуль, который редактирую другим редактором. Можно редактировать и GPS-овским, но перед сборкой обязательно пересохранить сторонним в нужном формате.

with Interfaces.C;

package TxtConst is

  use type Interfaces.C.wchar_array; -- Для &

  Main_Class : constant Interfaces.C.wchar_array := "TestAppClass" & Interfaces.C.wide_nul;
  Main_Caption : constant Interfaces.C.wchar_array := "Заголовок - кириллица" & Interfaces.C.wide_nul;

end TxtConst;

, а потом создается окно:

   function To_LPCWSTR is
      new Ada.Unchecked_Conversion (System.Address, Win32.LPCWSTR);

   -- ...

   Main_Hwnd := CreateWindowW
     (
      To_LPCWSTR(Main_Class'Address),
      To_LPCWSTR(Main_Caption'Address),
      WS_OVERLAPPEDWINDOW or WS_CLIPCHILDREN,
      CW_USEDEFAULT, CW_USEDEFAULT, 200, 150,
      Null_Address, Null_Address, hInst, Null_Address
     );

Автор: TarasBer 23.10.2012 12:02

А дописать BOM к строке принудительно прямо в GPS можно?
Типа

UTF8_BOM : constant char := ...
Main_Class : constant Interfaces.C.wchar_array := UTF8_BOM & "TestAppClass" & Interfaces.C.wide_nul;

Автор: IUnknown 23.10.2012 13:57

Нет, нельзя. BOM относится не к отдельной цепочке символов, а ко всему файлу. И стоять этот самый признак должен не в начале строки, а именно в начале исходника, который эту строку содержит.