OberonCore
https://forum.oberoncore.ru/

Юникодные названия в Free
https://forum.oberoncore.ru/viewtopic.php?f=47&t=4017
Страница 1 из 1

Автор:  Иван Денисов [ Суббота, 07 Июль, 2012 09:53 ]
Заголовок сообщения:  Юникодные названия в Free

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

Для себя использовал следующее решение. В модуле FreeUtils нужно немного подправить процедуру Load.

Код:
   PROCEDURE Load* (fname: ARRAY OF CHAR): FIBITMAP;
      VAR
         res: BOOLEAN;
         type: Dll.IMAGE_FORMAT;
         tdib: Dll.FIBITMAP;
   BEGIN
      type := Dll.GetFileTypeU(fname, 0);
      IF type = Dll.FIF_UNKNOWN THEN
         (* Out.String("Unkonwn Format: "); Out.Int(type, 0); Out.Ln; *)
         type := Dll.GetFIFFromFilenameU(fname)
      END;
      IF (type # Dll.FIF_UNKNOWN) & Dll.FIFSupportsReading(type) THEN
         (* Out.Int(type, 0); Out.String(" Supported reading: "); Out.Ln; *)
         tdib := Dll.LoadU(type, fname, 0);
         RETURN tdib
      ELSE
         RETURN NIL
      END
   END Load;


Вложения:
unicode_imgs_names.png
unicode_imgs_names.png [ 826.67 КБ | Просмотров: 3683 ]

Автор:  Роман М. [ Суббота, 07 Июль, 2012 11:34 ]
Заголовок сообщения:  Re: Юникодные названия в Free

Хорошо. А что насчёт процедуры Save?

Автор:  Иван Денисов [ Суббота, 07 Июль, 2012 12:57 ]
Заголовок сообщения:  Re: Юникодные названия в Free

Роман М. писал(а):
Хорошо. А что насчёт процедуры Save?

Это пока было не нужно :) но сейчас поглядел, там та же история. Поправил модуль весь, прикрепил к этому сообщению.

Вложения:
Utils.odc [7.76 КБ]
Скачиваний: 240

Автор:  Иван Денисов [ Вторник, 17 Июнь, 2014 19:31 ]
Заголовок сообщения:  Re: Юникодные названия в Free

Эти правки включены в последнюю версию FreeImage.
Цитата:
Dear Ivan,

Your changes are appended to the updated version of FreeImage3.16.0 and also sent to CPC site.

Thanks for your help, Enjoy.

Best regards,

- Necati.


Прикладываю к сообщению эту последнюю версию от автора.

Скорее всего, эта версия появится также и у Цинна в ближайшее время:
http://www.zinnamturm.eu/downloadsDH.htm#FreeImage

Вложения:
FreeImageBB316.zip [75.78 КБ]
Скачиваний: 155

Автор:  Иван Денисов [ Четверг, 19 Июнь, 2014 14:10 ]
Заголовок сообщения:  Re: Юникодные названия в Free

Вот и у Цинна новая версия появилась.
http://www.zinnamturm.eu/downloadsDH.htm#FreeImage

Страница 1 из 1 Часовой пояс: UTC + 3 часа
Powered by phpBB® Forum Software © phpBB Group
https://www.phpbb.com/