Clarion 11-12

[Дед Пахом]

FIX: memory leak on getting and setting some properties of controls

Диего и Соловьёв собачились из-за этого на clarionhub.

[Губин Игорь]

[finsoftrz]

Ага, про утечки памяти много лет говорят. Теперь будут искать, что после этих правок утекло.

[kreator]

Да, и на Clarionsharp инфы нет. Это тот обещанный с новым AS релиз? Или просто для проформы (судя по изменениям)?

[Игорь Столяров]

ДД !

Редактировал FORM - произошёл полный вылет среды C11.
Зашёл обратно с восстановлением APP как обычно.

Ничего не могу сделать - при любой перегенрации / перекомпиляции
выдаёт непонятную ошибку непонятно где:

Кто-нибудь сталкивался ? Куда вообще смотреть в C11 ?
Спасибо за направление !

[Губин Игорь]

Куда вообще смотреть в C11

Выйди. Удали (сохрани отдельно) ВСЁ кроме app и dct. Зайди и посмотри

[Игорь Столяров]

Спасибо ! Вариант "Давайте все выйдем и снова зайдём" я конечно попробовал первым.

Проблема оказалась в другом. Если в BROWSE есть иконка для списка в виде "!Icon:Help" и
окно не перезаписывать после конвертации c С63 - то всё OK ! Это и сбило с толку.
Но если сделать какие-то изменения и записать - то всё вот так вот становится колом.
Причём иконка в формате "Icon:Help" принимается. Чудны дела рук детей твоих, Господи !

[Губин Игорь]

после конвертации c С63

Дела давно минувших дней... Я уже про такое и забыл...

[Игорь Столяров]

Отлично ! Значит есть опыт и знания в эксплуатации С11.
Надеюсь не откажете в небольших консультациях.

[Губин Игорь]

Надеюсь не откажете в небольших консультациях.

Иконки еврея тут нет (да и не халяльно в нынешних условиях )

[Игорь Столяров]

Неть ! Я здесь вижу возможность познания, а не поимения.

[Губин Игорь]

Ну вот, кому-то уже ссылку на свежий IMDD прислали...

[Игорь Столяров]

ДД !

Я конечно дико извиняюсь, но может ли кто-нибудь с доступом к PPTS, сделать там сообщение
о проблеме с национальной кодировкой в файлах выгрузки DCTX / DCV / APV для Clarion 11 ?

Потому что проблема именно в "новых" текстовых форматах, а в том же TXA который не улучшали - всё OK !
Те у кого одна раскладка на клавиатуре таких проблем сами не увидят, об этом нужно сообщать. Спасибо.

[finsoftrz]

Это бесполезно, проблемы в среде не фиксят много лет, после окончания контракта с Аркадией. Я лет 5 назад пару проблем запостил в ppts, их даже никто не читал.

[Admin]

ну если на коленке по быстрому нужно. вставил в Cstr.inc

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

To1252       Procedure()
ToUTF8From1252 Procedure()

в Cstr.clw

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

Cstr.To1252       Procedure()
UnicodeText       &string
UtfText           &String
ASCIIText         &CString
Lu                Long
                  Code
                  ! Не преобразовывать пустые строки и числа
                  If Self.Len=0
                    Return
                  Elsif Numeric(Self.S)
                    Return
                  End
                  Lu=Self.Len
                  UtfText &= New String(Lu+2)
                  UnicodeText &= New String(Lu*2+2)
                  ASCIIText &= New CString(Lu+2)
                  UtfText=Self.Str()
                  UtfText[Lu+1 : Lu+2]='<0><0>'
                  If MultiByteToWideChar(65001,0,Address(UTFText),-1,Address(UnicodeText),Lu*2+2).
                  If WideCharToMultiByte(1252,0,Address(UnicodeText),-1,Address(ASCIIText),Lu+2,0,0).
                  Self.Set(ASCIIText)
                  Dispose(ASCIIText)
                  Dispose(UnicodeText)
                  Dispose(UtfText)
                  Return

Cstr.ToUTF8From1252 Procedure() ! Преобразовать строку а UTF8
UnicodeText       &Cstring
UtfText           &CString
L                 Long
                  Code
                  L=Self.Len*2+2
                  UnicodeText &= New CString(L)
                  UTFText &= New CString(L)
                  Clear(UnicodeText,0)
                  If MultiByteToWideChar(1252,0,Address(Self.S),Self.Len,Address(UnicodeText),L).
                  UnicodeText[ Self.Len*2+1 : Self.Len*2+2] = '<0><0>'
                  L = WideCharToMultiByte(65001,0,Address(UnicodeText),-1,Address(UTFText),L,0,0)
                  Loop
                    If UtfText[L]='<0>'
                      L-=1
                    Else
                      Break
                    End
                  End
                  Self.Set(UtfText [1 : L])
                  Dispose(UnicodeText)
                  Dispose(UtfText)
                  Return

и далее

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

  PROGRAM        
  
  include('Cstr.inc')

  MAP
  END        
  
cs      Cstr

  CODE
  cs.LoadFromFile('enkaTrans.dctx') ! оригинальный код
  cs.To1252()
  cs.SaveToFile('enkaTrans.1252.dctx') ! ANSI с обычным русским как бы
  cs.ToUTF8From1252()
  cs.SaveToFile('enkaTrans.org.dctx') ! и снова как оригинальный.

А ждать от SV исправлений это вряд ли...