https://expert.delphi-int.ru Информация о последних заданных вопросах. ru-ru Sat, 08 Jul 2023 20:01:37 +0300 Copyright (C) 2004-2023 Delphi.int.ru admin@delphi-int.ru admin@delphi-int.ru Sat, 08 Jul 2023 20:01:37 +0300 Programming https://expert.delphi-int.ru - RSS Generator 180 https://expert.delphi-int.ru/question/6696/ https://expert.delphi-int.ru/question/6696/ Tue, 09 Aug 2022 09:39:09 +0300 Как организовать добавление элементов TComponent в TTreeView согласно принадлежности?

Тематический раздел: Общие вопросы по программированию
Автор вопроса: Vollmond
Страница и мини-форум вопроса » ]]> admin@delphi-int.ru Delphi.int.ru Expert https://expert.delphi-int.ru/question/6695/ https://expert.delphi-int.ru/question/6695/ Mon, 24 Aug 2020 10:44:21 +0300 begin
ed:=RzEdit1.Text;
AdoTable1.Filtered:=true;
Label8.Caption :=IntToStr(RzDBGrid1.DataSource.DataSet.RecordCount);
end;
Но почему то все равно показывает все записи в таблице. Помогите пожалуйста. Заранее большое всем спасибо.

Тематический раздел: Программирование баз данных (БД)
Автор вопроса: Beknur
Страница и мини-форум вопроса » ]]> admin@delphi-int.ru Delphi.int.ru Expert https://expert.delphi-int.ru/question/6694/ https://expert.delphi-int.ru/question/6694/ Mon, 17 Aug 2020 23:38:51 +0300
Тематический раздел: Общие вопросы по программированию
Автор вопроса: Beknur
Страница и мини-форум вопроса » ]]> admin@delphi-int.ru Delphi.int.ru Expert https://expert.delphi-int.ru/question/6693/ https://expert.delphi-int.ru/question/6693/ Mon, 10 Aug 2020 20:55:40 +0300
Помогите разбить по колонкам в ListView вот такой текст.

Тематический раздел: Общие вопросы по программированию
Автор вопроса: Vit2
Страница и мини-форум вопроса » ]]> admin@delphi-int.ru Delphi.int.ru Expert https://expert.delphi-int.ru/question/6692/ https://expert.delphi-int.ru/question/6692/ Fri, 27 Dec 2019 20:12:23 +0300 помогите найти ошибку в тесте диалога:
if Field <> nil then
if not (FDataLink.Field.DataType in [ftString, ftBoolean, ftSmallInt,
ftInteger, ftWord, ftFloat, ftCurrency, ftDate, ftTime, ftDateTime]) then
MessageDlg(Format('You cannot filter on %s field types. Please try again.',
[FldType[FDataLink.Field.DataType]]), mtInformation, [mbOK], 0);
Ошибка в синтексисе последней строки, но какая?

Тематический раздел: Прочее
Автор вопроса: Новиков/novik
Страница и мини-форум вопроса » ]]> admin@delphi-int.ru Delphi.int.ru Expert https://expert.delphi-int.ru/question/6691/ https://expert.delphi-int.ru/question/6691/ Thu, 29 Nov 2018 09:46:48 +0300 Можно ли сделать программу который заходить на сайт автоматический имея логин пароль? Иметься около 100 логинов/парол и нужно зайти на сайт исползуя эти логин и промежутками 5-10 минутов. Помогите с советами.

Тематический раздел: Прочее
Автор вопроса: Beknur
Страница и мини-форум вопроса » ]]> admin@delphi-int.ru Delphi.int.ru Expert https://expert.delphi-int.ru/question/6690/ https://expert.delphi-int.ru/question/6690/ Thu, 22 Nov 2018 14:39:48 +0300 У меня телефон-ZTE-G S203. Когда я набираю чей небудь номер мне показывает-,,Только номер для вызова помощи''.Невозможно некуда позвонить.Наверно нечайно активировал какую небудь команду .Как нормализировать работу телефона Спасибо

Тематический раздел: Разные вопросы
Автор вопроса: Мартынов Александр Владимировичь
Страница и мини-форум вопроса » ]]> admin@delphi-int.ru Delphi.int.ru Expert https://expert.delphi-int.ru/question/6689/ https://expert.delphi-int.ru/question/6689/ Tue, 23 Oct 2018 16:23:01 +0300 Подскажите, как в текстовое поле Memo вывести строки символов разным цветом шрифта. Какие свойства компонента необходимо использовать.

Спасибо.

