Тестирование полезных кодов и примеров

Dragokas · Регистрация: 25.12.2011

Студворк — интернет-сервис помощи студентам

Если Ваш код из темы Готовые решения и полезные коды на Visual Basic 6.0

неправильно собран или неработоспособен, он будет перенесен сюда.

Для доведения кода в рабочее состояние в порядке обсуждения создайте новую тему

@fever brain · 09.11.2017, 20:42

Расскажите что такое линковка

Добавлено через 2 минуты
Мы тут вроде взрослые, и нас не напугать ! новыми словами

@The trick · 09.11.2017, 21:33

Сообщение от VBOrion

А существует возможность статической линковки непосредственно в VB6 или нужно устанавливать какие-то дополнительные инструменты?

Статическая линковка "из коробки" возможна, но довольно ограниченно и некрасиво. В секции LinkSwitches прописывается нужная либа и экспортируются нужные символы из этой либы. В исполняемом файле делается декларации API из себя-же этой функции.
Недостатки:

привязка к имени исполняемого файла (лечится вызовом по указателю);
Нежелательный экспорт;
Невозможность инициализации, к примеру CRT. Поэтому очень ограничено;
Не работает в IDE.

Второй вариант более правильный, но более трудоемкий. Нужно перехватить обращение к линкеру и сделать замену какого-либо модуля заглушки, на переходник на нужный символ.
К примеру если хотим прилинковать какой-либо lib файл к нашему EXE, то нужно создать модуль с функциями-заглушками, с нужными прототипами. Существует проблема манглинга в именовании функций (к примеру имя символа функции foo модуля bar будет ?foo@bar@@AAGXXZ), поэтому нужно будет делать переходник (к примеру на FASM'е или руками) который будет иметь эти символы и jmp'ать на линкуемые. Если линкуется какой-нибудь модуль C++, то нужно указать в качестве стартовой или mainCRTStartup, _DllMainCRTStartup или другую необходимую, а в переходнике из main, _DllMain или другой делать прыжок на ___vbaS. Способ не содержит вышеприведенных недостатков кроме последнего.
Для обоих вариантов можно юзать DLL вместо либы, для отладки в IDE.

@fever brain · 09.11.2017, 21:43

The trick, ну что значит если у меня есть заготовки к проекту
есть у тебя инфа на этот счет, расскажи кто не знает

Добавлено через 1 минуту
и где он собственно размещается этот самый линкер

@The trick · 09.11.2017, 21:47

Сообщение от fever brain

The trick, ну что значит если у меня есть заготовки к проекту
есть у тебя инфа на этот счет, расскажи кто не знает

Я бы скинул пример, но мой Add-in работает нестабильно. Так что нужно либо ждать фикса чтобы правильно перехватить вызов к линкеру, либо как-то самим перехватывать. Первый способ я кидал где-то в блоге.

@fever brain · 09.11.2017, 21:54

Ну ястно, в общих чертах дополню что это сообщение компилятору, оно находится в самом низу проекта если проект открыть например блокнотом...

Добавлено через 39 секунд
в обычной ситуации такой линкер:
[MS Transaction Server]
AutoRefresh=1

Ну расскажи пожалуйста, не ходи вокруг да около

Добавлено через 3 минуты
И чем замечательна эта запись:
[MS Transaction Server]
AutoRefresh=1
явно не случайно ее ставят ?

@The trick · 09.11.2017, 21:59

Сообщение от fever brain

в обычной ситуации такой линкер:
[MS Transaction Server]
AutoRefresh=1

Нет. Линкер - это компоновщик LINK.exe в папке VB98.

@VBOrion · 09.11.2017, 22:06

Сообщение от fever brain

Мы тут вроде взрослые, и нас не напугать ! новыми словами

Чтобы не распространять лишние длл, можно готовый код "вшить" непосредственно в ехе. В C++ это к примеру обычная практика

:

C++
1
#pragma comment(lib,"ntdll.lib")

The trick, спасибо за ответ.
Ясно, нужно переварить это для начала. Второй способ кажется каким-то трюкачеством

.

@fever brain · 09.11.2017, 22:18

Переваривайте.. , только не перестарайиесь )) почитайте его блоги ...

Добавлено через 5 минут
VBOrion, Вы впервые здесь ?

@VBOrion · 09.11.2017, 22:52

