Разместить IPictureDisp в Picture Box с координатами

@Argus19 · Регистрация: 24.09.2017

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

Visual Basic
1
2
Public TempPic As IPictureDisp
Set TempPic = LoadPicture(FileName)

У объекта IPictureDisp нет свойства Picture поэтому, метод PaintPicture ничего не выводит в Picture Box. При использовании:

Visual Basic
1
Set Picture1 = TempPic

изображение, заведомо меньшее по размеру, чем Picture Box, размещается с нулевыми координатами. Существует ли возможность разместить изображение из IPictureDisp в Picture Box с координатами, отличными от нуля?
Интересно сделать.
Если простой возможности нет, придётся использовать невидимый Picture Box.

@The trick · 12.05.2020, 19:48

Не по теме:

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

Ну давай исходник GdiPlus.tlb, посмотрим, есть там декларации или нет?

У меня нет исходника, это не я создал эту библиотеку, но исходник легко получить через OleView. Декларации конечно же там будут, но пользователю-то ничего не нужно декларировать! Ты ее подключаешь также как и в любом другом языке и никакого кода ты не пишешь. Одно дело пользоваться ApiViewer и вручную собирать нужные функции, структуры и т.п., а другое дело просто подключить библиотеку и ничего не нужно делать, т.к. она добавляется в пространство имен проекта.
Думаешь в PureBasic нет деклараций GDI+? Вот бегло посмотрел форумы по PB вообще не увидел там чтобы PB содержал какие-либо хидеры к GDI+ и люди вручную пишут прототипы. Покажи мне, если не трудно, как на PureBasic'е использовать тот GDI+ код который я скинул выше. Посмотрим как он работает без деклараций. Все что я нашел было типа такого:

PureBasic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Import "gdiplus.lib"
  GdiplusStartup.l(*token, *input.GdiplusStartupInput, *output.GdiplusStartupOutput)
  GdiplusShutdown(token.i)
  GdipCreateFromHDC.l(*hDC, *graphics)
  GdipDeleteGraphics.l(*graphics)
  GdipCreatePath.l(fillMode.l, *path)
  GdipCreateSolidFill.l(color.l, *brush)
  GdipDeleteBrush.l(*brush)
  GdipDeletePath.l(path.i)
  GdipFillPath.l(*graphics, *brush, path.i)
  GdipAddPathLine.l(*path, x1.f, y1.f, x2.f, y2.f)
  GdipSetSmoothingMode.l(*graphics, smoothingMode.l)
  GdipSetCompositingMode.l(*graphics, compositingMode.l)
  GdipSetCompositingQuality.l(*graphics, compositingQuality.l)
  GdipSetInterpolationMode.l(*graphics, interpolationMode.l)
  GdipCreateMatrix.l(*matrix)
  GdipDeleteMatrix.l(matrix.i)
  GdipTranslateMatrix.l(matrix.i, offsetX.f, offsetY.f, order)
  GdipSetWorldTransform.l(*graphics, matrix.i)
  GdipStartPathFigure.l(*path)
  GdipCreatePen1(color.l, width.f, unit.l, *pen)
EndImport

@Pro_grammer · 12.05.2020, 19:53

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

Ну давай исходник GdiPlus.tlb, посмотрим

Хотя я и сам уже посмотрел:

Code
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
module AboutGDIplusTypeLib {
    const LPSTR GDIplus_TYPELIB_DATE = "Friday, 07 February 2003 02:40:20 UTC";
    const LPSTR GDIplus_TYPELIB_AUTHOR = "Dana Seaman";
    const LPSTR GDIplus_TYPELIB_VERSION = "1.05";
    const LPSTR GDIplus_TYPELIB_COPYRIGHT = "Copyright 2003, Dana Seaman";
    const LPSTR GDIplus_TYPELIB_DESCRIPTION = "Windows GDI+ Type Library";
    const LPSTR GDIplus_TYPELIB_URL = "http://www.cyberactivex.com/";
    const LPSTR GDIplus_TYPELIB_EMAIL = "dseaman@cyberactivex.com";
    const LPSTR GDIplus_TYPELIB_EMAIL_ALT = "dseaman@uol.com.br";
    const LPSTR GDIplus_TYPELIB_REVISIONS = "Place your name/date/revision below";
    const LPSTR GDIplus_TYPELIB_REVISION_A = "";
    const LPSTR GDIplus_TYPELIB_REVISION_B = "";
    const LPSTR GDIplus_TYPELIB_REVISION_C = "";
    const LPSTR GDIplus_TYPELIB_WARNING = "Please do not remove/modify this module and claim this work as your own!";
};

