Активность

delphi ide как убрать ссылку из заголовка, предупреждающего о скором окончании лицензии? невозможно передвигать окно

Спасибо, разобрался по примерам уважаемого сообщества. TCameraComponent не предполагает чего-то кроме устройства по умолчанию (для ноутбука - всегда встроенная камера). Получить изображение с любой из камер позволяет TVideoCaptureDevice получаемый динамически из любого элемента массива TCaptureDeviceManager.Current.Devices[] через методы-обёртки GetDevicesBy... Прикладываю то что получилось для истории video capture.7z

Друзья, добрый день! Столкнулся со следующей проблемкой: мне для работы со станком нужно обрабатывать видео с видеокамеры подключенной к компьютеру. Видеокамеру я подключил, подскажите пожалуйста, как получить с неё изображение в программу на Delphi ? Прикладываю код своего проекта, по кнопочке "Опрос камер" формируется список камер, по идее по клику в этом списке идёт переключение между камерами. Пока что работает только камера по умолчанию (для ноутбука - встроенная), мне нужно будет программно обрабатывать изображения со второй камеры. В системе она видна под именем "USB Video" Запись 2026-06-16 173012.mp4 video capture.7z

А существует личный кабинет? На сайте https://www.embarcadero.com я авторизовался и при нажатии на "покупки" перекидывает на сайт-форум. А на сайте-форуме https://my.embarcadero.com что в инфо об аккаунте, что в продуктах, лицензии и скачиваниях у меня ничего нет, по какой то причине. Может потому что я скачал комьюнити версию..? Я попробовал еще раз скачать комьюнити версию, но в "скачиваниях" на аккаунте не отображается и никаких оффлайн установщиков не появляется.

В Личном Кабинете же лежит оффлайн инсталлятор?

Здравствуйте, хочу поставить RAD studio 12 на компьютер у которого нет доступа к интернету. Чтобы продолжить установку ружнно ввести серийный номер ключа, он есть, все хорошо, но он пытается одключиться к серверам, что естественно не олучается без интернета. В поисковике гугл выдает инофрмацию о офлайн установщике, но нигде нет ссылки на его скачивание, будто его не существует. Если вдруг у кого то есть, помогите пожалуйста.

I created app for both Android and iOS. I need to add dialog to login. I used the simple one like InputQuery with 2 fields. Unfortunately InputQuery does not work on iPhone or simulator. It's just shuts off app silently without error. The code snippet is below: =================================== procedure callUserLogin(sUsername, sPassword: String); var Prompts: TArray<string>; Defaults: TArray<string>; begin Prompts := ['Username:', 'Password:']; Defaults := [sUsername, sPassword]; TDialogServiceAsync.InputQuery('Login', Prompts, Defaults, procedure(const AResult: TModalResult; const AValues: array of string) begin if (AResult = mrOk) then begin // Process AValues[0] (Username) and AValues[1] (Password) sUsername := Trim(AValues[0]); if ((LowerCase(sUsername) = 'genesis') and (AValues[1] = '71962')) then begin LastLoginName := sUserName; Application.Run; end else begin ShowMessage('Invalid credentials. Please try again.'); callUserLogin(sUsername, sPassword); // call itself end; end else Application.Terminate; end); end; =================================== How to fix it? Or what other way to create dialog? I tried to use custom dialog and it does not work with ShowModal even with anonymous method). Create native iOS dialog? PS I can read/write in Russian

Добрый день! Дайте линк на этот код пожалуйста, я никак не нашел его.

Уважаемый Андрей. Ваше: "маразм крепчает". Совсем не уместен. Прошу Вас в дальнейшем быть сдержанным. С Уважением.

Т.к. маразм крепчает, вышел новые закон, который обязует чтобы "вся информация, предназначенная для публичного ознакомления потребителей, должна предоставляться на русском языке" . Huawei app galery даже выпустил предупреждение на этот счёт. Распространяется ли это на названия приложений? Если да, то что теперь надо два приложения создавать , одно для публикации только в России, второе для заграницы?

