Добрый день! Прошу уважаемых гуру просветить меня по очередному глупому вопросу. Ситуация: Создаю свой список объектов определенного типа со встроенной функцией сохранения и загрузки данных в/из узла 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

Добрый день, уважаемые гуру! Есть ли какое-то изящное решение для инкрементирования переменной порядкового типа, когда по достижении крайнего из диапазона значений, принимается значение с противоположного края диапазона? К примеру, есть тип, включающий значения RED, YELLOW, BLUE. При инкрементировании значения BLUE надо что бы переменная принимала значение RED. При декрементировании, соответственно - наоборот. Очень уж не хочется писать новую функцию под каждый новый тип. Дженерики не помогу ...

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

TNotificationCenter и консольное приложение Приветствую жителей королевства! Столкнулся с необъяснимой странностью - TNotificationCenter.Create(nil) в консольном приложении вчера работал на ура, а сегодня выдаёт EWinRTException: Cannot get factory for class Windows.UI.Notifications.ToastNotificationManager. Взял родной пример "Windows 10 Notifications" - отлично работает. Их разных других программ тоже работает. Что бы это могло значить? ...

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

Помогите с проблемой в Delphi 7. В проекте в разделе Const много констант всяких разных. И в IDE Delphi Project\Information for... в строке Data Size стоит число 66569 байт. При попытке добавить еще константы Data segment разрастается настолько, что при попытке отладки программы встроенными средствами отладчик останавливается в произвольном месте программы, соответственно с ошибкой (например посередине какой-то процедуры, когда ее переменные не определены). ...

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

Здравствуйте! Как организовать цикл по объектам класса TCanvas (линии, дуги,сектора,эллипсы и т.д.) чтобы сохранить их параметры (x1,y1,x2,y2 ... и т.д) допустим в файл *.ini. ...

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

IdTCPServer Indy10 Здравствуйте, подскажите что у меня идеалогически не правильно в этом коде. По одной команде шлю и получаю ответ без проблем. А вот если я хочу (точнее так нужно по заданию) отослать N команд и получить корректно на все ответы. Как корректно слать одну за одной команды, дожидаясь пока не отработает полностью предыдущая. Посылая несколько команд, теряю соединение, но иногда и проскакивает, менять CheckForDataOnSource(100); - не помогает. На сегодня имею примерно такой код: ...

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

Извиняюсь за оффтопик. Можно ли сейчас каким-либо образом опубликовать материал в "Сокровищницу"? ...

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

Добрый день! Помогите решить проблему! По клику на каком-либо элементе необходимо отобразить подсказку в стиле Ballon Hint. Подсказка должна отображаться пару секунд. При перемещении мыши или любом другом пользовательском вводе, подсказка должна сразу исчезнуть. Нашел в интернете нижеследующий код, который модифицировал в части активации подсказки. Однако проблема в том, что при повторном наведении курсора на элемент, активировавший подсказку, она появляется опять! Как от этого избавиться??? ...

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

Добрый день. Подскажите, как реализовать GET вот с таким URL http://login16byte:pass16byte@mysite.ru/bla-bla.xml Юзаю WinInet... никак не соображу как это сделать. WireShark-ом записал обмен, четко вижу процесс установки соединения по ТСР, но в упор не пойму каким образом сформирован кукис непосредственно запроса по http. Cookie: first_current_location=%2F; first_referer=; referer=; current_location=%2F; __utmz=1.1533804284.1.1.utmcsr=(direct)|utmccn=(direct)|utmcmd=(none); request_method=GE ...

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

Добрый день! Помогите, пожалуйста, с проблемой импорта activeds.tlb в RAD Delphi 10.1 berlin update 2 на Windows 10 x64. При импорте не вижу данный компонент, но когда нахожу его на диске вручную, то выдает ошибку Ошибка при обращении к реестру OLE. Ту же ошибку выдает, если делаю

code:
tregsvr.exe -t activeds.tlb 

из командной строки с правами локадмина. Спасибо! ...

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

Добрый день! Помогите, пожалуйста, с проблемой импорта activeds.tlb в RAD Delphi 10.1 berlin update 2 на Windows 10 x64. При импорте не вижу данный компонент, но когда нахожу его на диске вручную, то выдает ошибку Ошибка при обращении к реестру OLE. Ту же ошибку выдает, если делаю

code:
tregsvr.exe -t activeds.tlb 

из командной строки с правами локадмина. Спасибо! ...

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

Здравствуйте Дельфийци. Пишу простую скаду или типа того. Создаю динамические объекты потом записываю на диск, при необходимости считываю данные об объектах и восстанавливаю их. Пишу данные в файл типа TMemIniFile. Все хорошо пока не дошел до записи картинок. В программе картинки хранятся в формате TJPEGImage, при отображении преобразовываю в TBitMap и отображаю. При записи в файл картинку загружаю в поток, потом из потока записываю в файл. Так вот, если я картинку загрузил из графическо ...

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

Здравствуйте, уважаемые. Вопрос, может быть, не совсем по разработке, но наверняка кроме программистов никто не знает. Итак. Разработал программу, которая должна висеть в системном трэе. Причём не просто висеть, а автоматически запускаться. При этом с правами администратора из-под любого пользователя (в т.ч. доменного), т.к. работает с реестром (HKLM) и папкой ProgramFiles. И вот тут весьма неожиданный затык. Даже не знал, что сделать это окажется так сложно. Ничего не получается. Делал: ...

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