Обычная декларация:

Разместить IPictureDisp в Picture Box с координатами

@The trick · 12.05.2020, 20:54

Не по теме:

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

Обычная декларация

Обычная? А через Declare тогда какая? :)
Это универсальная, языконезависимая декларация.

@Pro_grammer · 12.05.2020, 21:37

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

Это универсальная, языконезависимая декларация.

Я очень этому рад! Что это меняет? Написал(а) Dana Seaman нам библиотеку и мы используем, а если не написал(а)?

Мне как то всё равно. У меня под рукой из коробки две отличные кроссплатформенные библиотеки 2D Drawing и VectorDrawing. Кроме того, библиотека VectorDrawing поддерживает альфа-прозрачность во всех своих операциях.
Кто то уже написал для векторной графики .tlb где универсальная, языконезависимая декларация?

А вот код в 20 строк, решающий проблему ТС с ватермарком на изображении + вращением изображения ватермарка.
Ни каких деклараций в коде, ни каких зависимостей, чистый EXE, работает даже на новой XP SP3 x86 на виртуалке.

@The trick · 12.05.2020, 23:11

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

Я очень этому рад! Что это меняет? Написал(а) Dana Seaman нам библиотеку и мы используем, а если не написал(а)?

Что меняет? А то что ничего не нужно декларировать, как я и написал изначально. А чтобы было если бы кто-то не написал GDI+ библиотеку для PureBasic (если такая вообще существует?), что бы было? Чтобы было если бы не было PureBasic'а? Что за вопрос-то? Мы говорим о том что есть, а не о том что было бы. А универсальная она потому что библиотека типов для этого и предназначена чтобы описывать сущности независимо от языка программирования.

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

Мне как то всё равно. У меня под рукой из коробки две отличные кроссплатформенные библиотеки 2D Drawing и VectorDrawing. Кроме того, библиотека VectorDrawing поддерживает альфа-прозрачность во всех своих операциях.

Ну и пользуйся, тебе что кто-то запрещает? Вопрос-то был не в этом. Во-первых, я написал что WIC и GDI+ более гибкие (к примеру поддерживают метаданные, различные опции декодирования и т.п., DirectX/Direct2D вообще аппаратно-ускорены), ты мне написал что в пурике их также можно применить и это якобы легче т.к. пурик знает все декларации и т.п. и не нужно ничего писать и декларировать вручную, я тебе скинул пример как это можно сделать в VB6 через библиотеку типов (подключил и пользуешься) ничего не объявляя и не декларируя. Но тебе что-то не нравится, хотя я даже на пурике не видел примера без декларирования. Во-вторых, ты влез с предложением заменить GDI+ в VB6 на PureBasic с его кроссплатформенными либами, хотя ТС спросил вообще про GdipSaveImageToFile в VB6. Для чего учить какой-то другой язык (вообще отдаленный от VB и от бейсика в общем), если эта же задача легко решается с использованием инструмента который был изначально использован?

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

Кроме того, библиотека VectorDrawing поддерживает альфа-прозрачность во всех своих операциях.

Ну GDI+ тоже поддерживает прозрачность, Direct2D поддерживает прозрачность, WIC поддерживает прозрачность - все либы системные. Я даже не говорю о Cairo, которое также можно с легкостью использовать в VB6 через сторонние либы.

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

Кто то уже написал для векторной графики .tlb где универсальная, языконезависимая декларация?

А чем не устраивает эта библиотека?

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

А вот код в 20 строк, решающий проблему ТС с ватермарком на изображении + вращением изображения ватермарка.
Ни каких деклараций в коде, ни каких зависимостей, чистый EXE, работает даже на новой XP SP3 x86 на виртуалке.