Тематический раздел: Работа с компонентами и библиотеками
Автор вопроса: Иванов Роман
Страница и мини-форум вопроса » ]]> admin@delphi-int.ru Delphi.int.ru Expert https://expert.delphi-int.ru/question/6688/ https://expert.delphi-int.ru/question/6688/ Mon, 02 Apr 2018 13:45:53 +0300

Задача состоит в том, чтобы создать файл и записать его данными, но есть структура параметров, которая должна соблюдаться:
n -индекс (4 байта)
timestamp - временная метка (4 байта)
unsigned int Ak - значение напряжения аналогового канала (2 байта)
unsigned int SM -значение напряжения дискретного канала (2 байта)
Каналов может быть много, как будут поступать данные пока неизвестно.
Допустим 3 аналоговых канала 2 дискретных
Файл должен записываться
n timestamp анал. каналы дискр.
4 байта 4 байта 2 байта 2 байта 2 байта 2 байта 2 байта

Я новичок в с++. Подскажите, возможно, есть более разумный вариант заполнения данных каналов(чтоб не с консоли).
Да и вообще, мои ошибки. И как проверить соблюдается ли структура.

Тематический раздел: C++
Автор вопроса: kytcenochka
Страница и мини-форум вопроса » ]]> admin@delphi-int.ru Delphi.int.ru Expert https://expert.delphi-int.ru/question/6687/ https://expert.delphi-int.ru/question/6687/ Fri, 30 Mar 2018 16:00:39 +0300
Необходимо создать и записать бинарный файл.
Файл должен содержать 4 поля, определенных размеров:
int n - номер выборки (должен занимать 4 байта)
int timestamp - Временная метка (должен занимать 4 байта)
unsigned int Ak- значения аналоговых сигналов ( 2 байта)
unsigned int SM - значения дискретных сигналов ( 2 байта)
Структура не должна нарушаться!

Каким более разумным способом можно заполнить значение каналов (чтоб не с консоли)? Так как количество каналов может изменяться, откуда будут поступать данные пока неизвестно.

Тематический раздел: C++
Автор вопроса: kytcenochka
Страница и мини-форум вопроса » ]]> admin@delphi-int.ru Delphi.int.ru Expert https://expert.delphi-int.ru/question/6686/ https://expert.delphi-int.ru/question/6686/ Mon, 26 Mar 2018 15:12:42 +0300 Программирую на RAD studio 10 Delphi, проблема эмулирую работу мышки и нажатие кнопки функцияей SetCursorPos(100, 200) но система ругается на синтаксис - нет такой функции. помогите решить проблему или дайте пож пример.

Тематический раздел: Общие вопросы по программированию
Автор вопроса: Алексей Ман
Страница и мини-форум вопроса » ]]> admin@delphi-int.ru Delphi.int.ru Expert https://expert.delphi-int.ru/question/6685/ https://expert.delphi-int.ru/question/6685/ Sun, 18 Mar 2018 20:52:25 +0300 Это снова я . Начал осваивать Pirl, вроде бы написал первый простенький скрипт на Notepad++, и все OK, сейчас пишу второй, немного сложнее, потребовалась отладка, т.к. он вообще не работает от слова совсем, пробывал отлаживать в стандартном отладчике в консоли, нашел некоторые ошибки, но сейчас требуется в определенной строке смотреть значение, пробывал через команду консоли c 143 s Enter, пишет неверный синтаксис.
В общем то вопрос в том что нужен нормальный IDE с возможностью отладки скрипта, в режиме обработки другого файла, т.к. скрипт пишется для редактирования G-code для личных нужд. Скачал IDE Padre, интерфейс неплох, но порывшись в интернете понял что вроде как того функционала который нужен там нет, т.к. тот же дебагер запускается в консоли.
Прошу посоветовать IDE для отладки скриптов на perl5, с возможностью запуска обработки других файлов отлаживаемым скриптом.
Сразу хочу оговориться, что Comodo явно не вариант т.к. является платной и поэтому для личных нужд для меня не подходит.
Или если это возможно. пожалуйста подскажите как в Padre в режиме отладки обрабатывать скриптом другие файлы.
Собственно сам файл от которого отплевывается оладчик как самого perl, так и Padre прилагаю.

Тематический раздел: Perl
Автор вопроса: SOA
Страница и мини-форум вопроса » ]]> admin@delphi-int.ru Delphi.int.ru Expert https://expert.delphi-int.ru/question/6684/ https://expert.delphi-int.ru/question/6684/ Wed, 28 Feb 2018 18:55:23 +0300 Мой вопрос касается директивы #define.
Необходимо сформировать текстовую константу с помощью данной директивы, однако вариант

