Уважаемые господа, прошу помощи в поиске ответа на следующий вопрос. Программа запускается с помощью ярлыка (не обязательно ярлык на Рабочем столе Windows). Есть ли способ получить сведения об иконке этого ярлыка, аналогично ParamStr/GetCommandLine? ...

http://www.delphikingdom.com/asp/answer.asp?IDAnswer=83711

Доброго времени суток! Уважаемые гуру программирования и высокие профессионалы! Помогите решить частную глупую проблемку! Есть файл XML, который содержит несколько однотипных элементов с разными именами: [Code] ABSD 1234 EFGHK 56789

http://www.delphikingdom.com/asp/answer.asp?IDAnswer=83708

Здравствуйте! Вопрос по fastreport 5.6.8 Открываю готовый отчёт, убираю из него один из компонентов, но при печати печатается с этом компонентом и после печати компонент опять присутствует. [Code]frxReport1.PreviewPages.LoadFromFile('report1.fp3'); for i1:=0 to frxReport1.PreviewPages.Count-1 do begin if frxReport1.PreviewPages.Page[i1].FindObject('TfrxPictureView1')<>nil then TfrxPictureView(frxReport1.PreviewPages.Page[i1].FindObject('TfrxPictureView1')).Free; end; frxRe ...

http://www.delphikingdom.com/asp/answer.asp?IDAnswer=83709

Всем привет! Delpi7 + ADO + TMemTableEh(в виде дерева) + Access Запрос такой:

code:
ADOQuery.SQL.Text := 'SELECT * FROM EQUTABLE ORDER BY EName';

Всё нормально раотало в тестовом режиме. Начали забивать таблицу рабочими данными и в какой-то момент приложение после этого запроса стало падать. Начал выяснять и вот что получилось: Если запрашивать только часть данных, то опять всё хорошо раотает: [Code]ADOQuery.SQL.Text := 'SELECT * FROM EQUTABLE WHERE EKey<75 ORDER BY EName'; ...

http://www.delphikingdom.com/asp/answer.asp?IDAnswer=83707

Доброго дня всем жителям Королевства. столкнулся с такой проблемой: при установке пакета компилятор выдает ошибку, не найден DrpCtrls в следующем месте: unit DSDesign; interface uses Windows, SysUtils, Messages, Classes, Graphics, Controls, Forms, StdCtrls, ExtCtrls, DB, Dbctrls, DesignIntf, DesignEditors, DsnDBCst, DesignWindows, Menus, DrpCtrls; Поиск этого файла результатов не дал. До этого схожая ошибка проявилась в DesignWindows, когда компилятор не видел ComponentDesign ...

http://www.delphikingdom.com/asp/answer.asp?IDAnswer=83706