Целые сутки потратил, чтобы настроить TSwitch. Реально я точно понимаю, что я быстрее бы взял TPanel с фоном в виде скругленного прямоугольника и по нажатию возил бы по нему кружочек... Извините, но эти компоненты не для пользователя, это юзабельно только для того, кто это разрабатывал.

Насколько же они неработоспособные эти стили FMX. Пытаюсь редактировать стиль TSwitch, бросил новый элемент на форму - EditCustomStyle, в StyleDesigner открывается TBitmapSwitchObject без наполнения внутри. В его свойствах есть набор BitmapLinks, например ThumbHot, ThumbOn и так далее. При нажатии открывает список его TBitmapLink с разным Scale. Но как я должен редактировать? В слепую? В других компонентах с элементами типа background внутри - открывается хотя бы PNG где можно выбрать область.

И как решилась проблема? А то у меня тоже возникла. Интересно, как решается. У меня лично проблемы возникла после того, как я вернулся к проекту, написанному на Delphi 10x .Пришлось сбрасывать пакеты до значения по умолчанию. Потом следующая напасть -удалить дублирующие пакеты , потом вот следующий квест, как у автора. P.S. Ну конечно же старый способ , создать новый проект всё ещё работает, так что так и решил проблему, но этот способ несколько подвешивает, хорошо, что там несколько файлов всего было, а если бы 100, это сколько времени бы убить пришлось.

Вопрос решён. Оказывается Access не знает команды SUBSTRING. Oracle знает такую команду, только немного изменённую SUBSTR. Я эту команду заменил на MID. И всё заработало.

Здравствуйте уважаемые. Прошу Вас подсказать почему возникает НЕОПОЗНАННАЯ ОШИБКА при sql запросе к файлу базы Access через ADOConnection. У меня IDE Delphi 10.3, OS Win 7, MSOffice 2014. Суть запроса следующий. В файле базы имеется поле с названием Индекс_уровня. Его тип String. В каких то строках этого поля имеются вот такие записи типа 2_1_012_012_000. Требуется занести в таблицу DBGrid все записи у которых сначала 012 а остальное отбросить. Сам запрос формирую так: Запрос:='SELECT * FROM Tab_Glavn where SUBSTRING(Индекс_уровня, 5, 3) = ' + НомерПозВголов; Где НомерПозВголов это переменная String в которую я заранее загружаю 012. Т.е. с 5-го символа длиной 3 символа строки сравнить с данными в переменной НомерПозВголов. Синтаксических ошибок не выдаёт. Просто в результате обработки исключения : Except on e: Exception do begin MessageDlg('Возникло исключение: '+e.Message, mtInformation,[mbYes],0); end; End; появляется сообщение: Возникло исключение: НЕОПОЗНАННАЯ ОШИБКА. СпасиБО.

Недавно я решил лично проверить этот специализированный ресурс и по своему опыту результат меня порадовал. Как человек, который работает с такими инструментами я нечасто вижу настолько качественно сделанные площадки. Отдельного внимания заслуживает то, что всё работает как нужно, а итог полностью оправдал ожидания. Сервис можно посмотреть здесь https://mega-darknet-sayt.cfd мега официальный сайт мега Могу смело советовать, что ресурс приятно удивил и станет хорошей находкой тем, кто работает в этой теме.

Вопрос решил спасибо