#define someConst "someVal"
не подходит. т.к. мне нужно формировать текстовое значение из отдельных шестнадцатиричных значений, пробывал вот так:
#define someConst (char(0x15)+char(0x2D)+char(0xFF))
однако компилятор ругается при сборке, подскажите пожалуйста как можно это реализовать?
По поводу зачем все эти извращения отвечу сразу, есть прошивка для девайса и есть дисплей в девайсе, где прошиты если верить документации кириллические символы, пока что это этот дисплей может выводить текст либо на английском либо на крокозябрах, или японском, я точно не понял, к какому языку относятся те символы, а для отображения слов на русском, если я правильно мыслю из в переменные придется загонять по адресам таблицы символов этого дисплея, поэтому шестнадцатиричные значения, а не текст, потому что если просто по русски написать слово, будет муть.

Тематический раздел: C++
Автор вопроса: SOA
Страница и мини-форум вопроса » ]]> admin@delphi-int.ru Delphi.int.ru Expert https://expert.delphi-int.ru/question/6683/ https://expert.delphi-int.ru/question/6683/ Sun, 25 Feb 2018 17:35:19 +0300 Приветствую, уважаемые эксперты!
Использую компонент PasLibVlc в программе Но когда меняю
BorderStyle(bsSizeable>>bsNone)
и WindowState (wsNormal>>wsMaximized) и обратно
пропадает видео, но играет звук. Помогите разобраться с проблемой.
Сделал перезапуск видео со времени которое было при изменении размера,
но это не то есть задержка на воспроизведение а при работе с rtsp
и другими данными вообще только переподключение.

Тематический раздел: Работа с компонентами и библиотеками
Автор вопроса: AiraKobra45
Страница и мини-форум вопроса » ]]> admin@delphi-int.ru Delphi.int.ru Expert https://expert.delphi-int.ru/question/6682/ https://expert.delphi-int.ru/question/6682/ Sun, 25 Feb 2018 08:44:09 +0300 Подсажите как создать динамический массив со сложным именем и вообще что не так делаю?
SetLength(api.patinf.inrancs.list,1)

