VB хранит строки в UNICODE, а PB в ANSI, может из-за этого...

Ответить

Должно же быть какое то объяснение этому феномену.

Ответить

Целый месяц ковырял PB, пришед к выводу, что он ведет себя несколько непредсказуемо. То, что не должно работать - работает, а что должно - нет. Самое непонятное - некоторые конструкции сегодня работают, а завтра могут отказать безо всяких на то причин. Вот пример: была ф-ция создания и при выходе из программ - уничтожения шрифтов и кистей  (все переменные - GLOBAL)
FUNCTION CreateFonts(Flag AS LONG) AS LONG ' Создание шрифтов

    IF Flag THEN ' создаем
  'CreateFonts 1
     hBrush  = CreateSolidBrush  (RGB(42,180,248))
     hBrush1 = CreateSolidBrush (RGB(0,100,200)) 
     hBrush2 = CreateSolidBrush (RGB(220,0,0))
     hFont1 = PBFormsMakeFont("Verdana", 9*FontSize, 400, %False, %False, %False, 204)
     hFont2 = PBFormsMakeFont("Verdana", 8*FontSize, 400, %False, %False, %False, 204)
     hFont3 = PBFormsMakeFont("Verdana", 6*FontSize, 400, %False, %False, %False, 204)
     hFont4 = PBFormsMakeFont("Verdana", 8*FontSize, 800, %False, %False, %False, 204)
     hFont5 = PBFormsMakeFont("Verdana", 8*FontSize, 800, %True, %False, %False, 204)
    ELSE    'уничтожаем созданные объекты
         eleteObject hFont1
         eleteObject hFont2
         eleteObject hFont3
 eleteObject hFont4
         eleteObject hFont5
         eleteObject hBrush
         eleteObject hBrush1
         eleteObject hBrush2
    END IF
END FUNCTION

Эта ф-ция работала несколько дней и затем отказала безо всяких на то причин   Ни сама ф-ция, ни её объявление, ни её вызов не изменились. При компиляции стала появляться ошибка при создании кистей - Relative Operator Expected и курсор становится после CreateSolidBrush перед (RGB(0,100,200)) ??? Какой может ещё здесь требоваться оператор, и почему он не требовался вчера и позавчера - непонятно ..... Обычная API.  Пробовал по-всякому(вплоть до переинсталляции PB) - не заработало, пока не сделал так: перенес создание в WINMAIN, а удаление так и осталось в старой ф-ции
FUNCTION WINMAIN (BYVAL hInstance AS DWORD, BYVAL hPrevInstance AS DWORD, _
                  BYVAL lpCmdLine AS ASCIIZ PTR, BYVAL iCmdShow AS LONG) AS LONG
'
  'CreateFonts 1
     hBrush  = CreateSolidBrush  (RGB(42,180,248))
     hBrush1 = CreateSolidBrush (RGB(0,100,200)) 
     hBrush2 = CreateSolidBrush (RGB(220,0,0))
     hFont1 = PBFormsMakeFont("Verdana", 9*FontSize, 400, %False, %False, %False, 204)
     hFont2 = PBFormsMakeFont("Verdana", 8*FontSize, 400, %False, %False, %False, 204)
     hFont3 = PBFormsMakeFont("Verdana", 6*FontSize, 400, %False, %False, %False, 204)
     hFont4 = PBFormsMakeFont("Verdana", 8*FontSize, 800, %False, %False, %False, 204)
     hFont5 = PBFormsMakeFont("Verdana", 8*FontSize, 800, %True, %False, %False, 204)
'
'
 IALOG SHOW MODAL hWnd, CALL WndProc
 CreateFonts 0
END FUNCTION
 
FUNCTION CreateFonts(Flag AS LONG) AS LONG ' Создание шрифтов

    IF Flag THEN ' создаем

    ELSE    'уничтожаем созданные объекты
         eleteObject hFont1
         eleteObject hFont2
         eleteObject hFont3
 eleteObject hFont4
         eleteObject hFont5
         eleteObject hBrush
         eleteObject hBrush1
         eleteObject hBrush2
    END IF
END FUNCTION

И в таком виде работает. IMHO, PB - вещь чрезвычайно глючная и непредсказуемая.
Ещё пример - поставил программу в автозагрузку (в ключ RUN). Два дня не хотела запускаться при загрузке Windows(возникала ошибка и предлагалось отправить отчёт о ней, хотя вручную прога запускается и работает без проблем) , а затем опять же безо всяких изменений вдруг стала запускаться нормально. И таких примеров валом. Просто вспомнились самые последние. Как - это называется - непонятно. IMHO, этот язык программирования надо было назвать не PB а GB (ГлюкБейсик). Видимо это и есть причина того, что за столько лет своего существования он так и не получил сколько-нибудь значительного распространения. Какой-то недоделанный гибрид VB & C++
Так что, CyRax, думаю, что объяснение этому твоему феномену - самый банальный глюк. Что касается строк, то я тоже намучался, пока переводил то в UNICODE, то ANSI, пытаясь прописать в реестре значения. Выдавало какую-то бредятину. В конце концов при помощи волшебного слова Сим-Сим и ещё каких-то слов прописал таки строку. Причем не переводя в UNICODE, и при этом только используя как строковую переменную фиксированной длины.
Так что, если хочется скорости, нужен не РВ, а Си...

Ответить

 Не подтвердить ни опровергнуть твоё утверждение не могу, т.к. не пользуюсь PBForms напрямую - только копирую код оттуда.
 Но вполне допускаю. Форум PowerBasic.com так и кишит сообщениями типа "Ещё один глюк PBForms".

Хотя вполне вероятно что в твоём коде закралась ошибка. Когда у меня "глючит" PB, то я первым делом грешу на себя. В большинстве случаев "глюк" оказывается в моём коде. Бывают и непонятные миражи, но они исчезают также, как и возникают.

Скорее всего это связанно не с компилятором а с системой. Например поиграл в крутую игруху или запустил пару раз Vb.Net.

Из больших перегрузок бывает система не всегда выходит с блеском, а слегка потрепаной.

Ответить

Ответить

От делать мне больше нечего...

Ну ладно, давай свой код - гляну.

Ответить

Ответить