написал компонент для вывода вот такого под виндой нормально работает работает вот так изображения тайлятся и обрезаются под Android появляется вот така сетка не могу понять куда копать(((( Вроде все попробовал но не как как сделать что бы выводилось как под виндой то есть как есть. Спасибо. вот исходник

Коллеги, добрый день. Ищу **Senior Linux Desktop Engineer (Cross-Platform, Delphi)** в продуктовую инженерную компанию с 30+ летней историей. Проект: * большой desktop-продукт * активный переход на полноценную кроссплатформенность (Windows → Linux), * развитие и стабилизация Linux-версии, * работа с GTK, * сложная архитектура, визуализация больших данных, производительность. Важно: * это не “поддержка старого кода”, * это техническая трансформация продукта, * Linux-направление сейчас — стратегический приоритет. Кого рассматриваем: * Linux Desktop-разработчиков (3–5+ лет в Linux), * Опыт с Delphi 5+ лет * с опытом портирования Windows → Linux Будет плюсом: * Опыт с GTK * Опыт с WINE * Опыт с Astra Linux / ALT Linux / RedOS, * Опыт работы с большими кодовыми базами, * Понимание производительности и оптимизации. ЗП: * Senior — 200–300K * Architect — 300–350K Подробное описание проекта: https://drive.google.com/file/d/1t75s2VE_VwafBEhU6iM7xIKx6C5BzOCw Буду рад вопросам и личным сообщениям. Пишите мне в ТГ: danirshabazov

Хотите приобрести медицинские товары для клиник от официального дистрибьютора в регионе? Компания [url=https://medikwest.ru]https://medikwest.ru[/url] реализует разнообразные медтовары — от одноразовой медицинской продукции до расходных материалов для лабораторий. Сотрудничаем с проверенными поставщиками, обеспечиваем надежность продукции, необходимые документы и быструю доставку в Чебоксарах. Это без лишних хлопот, стабильно и качественно. https://medikwest.ru Все детали на сайте — медизделия, расходные материалы, официальный поставщик.

Всем привет вопрос к знатокам (и не только): как правильно поменять параметры TVertScrollBox ? На первой картинке в левой части изображен дефолтный TVertScrollBox, а с права немного изменённый, который я вытащил из одного стиля, который поставляется вместе с Rad Studio 11 Я относительно недавно работаю с Rad Studio, поэтому будучи новичком пробовал разные способы видоизменять те или иный виджеты, со стилями кнопок все более менее понятно, но как быть с TVertScrollBox ? Я как обычно решил в лоб поменять параметр hscrollbar (изображен на второй картинке - элементы TVertScrollBox в StyleContainer), и вот казалось бы, после сохранения изменений стиля и выбора нужного StyleLookUp для моего TVertScrollBox - я вижу то что у виджета и вправду поменялась ширина скролла (как вертикального, так и горизонтального, как в правой части первой картинки) После прошивки GUI (графического интерфейса) в котором и находиться мой злополучный TVertScrollBox , на мой андроид планшет, мой видоизмененный TVertScrollBox отображается как задумано ОДНАКО!!! стоит мне дотронуться до этого виджета, его стиль тут же возвращается в дефолтный стиль .... как быть ? P.S. я пробовал "edit default style" но у меня выходит вот такая ошибка

Добрый день, Tumaso! Очень жаль, что у вас сложилось такое впечатление. Напишите мне в Телеграм - отвечу на все ваши вопросы. Данир

Типично для мошенников, никакой телефонной связи, только мессенджер. Самое удивительное, что по официальному телефону, официальный сотрудник НПЦ «ГеоТЭК»компании, наличие вакансий опровергает.

Позиция: Ведущий Delphi Разработчик Квалификация: Middle | Senior Опыт: 2+ года коммерческой разработки на Delphi (новые версии) и SQL Server Локация: офисный формат в Минске / Беларусь Занятость: Fulltime / Полная Компания: ARTITERA Telegram: @natalia_artitera ЧЕМ ПРЕДСТОИТ ЗАНИМАТЬСЯ: 1. Разработка и сопровождение высоконагруженных систем: ERP, WMS, CRM, POS. 2. Проектирование архитектуры под новые бизнес-требования. 3. Интегрирование внутренних и внешних сервисов. МЫ ОЖИДАЕМ: 1. от 2 лет коммерческой разработки на Delphi (новые версии) и SQL Server. 2. Уверенная разработка под Windows Server / Desktop, опыт мобильной разработки для Android. 3. Глубокое понимание алгоритмов, сетевых протоколов, стандартов. Знание архитектуры распределённых высоконагруженных систем. 4. Будет плюсом: C++/C#/Kotlin, CI/CD, опыт в автоматизации торговли/логистики. TG: @natalia_artitera