Тематический раздел: Общие вопросы по программированию
Автор вопроса: Александр73Петров
Страница и мини-форум вопроса » ]]> admin@delphi-int.ru Delphi.int.ru Expert https://expert.delphi-int.ru/question/6681/ https://expert.delphi-int.ru/question/6681/ Mon, 05 Feb 2018 15:32:07 +0300
Пишу простейший telnet клиент. Использую компонент IdTelnet
Проблема в том что при ответе получаю доп символы.
Например захожу на Zyxel роутер.
Login: [K
Hex: 4C 6F 67 69 6E 3A 20 1B 5B 4B
a
Hex: 61

[Kd [Km [Ki [Kn [K
Password: [K
Hex: 1B 5B 4B 64 1B 5B 4B 6D 1B 5B 4B 69 1B 5B 4B 6E 1B 5B 4B 0D 0D 0A 50 61 73 73 77 6F 72 64 3A 20 1B 5B 4B

* [K
Hex: 2A 1B 5B 4B

* [K* [K* [K* [K* [K* [K* [K
Hex: 2A 1B 5B 4B 2A 1B 5B 4B 2A 1B 5B 4B 2A 1B 5B 4B 2A 1B 5B 4B 2A 1B 5B 4B 2A 1B 5B 4B 0D 0D 0A

(config)> [K
Hex: 28 63 6F 6E 66 69 67 29 3E 20 1B 5B 4B

Что это за мусор 1B 5B 4B ?

Проверял telnet (winxp) и PuTTY
Всё четко не какого мусора нет.

Тематический раздел: Работа с сетями и протоколами
Автор вопроса: Zlodey
Страница и мини-форум вопроса » ]]> admin@delphi-int.ru Delphi.int.ru Expert https://expert.delphi-int.ru/question/6680/ https://expert.delphi-int.ru/question/6680/ Tue, 30 Jan 2018 21:03:02 +0300 Помогите мне пожалуйста!
У меня комп не видит вторую планку ОЗУ!
Даже БИОС не определяет, менял местами - обе рабочие, а второй слот пишет, "NONE"!
За ранее спасибо!

Тематический раздел: Разные вопросы
Автор вопроса: Vollmond
Страница и мини-форум вопроса » ]]> admin@delphi-int.ru Delphi.int.ru Expert https://expert.delphi-int.ru/question/6679/ https://expert.delphi-int.ru/question/6679/ Tue, 16 Jan 2018 18:13:05 +0300 Нужно запустить разные программы с разными правами пользователя, как узнать какой экзешник требует права администратора?

Тематический раздел: Общие вопросы по программированию
Автор вопроса: Корбут Анатолий Владимирович
Страница и мини-форум вопроса » ]]> admin@delphi-int.ru Delphi.int.ru Expert https://expert.delphi-int.ru/question/6678/ https://expert.delphi-int.ru/question/6678/ Wed, 10 Jan 2018 13:42:05 +0300
Необходимо проиграть подряд 3 файла: 1.mp3, 2.mp3, 3.mp3
В моём коде проигрывает только последний файл 3.mp3
Подскажите решение.
Спасибо

while i <> 3 do
begin

bass_StreamFree(stream);
folder:=n ;
stream:= bass_streamCreateFile(false, pChar(folder+'eng'+inttostr(i)+'.mp3'), 0, 0, 0);
panel1.caption:=folder+'eng'+inttostr(i)+'.mp3';
bass_channelplay(stream, true);
i:=i+1;

end;

Тематический раздел: Общие вопросы по программированию
Автор вопроса: Edward
Страница и мини-форум вопроса » ]]> admin@delphi-int.ru Delphi.int.ru Expert https://expert.delphi-int.ru/question/6677/ https://expert.delphi-int.ru/question/6677/ Fri, 15 Dec 2017 06:46:05 +0300 DateTimePickerData и Edit. В первый вноситься дата рождения клиента, во второй необходимо что бы заносилось полное количество лет на сегодняшний день! Помогите с кодом.

Тематический раздел: Общие вопросы по программированию
Автор вопроса: GAZ
Страница и мини-форум вопроса » ]]> admin@delphi-int.ru Delphi.int.ru Expert https://expert.delphi-int.ru/question/6676/ https://expert.delphi-int.ru/question/6676/ Fri, 10 Nov 2017 12:07:46 +0300 Есть некоторый объект TBase, в котором описан тип Type TFigure = (Rect,Elipse,RoundRect);
published
property TypeFigure : TFigure read fTypeFigure write SetTypeFigure ;

Теперь я хочу прочитать это свойство и занести в ValueListEditor, это я делаю. Но мне нужно еще прочитать и значения типа TFigure и занести их в выпадающий список. Помогите как это сделать.

Тематический раздел: Общие вопросы по программированию
Автор вопроса: RedDragon
Страница и мини-форум вопроса » ]]> admin@delphi-int.ru Delphi.int.ru Expert https://expert.delphi-int.ru/question/6675/ https://expert.delphi-int.ru/question/6675/ Sat, 21 Oct 2017 14:25:13 +0300
Тематический раздел: Разные вопросы
Автор вопроса: Мартынов Александр Владимировичь
Страница и мини-форум вопроса » ]]> admin@delphi-int.ru Delphi.int.ru Expert https://expert.delphi-int.ru/question/6674/ https://expert.delphi-int.ru/question/6674/ Thu, 12 Oct 2017 22:50:30 +0300 Есть cxDBGrid (DevExpress), в который через Mem-компонент запросом вытягивается таблица для редактирования
"Имя - Параметр- Маска ввода"
Вопрос:
как в cxDBGrid для конкретной ячейки указать маску ввода (необходимые маски: дата, телефон, личный номер)

Тематический раздел: Работа с компонентами и библиотеками
Автор вопроса: Aндрей
Страница и мини-форум вопроса » ]]> admin@delphi-int.ru Delphi.int.ru Expert https://expert.delphi-int.ru/question/6673/ https://expert.delphi-int.ru/question/6673/ Sat, 26 Aug 2017 21:10:17 +0300 Пытаюсь получить письмо с mail.ru с помощью IdPOP3.
Не могу расшифровать IdMessage1.Subject
Вместо кириллицы вопросики.
По всему интернету решение проблем только отправки, а получения не нашел.

Тематический раздел: Общие вопросы по программированию
Автор вопроса: вел
Страница и мини-форум вопроса » ]]> admin@delphi-int.ru Delphi.int.ru Expert https://expert.delphi-int.ru/question/6672/ https://expert.delphi-int.ru/question/6672/ Fri, 18 Aug 2017 15:20:17 +0300 Возникла следующая задача. Я строю диаграмму TChart по данным из введённых в Edit значений.
Всего, к примеру у меня 10 edit-ов для ввода 10 значений (5 значений по оси х и 5 значений по у).
График прекрасно выходит, но возник вопрос - если строить график не по 10 значениями, например, по 6. То есть 4 edita остаются незаполненными.
Какой написать алгоритм, чтобы программа не выдавала ошибку?