Сообщение от fever brain

Переваривайте.. , только не перестарайиесь ))

Попробую что-нибудь написать, по результатам здесь отпишу.
The trick, а как лучше сделать. По мне видится два пути - либо написать свой линкер, который будет передавать данные уже в родной линкер или попробовать выяснить каким способом вызывается линкер и если это выполняется через к примеру CreateProcess то перезаписать на свою фильтрующую функцию в IAT?

Добавлено через 1 минуту

Не по теме:

Сообщение от fever brain

VBOrion, Вы впервые здесь ?

Здесь, да.

@The trick · 10.11.2017, 09:24

Сообщение от VBOrion

The trick, а как лучше сделать. По мне видится два пути - либо написать свой линкер, который будет передавать данные уже в родной линкер или попробовать выяснить каким способом вызывается линкер и если это выполняется через к примеру CreateProcess то перезаписать на свою фильтрующую функцию в IAT?

Проще - написать линкер с переадресацией аргументов. С перехватом CreateProcess тоже неплохая идея. Как хочешь - так делай.

@VBOrion · 10.11.2017, 12:49

The trick, спасибо!

@locm · 26.08.2018, 16:17

Чем эта библиотека лучше скажем GDI+?

@The trick · 27.08.2018, 11:47

locm, ну к примеру она поддерживает режимы смешивания, которых нет в GDI+. Есть поддержка OpenGL с рендерингом на GPU. Даже на CPU либа в общем работает быстрее чем GDI+. Также эта библиотека с открытым исходным кодом, соответственно изучив данное API с легкостью можно программировать под любую платформу. Плюс другие возможности как работа с SVG/PDF.

@Pro_grammer · 27.08.2018, 14:15

Сообщение от locm

Чем эта библиотека лучше

Её можно на Пурике пощупать, есть рабочий враппер, я как то качал с оф.форума Пурика пару лет назад.
Но после встроенных в Пурик 2DDrawing library, Sprite и VectorDrawing это конечно выглядит более примитивно.
Для VB6 нормально.

@The trick · 28.08.2018, 12:02

Сообщение от Pro_grammer

Но после встроенных в Пурик 2DDrawing library, Sprite и VectorDrawing это конечно выглядит более примитивно

Чем выглядит? Поверхностный анализ (без углубления) наоборот показывает то что cairo более мощная чем любая из этих библиотек. Я могу ошибаться и поправьте меня те кто разбирается если это так.
VectorDrawing не поддерживает блендинг, не позволяет отключать AA, использует примитивные заливки и т.п. Насколько я понял использует урезанную cairo (да и это видно по функциям работы с SVG и PDF и способу рисования). 2DDrawing еще более урезанная либа не поддерживает антиалиасинг, произвольные маски, заливки и т.п. Sprite предназначена для спрайтов и не поддерживает рисование примитивов, только работа со спрайтами.

@locm · 05.09.2018, 15:30

Сообщение от The trick

Насколько я понял использует урезанную cairo

VectorDrawing использует GDI+
SVG только для Linux, а PDF для Linux и MacOS X.
Преимущество 2DDrawing и VectorDrawing в данном случае в том, что используются библиотеки ОС и размер приложения получается небольшим и не нужно вместе с ним распространять dll размером десятки мегабайт.

Сообщение от The trick

2DDrawing еще более урезанная либа не поддерживает антиалиасинг, произвольные маски, заливки

Потому что GDI и кроссплатформенность.

Сообщение от The trick

VectorDrawing не поддерживает блендинг

Может не так понял, но это разве не оно? https://www.purebasic.com/docu... layer.html

@The trick · 05.09.2018, 15:50

Сообщение от locm

Преимущество 2DDrawing и VectorDrawing в данном случае в том, что используются библиотеки ОС и размер приложения получается небольшим и не нужно вместе с ним распространять dll размером десятки мегабайт.

Десятки? Про преимущество ничего сказано не было, было сказано про примитивность. Насчет использования cairo я эту информацию взял отсюда:

