Добрый день всем жителям Королевства. Вопрос нетривиальный. Есть форма. Она может быть как в активном состоянии, так и в неактивном, за другими окнами. Или вообще свернута. Не суть важно. В форме хук на события мыши. По определенному событию вызывается PopUp Menu. Если форма активна, то при нажатии на нее или переходе в другое приложение менюшка исчезает. А вот если менюшка появилась при неактивной форме, то она остается висеть пока не активизируешь форму или пока не выберешь в ней пункт. ...

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

Здравствуйте, уважаемые гуру! У меня вопрос по компоненте TImage. Есть задача: допустим на форме лежат два компонента TImage с изображением, у обоих компонентов стоит свойство прозрачности в True. Компоненты расположены ну грубо говоря друг на друге и имеют картинки к примеру квадрат а сверху компонент который содержит треугольник! Так вот границы компонента TImage квадратные, как мне сделать так, чтобы при нажимании на квадрат он выделялся цветом? незнаю как прицепить картинку, а то наглядн ...

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

доброе время суток, коллеги! есть след.проблема: в приложении имеется AdoStoredProcedure настроенная на процедуру в базе данных MS SQL и в цикле обрабатывающая список параметров, передавая их на сервер. если перед запуском цикла передать в AdoStoredProcedure фиксированные параметры (например, '1','2','fff') то все работает нормально но если запустить цикл обработки списка напрямую передавая значения через переменные [Quote] ASP1.Parameters[1].Value:=city; ASP1.Parameters[2].Valu ...

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

Таблица AREA имеет десяток полей (Ключ, ДатаВремя, Место, Цель, Координаты, Имя,,, Синалы) Сигналов 25 штук и каждый может как присутствовать, так и отсутствовать. Для этого нужно добавить в таблицу эти самые 25полей типа Boolean. Но почему-то это показалось расточительным. В итоге было взято только одно поле типа DWORD, где каждому биту соответствует свой номер сигнала. И программа с этой базой данных успешно начала свою работу. Вскоре мне потребовалось сделать некоторую статистику, а сле ...

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