Заранее Вам спасибо!

Тематический раздел: Графика (2D и 3D) в приложениях
Автор вопроса: marmichova
Страница и мини-форум вопроса » ]]> admin@delphi-int.ru Delphi.int.ru Expert https://expert.delphi-int.ru/question/6671/ https://expert.delphi-int.ru/question/6671/ Thu, 20 Jul 2017 15:06:57 +0300 Пишу код для поиска слова по маске, uses Mask пользоваться не хочу.
По моей логике, код должен работать, но он не работал, я попробовал снова и итог был тем же. После чего мои нубские мозги выдали еррор и вот я тут.

В memo1 на разных строчках есть два слова "дом" и "дым". В Edit1 маска "д_м" должна отослать эти два слова в Memo2 но ничего не происходит.
Как починить?

Тематический раздел: Алгоритмы, преобразования
Автор вопроса: ugorek
Страница и мини-форум вопроса » ]]> admin@delphi-int.ru Delphi.int.ru Expert https://expert.delphi-int.ru/question/6670/ https://expert.delphi-int.ru/question/6670/ Wed, 19 Jul 2017 12:27:15 +0300
Помогите создать программу которая будет регулировать общий звук в Windows 10, просмотрел кучу программ в интернете но не подходят именно для windows 10.
Например поставил в свойстве OnChange код и работала бы, я в программировании не сильно силён так что не судите строго, если можно чтоб код небольшой был

Тематический раздел: Мультимедийные приложения
Автор вопроса: Бедрин Евгений Иванович
Страница и мини-форум вопроса » ]]> admin@delphi-int.ru Delphi.int.ru Expert https://expert.delphi-int.ru/question/6669/ https://expert.delphi-int.ru/question/6669/ Mon, 10 Jul 2017 02:23:06 +0300 Общее описание:
В программе все DataSet и DataSource собраны в одном DataModule.
Формы создаются динамически в зависимости от надобности, в них в разделе implementation есть загрузка uses datamodule.
На форме размещен DBGrid (связан с соответствующим DataSource из datamodule), несколько кнопок.
Задача: Как в зависимости от положения указателя таблицы (перемещения по строкам) изменять параметр (неважно какой) кнопки.
Могу, конечно, и в форме отслеживать все щелчки мышью и нажатия клавиши (для контроля изменения положения указателя таблицы), но это как-то некрасиво выглядит.
Лучший вариант - использовать OnAfterScroll у соответстующего DataSet-а.
Вопрос: каким образом из OnAfterScroll соответстующего DataSet-а, расположенного в DataModule проконтролировать, создана ли (активна) нужная форма, а затем обратиться к ее методам класса для изменения параметра контрола.

Тематический раздел: Общие вопросы по программированию
Автор вопроса: Ed
Страница и мини-форум вопроса » ]]> admin@delphi-int.ru Delphi.int.ru Expert https://expert.delphi-int.ru/question/6668/ https://expert.delphi-int.ru/question/6668/ Fri, 07 Jul 2017 22:14:10 +0300 Что-то давно я не работал с Delphi, и вобщем много позобыл,
подскажите пожалуйсто, как организовать программно в Rad 10 создание
Shape class TLine и организовать в программе перемещение концов! За ранее спасибо!!!

Тематический раздел: Графика (2D и 3D) в приложениях
Автор вопроса: Vollmond
Страница и мини-форум вопроса » ]]> admin@delphi-int.ru Delphi.int.ru Expert https://expert.delphi-int.ru/question/6667/ https://expert.delphi-int.ru/question/6667/ Sat, 01 Jul 2017 17:22:44 +0300 Стоит вопрос по передаче кода нажатой клавиши из основной формы в дочернюю.
Суть в следующем:
В основной форме есть TEdit.
При нажатии на клавиатуру в обработчике EditKeyPress(Sender: TObject; var Key: Char) код клавиши нужно послать в создаваемое дочернее окно Form2.
Окно Form2 модальное.
В Form2 имеется компонент DBGridEh, который уже сам обрабатывает полученное значение (поиск по букве в таблице).
Проблема: как передать нажатие клавиши из основной формы в создаваемое дочернее модальное окно.
Ниже приведен код, в котором никак не могу передать нажатие клавиши. Посоветуйте, как можно решить данный вопрос?

Тематический раздел: Общие вопросы по программированию
Автор вопроса: Ed
Страница и мини-форум вопроса » ]]> admin@delphi-int.ru Delphi.int.ru Expert