Аналогичный код на VB6, чистый EXE, никаких зависимостей, работает даже на новой XP SP3 x86:

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Private Sub Form_Load()
    Dim hToken  As Long, hImage As Long, hGraph As Long, _
        i As Long, tRc As RECTF, hFont As Long, hFill As Long, _
        hStringFmt As Long, tGpInput As GdiplusStartupInput
    tGpInput.GdiplusVersion = 1
    GdiplusStartup hToken, tGpInput: GdipLoadImageFromFile App.Path & "\432x276_3.Png", hImage
    GdipCreateFromHDC Me.hDC, hGraph: GdipDrawImageRectI hGraph, hImage, 0, 0, 800, 600
    GdipCreateFontFromDC Me.hDC, hFont: GdipCreateSolidFill &H64000000, hFill
    GdipStringFormatGetGenericTypographic hStringFmt: tRc.Width = 800: tRc.Height = 600
    For i = 0 To 11
        GdipResetWorldTransform hGraph
        GdipTranslateWorldTransform hGraph, 150, 0, MatrixOrderAppend
        GdipRotateWorldTransform hGraph, 30 * i, MatrixOrderAppend
        GdipTranslateWorldTransform hGraph, 400, 300, MatrixOrderAppend
        GdipDrawString hGraph, "WaterMark", -1, hFont, tRc, hStringFmt, hFill
    Next
    GdipDeleteStringFormat hStringFmt: GdipDeleteBrush hFill
    GdipDeleteFont hFont: GdipDeleteGraphics hGraph
    GdipDisposeImage hImage: GdiplusShutdown hToken
End Sub

@Pro_grammer · 12.05.2020, 23:38

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

Аналогичный код на VB6,никаких зависимостей

Извини, но это опять лапша на уши. Вот твои зависимости:

Code
1
2
Reference=*\G{00020430-0000-0000-C000-000000000046}#2.0#0#..\..\..\Windows\SysWOW64\stdole2.tlb#OLE Automation
Reference=*\G{3C4B4A34-9EF8-42A6-87A2-D2383DDC1EDB}#1.0#0#GdiPlus.tlb#GDI+ Type Library 1.05 (dseaman@uol.com.br)

Без них:

А я свой легко, нажатием одной кнопки!

@The trick · 12.05.2020, 23:57

Pro_grammer, не смеши форумчан. Это описание, точно также как и хидеры. Ты еще windows.h удали из студии и скажи что у тебя не компилируется. Не нужно дезинформировать людей. В скомпилированном виде все работает без зависимостей и ничего не требует работает шустрее чем в пурике . Аналогично я могу тебе сказать что ты вешаешь лапшу с пуриком который использует gdiplus.lib. Не нужно так делать, я дал нормальный проект который работает.
Зачем что-то ломать в проекте? Чтобы доказать что-то? Что именно и кому? Самому не смешно?

@Argus19 · 13.05.2020, 06:30 **[ТС]**

Нашёл более продвинутую версию .tlb

@Pro_grammer · 13.05.2020, 07:57

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

Чтобы доказать что-то?

Да, ты соврал вот тут:

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

А в примере который я дал нужны декларации? Или код длиннее аналогичного написанного на PureBasic?

Коду на VB6 + API нужны декларации. В случае твоего кода это самописная GDI+ Type Library 1.05.
Твоё же сообщение:

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

Это универсальная, языконезависимая декларация.

Декларация!!!
Без деклараций он не компилируется, а с ними гораздо длиннее.

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

Не нужно дезинформировать людей.

Вот вот, не нужно! Не смеши форумчан. Вставил декларацию в код и упираешься так, как будто её нет. И ладно бы человек, который не понимает, для чего какой файл в проекте нужен, я бы ещё понял, но от тебя точно не ожидал.

P.S.
Теперь допиши диалог выбора файла, как у меня. Родной диалог VB6 потребует Microsoft Common Dialog Control 6.0. Диалог на API потребует опять же декларации или новую Type Library.

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

Нашёл более продвинутую версию .tlb

Это было не сложно, после того, как я засветил тут адрес автора этой библиотеки.

@The trick · 13.05.2020, 10:30

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

Да, ты соврал вот тут:

Нет.

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

Коду на VB6 + API нужны декларации. В случае твоего кода это самописная GDI+ Type Library 1.05.

