forum.clarionlife.net

Constantine

Ну, Игорь, не все так плохо! :-) Задача обработки DIB средствами Клариона вполне решаема, ничего особо мудрого там нет. Нужно разобраться в двух моментах: 1. Что именно лежит в DIB, формируемой внешней функцией, и 2. Как это подсунуть кларионовскому Image. По первому вопросу возможно три варианта: 1...

Constantine

Пугать не буду... :-) Но с заголовком разбираться все равно придется... Судя по коду, битмап действительно 24-битный. Тогда его размер нужно считать так, как я написал выше. Последний параметр BMPINFOHEADER - biSizeImage считается как BYTELINE*HEIGHT. Структура BITMAPINFOHEADER: !BITMAPINFOHEADER GR...

Constantine

Я бы, все-таки, для начала посоветовал бы удостовериться, что DIB все-таки 24-битный. Для этого нужно считать BITMAPINFOHEADER и посмотреть параметр biBitCount. Для 24-битного там должно быть 24 :-) Если битмап все-таки 24-битный, то пример 32-битного вряд ли подойдет: там совсем другая структура. А...

Constantine

Чтобы все было нормально, этот скриншот нужно конвертировать в 24-бит. Геморрой еще тот!

Но работает.

Constantine

Там может быть два заголовка: собственно, заголовок bitmap - BITMAPINFOHEADER и заголовок файла *.BMP - BITMAPFILEHEADER.
Зависит от того, что именно сформировала внешняя функция.

Constantine

Можно попробовать размер строки подсчитать следующим образом: !Вычисляем размер (ширину) строки для 24 бит BYTELINE=BAND((LOC:WIDTH*3+3),0FFFFFFFCH) !Другой вариант: BYTELINE=((WIDTH#*24+31)/32)*4 !Создаем буфер для строки 24 бит SREF &= NEW STRING(BYTELINE)

Constantine

Дед Пахом писал(а): ↑18 Январь 2020, 22:56 Если кто не помнит, речь в вопросе шла о vbscript, и кроме как запускать скрипт через RUN(file.vbs), выводить результаты в текстовый файл и затем этот файл парсить, ничего не предложили.

Спасибо, у меня этот вопрос успешно решился через PowerShell.

Constantine

Ну, мое дело - предложить...

Constantine

А если так?
Loc:MyGroup Group(TypeGroup),STATIC.

Constantine

Я делаю так (перед открытием окна Frame): !Проверяем наличие параметра в реестре EventMessageFile1 = LONGPATH(CLIP(LEFT(PATH()))&'\<ваш exe>.exe') EventMessageFile = GETREG(REG_CURRENT_USER,'Software\Microsoft\Windows NT\CurrentVersion\AppCompatFlags\Layers',CLIP(EventMessageFile1),REG:TYPE) IF ...

Constantine

Вот им и пользуйтесь... :-) Технология этих самых "тостов" (Toast notification) еще не до конца отработана, там куча всяких особенностей. Основная проблема заключается в том, что .Net напрямую не видит событий WinRT. Для этих целей предлагается писать "прокладку" в виде DLL на C#...

Constantine

Алексей- Софт-Центр писал(а): ↑17 Июль 2019, 12:06LARGE_INTEGER liDistanceToMove

У меня прокатывал такой вариант:

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

liDistanceToMove REAL
STR STRING(8),OVER(liDistanceToMove)

А в STR пишем побайтно... Паскалевское соглашение о связях такие пассажи пропускает...

Constantine

Да, останется. Пропадет только после перезагрузки.

Constantine

Yufil писал(а): ↑27 Июнь 2019, 9:02Но главный плюс в том, что работа с DDE изначально встроена в сам Кларион

Ага...
Только Майкрософт его уже лет 10 не поддерживает и не факт, что из следующей версии его вообще не выкинут...

Constantine

Можно еще проще: при запуске проверять наличие атома в Global Atom Table. Если атома нет - программа не запущена. Если есть - вываливаемся. При закрытии - удаляем атом. Преимущество в том, что GAT доступна любой программе, поэтому проверить можно откуда угодно. Прототипы: GlobalAddAtom(*CSTRING),ATO...

forum.clarionlife.net

Найдено 185 результатов

Картинка из буфера DIB

Картинка из буфера DIB

Картинка из буфера DIB

Картинка из буфера DIB

Картинка из буфера DIB

Картинка из буфера DIB

ActiveScript

Чертовщина с параметром

Чертовщина с параметром

windows 10 - размытость приложения

всплывающее уведомление

Как составить описание функции SetFilePointerEx

Запрет повторного запуска приложения

Запрет повторного запуска приложения

Запрет повторного запуска приложения