Доброго времени суток! Нужно определить корректность имени узла XML, вводимого пользователем. Здесь (http://ruphp.com/x430-13.html) нашел регулярное выражение для проверки. Сравнил его с рекомендацией WW3 (https://www.w3.org/TR/2008/REC-xml-20081126/) для допустимого состава символов NameChar. Вроде все законно. Но при использовании данного выражения в Delphi средствами модуля RegularExpressions.pas возникает ошибка разбора выражения "Error in regular expression at offset 57: range out of ord ...

http://www.delphikingdom.com/asp/answer.asp?IDAnswer=83705

Уважаемые коллеги, столкнулся с такой проблемой: необходимо создать файл с запрещенным именем (типа con, prn) на сетевом диске. На обычном локальном диске это легко делается с помощью unc имени. На сетовом получаю ошибку "недостаточно прав" после вызова CreateFile. Не работают префиксы "\\.\" и "\\?\". Не работает и с сетевым путём, полученным с помощью WNetGetConnection. С обычными именами файлов любые из способов срабатывают. Ко всему используется дескриптор безопасности: D: (A;OICI;GRG ...

http://www.delphikingdom.com/asp/answer.asp?IDAnswer=83697

Здравствуйте жители королевства. Столкнулся с проблемой, что не хочет устанавливаться пакет BPL. Delphi 10.3, Windows 10 x64. Ошибка Can't load путь к пакету %1 is not a valid Win32 application. ...

http://www.delphikingdom.com/asp/answer.asp?IDAnswer=83689

Доброго времени, уважаемые. У меня созрел новый вопрос для Вашего пытливого ума. Имеется служба, которая мониторит наличие, подключение и отключение внешних носителеё (флешек в конкретном случае). Кроме того, она работает с этими носителями на низком уровне. Но сегодня поступило требование работать не с флешками, а с сетевыми дисками (это те же флешки, но примонтированные, как сетевые диски). И тут выяснилось, что служба под LOCAL_SYSTEM не видит сетевые диски. Как бы Вы посоветовали пос ...

http://www.delphikingdom.com/asp/answer.asp?IDAnswer=83690

Всем здравствовать! Объясните мне, пожалуйста, почему не работает следующий трюк: 1. Принимаю в DLL указатель на packed структуру с полями процедурного типа. 2. Присваиваю этим полям обработчики. 3. В приложении объявляю упомянутую структуру и передаю её адрес в DLL. 4. Но когда пытаюсь вызвать метод, то ничего не работает: AInstance.Open(); Т.е. я пытаюсь создать обычный не комовский интерфейс. Где моя ошибка. Пока код далеко, но если надо, то выложу позднее. Delphi XE2. ...

http://www.delphikingdom.com/asp/answer.asp?IDAnswer=83680

Здравствуйте! Воспользовался в качестве основы примером работы с камерой, но возник вопрос. Этот код вызывает страницу настроек камеры [Code] procedure TfmMain.Button6Click(Sender: TObject); var StreamConfig: IAMStreamConfig; PropertyPages: ISpecifyPropertyPages; Pages: CAUUID; Begin if FVideoCaptureFilter = NIL then EXIT; FMediaControl.Stop; try if SUCCEEDED(FCaptureGraphBuilder.FindInterface(@PIN_CATEGORY_CAPTURE, @MEDIATYPE_Video, FVideoCaptureFilter, IID_ ...

http://www.delphikingdom.com/asp/answer.asp?IDAnswer=83671

проект Королевство Дельфи жив? ...

http://www.delphikingdom.com/asp/answer.asp?IDAnswer=83660

Доброго времени и с наступающими праздниками! Что бы мне могли посоветовать знающие люди по следующему вопросу: Использую для POST запроса TIdHTTP. Посылаю JSON, получаю короткие строки. Иногда это работает без всяких нареканий десятки раз, но в какой-то момент сервер(?) рвет соединение и наблюдаем Closed Gracefully. Исключение я скрыл, но в результате после этого пустая строка. Хотя PHP-скрипт на сервере, которому посылаю POST параллельно отправляет письмо, с данными, которые показывают ...

http://www.delphikingdom.com/asp/answer.asp?IDAnswer=83656

Решил создать тестовый ONVIF сервер на Delhi XE2 . Создал Soap Server Application , потом через wsdl importer подключил https://www.onvif.org/ver10/events/wsdl/event.wsdl В результате в числе прочего сгенерировался такой код

code:
 CreatePullPoint = class(TRemotable)
  private
  published
  end;

и [Code] CreatePullPoint = interface(IInvokable) ['{8D12C2D4-BA7F-B3F5-6FA5-8089455FF62F}'] function CreatePullPoint(const CreatePullPointRequest: CreatePullPoint): Create ...

http://www.delphikingdom.com/asp/answer.asp?IDAnswer=83627

Добрый день всем. Суть задачи: производится открытие физического диска с помощью CreateFile и запись в определенные сектора. Когда-то давно система это легко позволяла. Но, кажется, с Висты стало необходимо блокировать или демонтировать логические тома перед такой операцией. Вопрос: как правильнее и безопаснее проводить эту операцию? 1. Получение (открытие) PhisicalHandle. 2. Получение (открытие) LogicalHandle. 3. Lock(LogicalHandle). 4. Write(PhisicalHandle). 5. UnLock(LogicalHandl ...

http://www.delphikingdom.com/asp/answer.asp?IDAnswer=83626

Всем доброго времени суток! Задача избитая, но полноценного решения не нашел. Нужно сделать ping на Delphi. Нашел вроде хороший пример http://www.delphimaster.ru/articles/icmp.html , но не хватает мозгов как сделать, что бы размер буффера можно бло указывать произвольно? Не хватает мозгов переделать на динамический массив буффера данных. Кроме того хотелось бы услышать мнение по правильности этого кода, есть мнение, что этот код может вызывать утечки памяти... И еще интересно - в Delphi XE случа ...

http://www.delphikingdom.com/asp/answer.asp?IDAnswer=83571

Добрый день! Вопрос больше по ораклу. Жутко тормозят запросы OpenSchema и вообще все запросы на базу для получения метаданных. Например, запрос для получения Primary Keys на одну таблицу, 6-7 секунд. Пробовал пересоздавать статистику словарей, не помогло.

code:
 
...
  V := VarArrayCreate([0, 2], varVariant);
  V[1] := 'MY_ORACLE_USERDB';
  V[2] := 'MY_TABLE';

  LDS.Recordset := LConnectionObject.OpenSchema(adSchemaPrimaryKeys, V, EmptyParam);
...

если получать данные ...

http://www.delphikingdom.com/asp/answer.asp?IDAnswer=83566

Доброго времени суток! Уже который день не могу решить проблему рисования линии с шумом. Необходимо нарисовать линию из точки А в точку Б шириной в 5-6 пикселов с добавлением на нее шума. (Чередование черно белого цвета в рандомном виде) ...

http://www.delphikingdom.com/asp/answer.asp?IDAnswer=83560

Коллеги, добрый день! Какие здесь все же приятные, отзывчивые люди, душа радуется. Вопрос назрел вот такой: как поженить TServerSocket, TClientSocket и SSL? Имеется давнишний проект реализованный для локальной сети, реализован как раз на TServerSocket, TClientSocket. Теперь пришло время выпустить хомячка из клетки и пустить работать через Интернет. Собственно нужны варианты защиты трафика: либо как-то интегрировать SSL либо таскать с проектом сторонний прокси, который умеет по нему работа ...

http://www.delphikingdom.com/asp/answer.asp?IDAnswer=83561

Добрейшего уважаемые. ОС Windows 10. UAC включен. Не получается из программы установить службу: ShellExecute(Application.Handle, 'open', PChar(ParamStr(0)), PChar('/INSTALL'), '', SW_HIDE); Error 5 - Отказано в доступе Если правой кнопкой-Запустить под админом, то все нормально. Как это обойти и сделать так, чтобы программа при запуске не требовала повышения прав, а при нажатии на кнопку Установить службу, требовала? ...

http://www.delphikingdom.com/asp/answer.asp?IDAnswer=83556