Декларации это то что пользователь декларирует когда использует какую либо API функцию через Declare (и соответствующие им структуры и константы). Использование готовой библиотеки типов в VB6 - это не декларации о которых ты говорил сравнивая с пуриком (Но опять же, это делать проще- многие константы и функции Пурик "знает", не нужны декларации, короче код - твое сообщение на мой ответ на использование WIC и GDI+). В VB6 это делается также просто, без всяких деклараций, на PureBasic - пока только на твоих словах. Я могу провести аналогию и сказать что пурик тоже использует декларации в lib файлах, но это некорректно с точки зрения семантики языка, поскольку lib это библиотека импорта, также как и tlb - это библиотека типов. Еще один момент, как я понял, в PureBasic нет прототипов для GDI+ и ему все же нужны декларации (именно декларации прототипов, констант и т.п.), хотя ты утверждал что не нужны. И не нужно сейчас "переобуваться" и говорить что ты имел в виду не то или что-то другое, я прекрасно знаю что ты имел в виду, а теперь хочешь "съехать" с темы. Я уже не говорю о попытках приравнять tlb и DLL, ну это вообще смех.
Третий момент, это то что я могу с легкостью доказать что ты ошибаешься просто сказав что все стандартные функции также объявлены в библиотеке типов:

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

Декларация!!!
Без деклараций он не компилируется, а с ними гораздо длиннее.

Ты не это имел в виду когда писал свой инициирующий пост. Я уже привел пример с декларациями пурика и несоответствия с твоими словами. Ты имел в виду декларации через Declare и т.п. декларациями как это делается при позднем связывании. Код который я дал (именно VB6 код) не получается ни длиннее, ни сложнее.

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

Вставил декларацию в код и упираешься так, как будто её нет.

Отвечу твоими словами:

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

Ты разницу между написанием .tlb и написанием .bas кода знаешь?

Самому не смешно?

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

Теперь допиши диалог выбора файла, как у меня. Родной диалог VB6 потребует Microsoft Common Dialog Control 6.0. Диалог на API потребует опять же декларации или новую Type Library.

Не вижу проблем подключить WIN32.tlb, и вызвать функцию GetOpenFileName. И опять ты пишешь - либо декларации, либо Type Library. А ну почему так? Не стыдно? А мне говорит...

@The trick · 13.05.2020, 10:50

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

Нашёл более продвинутую версию .tlb

На первый взгляд ничего "продвинутого" там нет. Продвинутая она была если бы там были эффекты (Blur, Sharpen, и др. стандартные GDI+).

Добавлено через 8 минут
Pro_grammer, я кстати хотел спросить у тебя одну вещь по пурику. Как VectorDrawing обрабатывает ошибки? У тебя в коде если какая-либо GDI+ функция фейлится, код продолжает выполняться как ни в чем не бывало и иногда падает с ошибкой доступа к памяти.

@Pro_grammer · 13.05.2020, 11:00

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

подключить WIN32.tlb

У меня такое чувство, что я пытаюсь объяснить человеку, который не ел ни чего вкуснее морковки вкус шоколадной конфетки.

Поверь, есть такие современные ЯП, где не надо ни чего подключать! Просто сразу вызывай диалог выбора файла и всё. Загружай изображение и вставляй это изображение с нужной прозрачностью в нужное место. И ни каких деклараций, tlb, модулей bas.
Всё работает сразу и в основном коде. Вот такое чудо! Как конфетка!

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

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

У тебя в коде если какая-либо GDI+ функция фейлится, код продолжает выполняться как ни в чем не бывало и иногда падает с ошибкой доступа к памяти.

Там везде стоит проверка, уронить нереально.
Например StartVectorDrawing возвращает не нулевое значение, если вывод графики на данную поверхность (устройство) возможен (т.е. можно начать рисовать), и ноль, если эта поверхность для вывода графики не доступна (т.е. функции рисования работать не будут).
То же и LoadImage возвращает не нулевое значение, если изображение было успешно загружено, в противном случае ноль.
P.S.
Только я понятия не имею, на чем основана библиотека VectorDrawing, вряд ли на GDI+. Векторная графика круче, 2D либа может быть.

@The trick · 13.05.2020, 12:19

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

У меня такое чувство, что я пытаюсь объяснить человеку, который не ел ни чего вкуснее морковки вкус шоколадной конфетки.

У меня кстати тоже.

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

Поверь, есть такие современные ЯП, где не надо ни чего подключать! Просто сразу вызывай диалог выбора файла и всё. Загружай изображение и вставляй это изображение с нужной прозрачностью в нужное место. И ни каких деклараций, tlb, модулей bas.
Всё работает сразу и в основном коде. Вот такое чудо! Как конфетка!