Здравствуйте. Помогите пожалуйста решить задачу. Что делает приведённый код. При одинарном клике левой кнопкой мыши на ячейку DBGrid-,а в эту ячейку подставляется компонент TComboBox. А как сделать чтобы то же самое происходило но только при двойном клике мышью? [Code]procedure TForm1.DBGridDrawColumnCell(Sender: TObject; const Rect: TRect; DataCol: Integer; Column: TColumn; State: TGridDrawState); begin if (gdFocused in State) then { Вместо стандартного InplaceEditor'а показыва ...

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

Добрый день. Прошу критики описанного ниже подхода работы с DLL. DLL экспортирует некоторую функцию, которая в var параметре возвращает указатель, который на самом деле является указателем на экземпляр класса в DLL. А потом другие функции получают его, как параметр. В вызывающем коде этот указатель нигде не используется, как объект из DLL, а только для передачи в другие функции, которые тоже реализованы в DLL. Я понимаю, что так не делают, но код не мой. Конечно, надо скрыть этот указател ...

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

Добрый день! Вопрос простой, необходимо программно сделать usernametoken в для Soap запроса. Если есть у кого-нибудь пример или просто часть кода рабочего, поделитесь если не жалко. ...

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

Доброго времени суток! Нужно вызвать функцию из DLL и передать в неё параметр типа pchar. Если я вызываю типа вот так:

code:
 
var
 ss:string;
res:integer;
begin
 ss:='Data1';
 res:=DLLfunc(pchar(ss));
end;

то всё работает нормально. А вот такой вот код

code:
 
var
 ss:string;
res:integer;
begin
 ss:='Data1';
 ss:=ss+' ';
 delete(ss,length(ss),1);
 res:=DLLfunc(pchar(ss));
end;

не работает - внутри DLL нечто происходит, что вызываемая функция корректно не ...

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

Доброго времени суток! Возникла задача работать с Ini файлами в Unicode Использую TMemIniFile В результате, если файл в кодировке UTF8 (кодовая страница 65001), то не считывает ничего. Если копаться в исходниках, то функция из модуля SysUtils

code:
function TMBCSEncoding.GetCharCount(Bytes: PByte; ByteCount: Integer): Integer;
begin
  Result := UnicodeFromLocaleChars(FCodePage, FMBToWCharFlags,
    PAnsiChar(Bytes), ByteCount, nil, 0);
end;
 

Возвращает 0. Ну и дальше понят ...

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

Доброго времени. С наступающим Новым Годом! Если, вдруг, некто во время праздников нестерпимо захочет помочь ближнему, но буду благодарен за подсказку. Пытаюсь вызвать через CreateProcess команду форматирования usb-носителя. Копирую сформированную строку в командный файл и всё отрабатывает. Но CreateProcess вызывает ошибку с сообщением "Не удается найти указанный файл". Почему? Может не хватает прав? Код такой: [Code]ZeroMemory(@SI, SizeOf(TStartupInfo)); ZeroMemory(@PI, SizeOf(TPro ...

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

Здравствуйте. Подскажите, как работать с WebSocket'ами в Дельфи? Нужно открыть канал на стороне клиента, подключиться к хосту, авторизоваться и слушать сообщения от него. Информации в инете о работе с вэб-сокетами фактически нет (ну, есть, но это всё "шляпа" какая-то). Компонентов тоже. Скачал какую-то опенсорсную библиотеку (https://github.com/andremussche/DelphiWebsockets), но ничего добиться с её помощью не могу. Делаю так: client := TIdHTTPWebsocketClient.Create(Self); clien ...

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

Доброго времени суток. У меня возникла проблема с построением графика функции в режиме реального времени. В вкратце что мы имеем: из внешнего прибора, пусть это будет коробочка А, поступают данные на ПК они обрабатываются в драйвере, распаковываются и доходят уже непосредственно до нас, данные из 2 - ух каналов, необходимо от рисовать два графика которые бы в режиме реального времени стоили функции независимо друг от друга на одном поле. Я использовал стандартный компонент TChart и Series, но гл ...

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

Добрый день! Прошу уважаемых гуру просветить меня по очередному глупому вопросу. Ситуация: Создаю свой список объектов определенного типа со встроенной функцией сохранения и загрузки данных в/из узла Xml. Имя корневого узла Xml для списка и имена узлов для сохранения элементов списка зависит от типа объектов в списке. Вопрос: Можно ли определить какую-то константу, которую можно использовать в предке моих объектов и переопределить ее значение в потомках? Сейчас я реализу ...

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

Добрый день! Подскажите пожалуйста, как можно создать экземпляр объекта заданного типа, если тип передается обобщенным параметром? [Code]type TCustomDataObject = class(TObject) ... end; TDataObject1 = class(TCustomDataObject) ... end; TDataObject2 = class(TCustomDataObject) ... end; TMyCreatorObject = class(TObject) function CreateObject: T; end; ... function TMyCreatorObject.CreateObject: T; begin R ...

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

Доброго времени суток! Уважаемые гуру, помогите с очередным глупым вопросом! Ситуация: Делаю свой класс - обобщенный список данных. Стандартный TList при всех своих достоинствах не устраивает тем, что в его потомках я не могу обратиться к обобщенному типу как к объекту, у которого есть методы и свойства. Это нужно для создания специального класса, который дополняет список нужными мне методами, которые обращаются к методам элементов списка. Соответственно создаю свой список об ...

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

Использую D2010 + FibPlus + Ehlib простой вопрос по мастер-детейл. на форме мастер и детальные таблицы все настроено и работает на "УРА", но ситуация: Пользователь изменил запись в детальной таблице, (детальный датасет сейчас state=dsEdit) кликает на мастер таблице... детальный датасет переоткривается, все изменения теряются ВОПРОС ——————————- КАК ОТЛОВИТЬ такие действия чтобы при изменении мастер записи не терялось редактирования в детальной таблице как сделал/обошел ...

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

Перенес приложение в Delphi 10.1 Berlin Update 2 и началось... На форме TGroupBox с Align = alBottom. На нем визуальные компоненты и кнопка. Оставшаяся клиентская часть отдана под OpenGL. 1. При запуске TGroupBox не полностью прорисовывается до тех пор, пока форму не сдвинешь. 2. В событии OnClick кнопки стоит вывод плавающего окна. Он срабатывает только со второго раза. 3. Алгоритм расчета задачи вынесен в Application.onIdle, но обработчик в принципе не вызывается. Исходная прогр ...

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

Генерирую и экспортирую в файлы приватный и публичный ключи [Code] var pbuf:tstringstream; buflen:dword; pass:ansistring; begin CryptAcquireContext( @RSA, PWideChar('my_container'), nil, PROV_RSA_FULL, 0 ); CryptGenKey(RSA, AT_KEYEXCHANGE, (1024 shl 16) or CRYPT_EXPORTABLE, @ExchangeKey); // pass := 'password'; CryptCreateHash(RSA, CALG_SHA, 0, 0, RSA_Hash); try CryptHashData(RSA_Hash, PByte(pass), Length(pass), 0); CryptSignHash(RSA_Hash, AT_KEYEXCHANGE, nil,0,nil,@buflen) ...

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

Всем привет. Снова запуск приложения из сервиса. Нашел несколько вариантов, все варианты проблемные. Нормального описания того, что тут происходит я тоже найти не могу, поэтому ваще не врубаюсь что тут делается... какие-то жетоны... :) Короче, под 32-х разрядными windows xp и сервером 2003 все нормально работает. Сервер 2012 64бит вываливается на WTSQueryUserToken : 1008 An attempt was made to reference a token that does not exist Других операционок проверить у меня нет. Дайте списать ...

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

После закрытия формы (XE6) крестиком на экране всё исчезает, но вот в Диспетчере задач my.exe кочует из Приложения в Фоновые процессы, посему не позволяет запустить это приложение в следующий раз. Приходится вручную нажимать "Снять задачу". Перепробовал внутри TFormMain.FormDestroy: Application.Terminate; // не помогло Halt(700); // не помогло даже попробовал: FreeAndNil(Application); // не помогло Причём этой проблемы нет если запускать (Run (F9)) и закрывать из RAD Studio XE6, правда ...

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