On Linux the result is a cairo_t pointer, so you can use cairo_set_operator() (http://cairographics.org/manual/cairo-c ... t-operator) to do the same thing.

, т.е. получается она использует cairo на Linux. Насколько я понял в этом случае код cairo включается в exe, а не использует библиотеки ОС (могу ошибаться т.к. не силен в Linux/MacOS).

Сообщение от locm

Потому что GDI и кроссплатформенность.

~~Пожалуйста скомпилируй пример с CustomFilterCallback.~~
Сам сделал. Вижу что GDI не используется для рисования примитивов в этом случае:

PureBasic
1
2
3
4
5
6
7
      DrawingMode(#PB_2DDrawing_CustomFilter)      
      CustomFilterCallback(@FilterCallback())
      
      Line(0, 0, 300, 500, 1234)
      Box(100, 10,50,80)
      Circle(100, 100, 100, $0000FF)   
      Circle(300, 100, 100, $000000)

Смотрю имопрт:

Нет ни MoveToEx, ни LineTo, ни Rectangle, ни Ellipse.

Кликните здесь для просмотра всего текста

Сразу скажу что и динамически не подгружаются функции, а рисуется все кодом, т.к. GDI не предоставляет такую функциональность.

Сообщение от locm

Может не так понял, но это разве не оно? https://www.purebasic.com/docu... layer.html

Нет, в GDI+ этого нет. Это как тут (Darken, Multiply, LinearBurn, Screen и т.д.).

@locm · 05.09.2018, 17:14

Сообщение от The trick

Насчет использования cairo я эту информацию взял отсюда:

Это для Linux. Для Windows используется GDI+. Библиотеки PB построены так чтобы по максимуму использовать средства ОС. К примеру GUI в винде строится средствами WinAPI, в Linux на выбор, GTK2, GTK3 и Qt. Что в MacOS X точно не помню. Т. е. кроссплатформенные функции одни и те же, а что используется зависит от платформы и выбора подсистемы. К примеру в винде для библиотеки спрайтов можно выбрать DX7, DX9, DX11 или OpenGL что удобно поскольку код код остается прежним, а изменяется только подсистема в опциях проекта.

Вот как-то так.

Сообщение от The trick

Насколько я понял в этом случае код cairo включается в exe

Непохоже. Размер исполняемого файла около 150 КБ.
Архив *.tar.gz форум не позволяет загрузить.

@The trick · 05.09.2018, 18:18

Сообщение от locm

Непохоже. Размер исполняемого файла около 150 КБ.

Вижу что используется cairo. Согласно документации GTK+ использует cairo, получается просто динамически привязывается.

@kreotodr · 01.03.2019, 08:43

Сообщение от Dragokas

В режиме IDE возвращается правильная версия системы (Major / Minor / Build) вне зависимости, подключен манифест или нет.
Используется запрос к WMI. Это нужно для нормальной отладки программ под IDE.
В релизе подсистема WMI не ипользуется, поэтому Вам все равно обязательно нужно подключать манифест. См. детали по ссылке выше.
Перед использованием класса, замените все обработчики ошибок AppendErrorLogFormat на свои или закомментируйте автозаменой.

на win 10 14393
Возвращает: Os Version :Windows 10 x64 Unknown Edition (Build 14393)

Новые блоги и статьи Все статьи Все блоги /
Программный домашний кинотеатр russiannick 27.09.2026 Сподобился на программный домашний кинотеатр. В качестве ЯВУ по традиции выбрал js. В помощники взял Яндекс-Алису. Было создано три зала на разные интересы. исторические и ретро сериал Хичкок. . .	Беседа с ИИ о программистах, недопускающих к созданию и правке кода генеративные ИИ и причины этого zorxor 21.09.2026 Раньше я радовался или получал некоторые эмоции, пусть небольшие, но всё же, от самого процесса написания кода, рекомпиляции и запуска, видя постепенное развитие программы и прочее. А теперь лень. . .	Мобильное приложение ColorStep pavlinmavlin 17.09.2026 Реализовал приложение Красный, Зеленый, Синий в Unity3d + c#. Название изменил на ColorStep. Приложение прошло модерацию и теперь доступно для скачивания. Делал его сам, шаг за шагом — и вот,. . .	Запрет дублирования строк в табличной части Maks 13.09.2026 Реализация из решения ниже выполнена на нетиповом справочнике "Нормы ТО" с табличной часть "Виды ТО", разработанного в КА2, со следующими реквизитами: - ВидТО (СправочникСсылка. ВидыТО); - ВидГСМ. . .
Скрипты Tampermonkey для CyberForum, ChatGPT, Claude и пр. Jin X 06.09.2026 Скрипты Tampermonkey для CyberForum, ChatGPT, Claude и пр. Работая с форумом и нейросетями в браузере часто хочется что-то подкорректировать или добавить какого-то функционала. Ниже прикреплён. . .	Программа опроса у.з. расходомера SLS-720F Argus19 02.09.2026 Программа опроса у. з. расходомера SLS-720F Программа опрашивает один раз в минуту три ультразвуковых расходомера SLS-720F через интерфейс RS-485 по протоколу Modbus RTU. Опрашиваются регистры. . .	Hyper-V: Компьютер должен поддерживать доверенный платформенный модуль 2.0. Maks 31.08.2026 При установке Windows 11 на виртуальную машину Hyper-V 2-го поколения вылезла такая ошибка: Решение: в параметрах виртуальной машины, в разделе "Безопасность" (Security) активировать флаг. . .	Архитектура биовида Стива в Майнкрафте: Зачем бонобо кубический каннибализм anaschu 30.08.2026 Кубический Вагинокапитализм в Minecraft: Математический инвариант ОДУ и рок Стивов-бонобо Главная задача разработанной «Модели Всего» — наглядно продемонстрировать наличие системной «судьбы». . .

Dragokas 18035 / 7738 / 892 Регистрация: 25.12.2011 Сообщений: 11,502 Записей в блоге: 16

	Тестирование полезных кодов и примеров 15.10.2012, 00:56. Показов 31761. Ответов 301 Метки нет (Все метки) Если Ваш код из темы Готовые решения и полезные коды на Visual Basic 6.0 неправильно собран или неработоспособен, он будет перенесен сюда. Для доведения кода в рабочее состояние в порядке обсуждения создайте новую тему 2

@fever brain oh my god 1456 / 796 / 161 Регистрация: 05.01.2016 Сообщений: 2,307 Записей в блоге: 8
	09.11.2017, 20:42
	Расскажите что такое линковка Добавлено через 2 минуты Мы тут вроде взрослые, и нас не напугать ! новыми словами 0

@fever brain oh my god 1456 / 796 / 161 Регистрация: 05.01.2016 Сообщений: 2,307 Записей в блоге: 8
	09.11.2017, 21:43
	The trick, ну что значит если у меня есть заготовки к проекту есть у тебя инфа на этот счет, расскажи кто не знает Добавлено через 1 минуту и где он собственно размещается этот самый линкер 0

@fever brain oh my god 1456 / 796 / 161 Регистрация: 05.01.2016 Сообщений: 2,307 Записей в блоге: 8
	09.11.2017, 21:54
	Ну ястно, в общих чертах дополню что это сообщение компилятору, оно находится в самом низу проекта если проект открыть например блокнотом... Добавлено через 39 секунд в обычной ситуации такой линкер: [MS Transaction Server] AutoRefresh=1 Ну расскажи пожалуйста, не ходи вокруг да около Добавлено через 3 минуты И чем замечательна эта запись: [MS Transaction Server] AutoRefresh=1 явно не случайно ее ставят ? 0

@fever brain oh my god 1456 / 796 / 161 Регистрация: 05.01.2016 Сообщений: 2,307 Записей в блоге: 8
	09.11.2017, 22:18
	Переваривайте.. , только не перестарайиесь )) почитайте его блоги ... Добавлено через 5 минут VBOrion, Вы впервые здесь ? 0

@VBOrion 10 / 6 / 0 Регистрация: 06.11.2017 Сообщений: 21
	10.11.2017, 12:49
	The trick, спасибо! 0

@locm 7207 / 3386 / 346 Регистрация: 28.10.2011 Сообщений: 13,314 Записей в блоге: 7
	26.08.2018, 16:17
	Чем эта библиотека лучше скажем GDI+? 0

@The trick Модератор 10068 / 3913 / 886 Регистрация: 22.02.2013 Сообщений: 5,863 Записей в блоге: 79
	27.08.2018, 11:47
	locm, ну к примеру она поддерживает режимы смешивания, которых нет в GDI+. Есть поддержка OpenGL с рендерингом на GPU. Даже на CPU либа в общем работает быстрее чем GDI+. Также эта библиотека с открытым исходным кодом, соответственно изучив данное API с легкостью можно программировать под любую платформу. Плюс другие возможности как работа с SVG/PDF. 1