Я не спорил с этим, я об этом прекрасно знаю, но за такую универсальность ты платишь меньшей гибкостью, о чем я и написал в самом начале. Аналогично я могу тебе привести пример языков где нативная поддержка COM и ActiveX, и не нужно никаких утилит типа OLE/COM Interface generator, где есть CreateObject и можно любой объект создать парой строчек.

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

Там везде стоит проверка, уронить нереально.

Я полагаюсь только на твой код (EXE файл). Библиотека VectorDrawing "под капотом" использует GDI+, так вот, если GdiplusStartup зафейлится - твой код упадет. Если изображение не удалось создать (GdipCreateBitmapFromGdiDib) - код продолжит выполняться и никакой ошибки не будет. Никаких проверок нет.

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

Только я понятия не имею, на чем основана библиотека VectorDrawing, вряд ли на GDI+. Векторная графика круче, 2D либа может быть.

Не круче, она по определению не может быть круче т.к. основана на GDI+ и не поддерживает всех возможностей этой библиотеки; также она не может быть быстрее т.к. вызывает те же самые функции но через прослойку. Так что не надо.

@Pro_grammer · 13.05.2020, 17:00

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

если GdiplusStartup зафейлится - твой код упадет.

Как ты смоделировал такую ситуацию в ехе? Я даже не знаю, где там GdiplusStartup, если внутри StartVectorDrawing, то там проверка на нулевое значение.

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

т.к. основана на GDI+

Для Винды наверно да, ты прав.
Но есть ещё Linux и MacOS! Мой код там тоже работает

Вообще, представляешь, как это круто, можно пользоваться всеми плюшками и даже не задумываться о том, как это устроено, не искать по интернетам декларации, ждать когда кто то напишет .tlb
Можно просто нажать F1 и прочитать всё, что тебя интересует в документации на библиотеку.

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

не поддерживает всех возможностей этой библиотеки

А уж если вдруг чего не хватило, то можно всегда обратиться к источнику. Но пока такого желания у меня не возникало.
Я и встроенных возможностей на 50% не использую

@The trick · 13.05.2020, 17:59

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

Как ты смоделировал такую ситуацию в ехе?

Просто сделал так чтобы функция отработала с ошибкой через отладчик.

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

Я даже не знаю, где там GdiplusStartup, если внутри StartVectorDrawing, то там проверка на нулевое значение.

Не знаю как происходит трансляция в PB, просто я вижу в импорте GdiplusStartup и смотрю какие вызовы идут, и если функция возвращает ошибку это никак не обрабатывается.

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

Но есть ещё Linux и MacOS! Мой код там тоже работает

Какая разница? Я не обсуждаю другую платформу, хотя 100% уверен что для линукса там cairo юзается.

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

Вообще, представляешь, как это круто, можно пользоваться всеми плюшками и даже не задумываться о том, как это устроено, не искать по интернетам декларации, ждать когда кто то напишет .tlb
Можно просто нажать F1 и прочитать всё, что тебя интересует в документации на библиотеку.

Ну да, круто, но мне это не надо, особенно в этом разделе. Да и вообще сейчас море фреймворков на которых можно писать кроссплатформенный код, но не на VB6.

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

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

К какому источнику?

@Pro_grammer · 13.05.2020, 18:15

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

Просто сделал так чтобы функция отработала с ошибкой через отладчик.

Ну удивил, через отладчик

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

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

К какому источнику?

GDI+, как ты выяснил.

Теперь смотри, ещё один фокус:

Я изменил надпись с латиницы на хинди "यह तस्वीर कानून द्वारा संरक्षित है।"
Можешь вставить это сюда и такой трюк провернуть на VB6?:

Visual Basic
1
GdipDrawString hGraph, "WaterMark", -1, hFont, tRc, hStringFmt, hFill

@The trick · 13.05.2020, 20:32

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

Ну удивил, через отладчик Через отладчик можно любой софт уронить, на то он и отладчик.
Ты реально попробуй создать такую ситуацию, подсунь ему изображение или любой другой файл, на котором он упадет, тогда и поговорим. А пока это детский лепет.

Пфф... Ты не заметил что GdiplusStartup имеет возвращаемое значение? Почему PureBasic его не проверяет? Ты считаешь это нормальным? Такая ситуация вполне может произойти по какой-либо причине в обычном режиме работы приложения.

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

GDI+, как ты выяснил.

Ну и что, я был не прав что GDI+ мощнее? Кстати ты так и не предъявил код работы с GDI+ на PureBasic без деклараций как ты говорил.

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

Я изменил надпись с латиницы на хинди "यह तस्वीर कानून द्वारा संरक्षित है।"

Редактор кода VB6, IDE и встроенные контролы не поддерживают юникод. При желании можно через ChrW посимвольно определить строку типа:

Visual Basic
1
2
3
4
5
ChrW$(2351) & ChrW$(2361) & ChrW$(32) & ChrW$(2340) & ChrW$(2360) & ChrW$(2381) & ChrW$(2357) & ChrW$(2368) & _
            ChrW$(2352) & ChrW$(32) & ChrW$(2325) & ChrW$(2366) & ChrW$(2344) & ChrW$(2370) & ChrW$(2344) & ChrW$(32) & _
            ChrW$(2342) & ChrW$(2381) & ChrW$(2357) & ChrW$(2366) & ChrW$(2352) & ChrW$(2366) & ChrW$(32) & ChrW$(2360) & _
            ChrW$(2306) & ChrW$(2352) & ChrW$(2325) & ChrW$(2381) & ChrW$(2359) & ChrW$(2367) & ChrW$(2340) & ChrW$(32) & _
            ChrW$(2361) & ChrW$(2376) & ChrW$(2404)

Не пойму зачем ты это написал в этой теме? Обычно в исходных кодах не используют юникодные строки подобного типа.

@Pro_grammer · 13.05.2020, 21:12

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

Не пойму зачем ты это написал в этой теме?

Интересно, как решается эта проблема в VB6. Понятно, что всё надо ручками делать, манифест для морды, поддержку DPI чтоб на все разрешения подогнать, контролы написать, чтобы юникод поддерживали, найти в интернете .tlb, что бы руками декларации не писать и тп.

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

, я был не прав что GDI+ мощнее?

Мощнее чего? Мощнее обёртки над самим собой? Даже и не смешно.

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

GDI+ на PureBasic без деклараций

Это и есть работа без деклараций. Где то были в моём коде декларации?
А если хочешь, что бы я как ты, с интернета приинклюдил левый файл в проект? Могу и так, но смысл?

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

Такая ситуация вполне может произойти по какой-либо причине в обычном режиме работы приложения.

Очередная клюква. Ну создай такую ситуацию, зачем говорить если не можешь сделать! Программа у тебя есть, давай входной файл, на котором она упадет.

@The trick · 13.05.2020, 22:00

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

Интересно, как решается эта проблема в VB6.

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

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

Понятно, что всё надо ручками делать, манифест для морды, поддержку DPI чтоб на все разрешения подогнать, контролы написать, чтобы юникод поддерживали, найти в интернете .tlb, что бы руками декларации не писать и тп

Давай не будем поднимать эту тему. Я также могу тебе привести аналогично для твоего любимого языка, работа с COM, работа с ActiveX контролами, внепроцессными серверами, составными документами, найти декларации для GDI+ и т.п. Не нужно. Если хочешь - создай отдельную тему, там и поговорим об этом.

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

Мощнее чего? Мощнее обёртки над самим собой? Даже и не смешно.

Ты хоть понял что сам написал? Я написал GDI+ мощнее встроенной либы PureBasic. А что ты написал?

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

Это и есть работа без деклараций. Где то были в моём коде декларации?

Ты не работал с GDI+, ты работал с библиотекой которая "под капотом" использует GDI+. Разницу понимаешь? Дав тебе задачу касательно возможностей GDI+ которые не реализованы в VectorDrawings (я не знаток PB, но я думаю там не реализованы например цветовые матрицы), вот тут ты не сможешь ничего сделать кроме как руками написать декларации для GDI+, про которые ты говорил что они не нужны. К примеру, попробуй открыть у себя прикрепленный PNG файл в своем EXE, а потом в моем:

Мой отображает картинку, твой - нет.

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

А если хочешь, что бы я как ты, с интернета приинклюдил левый файл в проект? Могу и так, но смысл?

Нет я хочу чтобы ты работал с GDI+ как и я и доказал свои слова:

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

Ни что не мешает их использовать в PureBasic. Но опять же, это делать проще- многие константы и функции Пурик "знает", не нужны декларации, короче код.

Пока ничего не было

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

Очередная клюква. Ну создай такую ситуацию, зачем говорить если не можешь сделать! Программа у тебя есть, давай входной файл, на котором она упадет.

Все понятно с тобой. Не вижу смысла обсуждать эту ветку дискуссии дальше.

@Pro_grammer · 14.05.2020, 06:02

Не по теме:

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

Не вижу смысла обсуждать эту ветку дискуссии дальше

Ясно, пытался уронить мой exe шник, создал хитрый png файл, но exeшник просто его проигнорировал, а не упал :)
И ты обиделся... Не обижайся, VB6 во многих вещах лучше PureBasicа, а ты, вне всяких сомнений, самый выдающийся программист, который умеет делать на VB6 чудеса, я всегда это говорю при любом удобном случае.
Ок, закрываем дискуссию.

Новые блоги и статьи Все статьи Все блоги /
Реалии Hrethgir 01.03.2026 Нет, я не закончил до сих пор симулятор. Эта задача сложнее. Не получилось уйти в плавсостав, но оно и к лучшему, возможно. Точнее получалось - но сварщиком в палубную команду, а это значит, в моём. . .	Ритм жизни kumehtar 27.02.2026 Иногда приходится жить в ритме, где дел становится всё больше, а вовлечения в происходящее — всё меньше. Плотный график не даёт вниманию закрепиться ни на одном событии. Утро начинается с быстрых,. . .	SDL3 для Web (WebAssembly): Сборка SDL3, Box2D, FreeType, SDL3_ttf, SDL3_mixer и SDL3_image из исходников с помощью CMake и Emscripten 8Observer8 27.02.2026 Недавно вышла версия 3. 4. 2 библиотеки SDL3. На странице официальной релиза доступны исходники, готовые DLL (для x86, x64, arm64), а также библиотеки для разработки под Android, MinGW и Visual Studio. . . .	SDL3 для Web (WebAssembly): Реализация движения на Box2D v3 - трение и коллизии с повёрнутыми стенами 8Observer8 20.02.2026 Содержание блога Box2D позволяет легко создать главного героя, который не проходит сквозь стены и перемещается с заданным трением о препятствия, которые можно располагать под углом, как верхнее. . .
Конвертировать закладки radiotray-ng в m3u-плейлист damix 19.02.2026 Это можно сделать скриптом для PowerShell. Использование . \СonvertRadiotrayToM3U. ps1 <path_to_bookmarks. json> Рядом с файлом bookmarks. json появится файл bookmarks. m3u с результатом. # Check if. . .	Семь CDC на одном интерфейсе: 5 U[S]ARTов, 1 CAN и 1 SSI Eddy_Em 18.02.2026 Постепенно допиливаю свою "многоинтерфейсную плату". Выглядит вот так: https:/ / www. cyberforum. ru/ blog_attachment. php?attachmentid=11617&stc=1&d=1771445347 Основана на STM32F303RBT6. На борту пять. . .	Камера Toupcam IUA500KMA Eddy_Em 12.02.2026 Т. к. у всяких "хикроботов" слишком уж мелкий пиксель, для подсмотра в ESPriF они вообще плохо годятся: уже 14 величину можно рассмотреть еле-еле лишь на экспозициях под 3 секунды (а то и больше),. . .	И ясному Солнцу zbw 12.02.2026 И ясному Солнцу, и светлой Луне. В мире покоя нет и люди не могут жить в тишине. А жить им немного лет.

@The trick Модератор 10053 / 3898 / 884 Регистрация: 22.02.2013 Сообщений: 5,851 Записей в блоге: 79
	12.05.2020, 23:57
	Pro_grammer, не смеши форумчан. Это описание, точно также как и хидеры. Ты еще windows.h удали из студии и скажи что у тебя не компилируется. Не нужно дезинформировать людей. В скомпилированном виде все работает без зависимостей и ничего не требует работает шустрее чем в пурике . Аналогично я могу тебе сказать что ты вешаешь лапшу с пуриком который использует gdiplus.lib. Не нужно так делать, я дал нормальный проект который работает. Зачем что-то ломать в проекте? Чтобы доказать что-то? Что именно и кому? Самому не смешно? 0