Добрый день, уважаемые гуру! Есть ли какое-то изящное решение для инкрементирования переменной порядкового типа, когда по достижении крайнего из диапазона значений, принимается значение с противоположного края диапазона? К примеру, есть тип, включающий значения 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

Есть некая БД *.db, (как я понимая H2)используемая в другой программе. Через H2 Console я к ней смог подключится, класс драйвера org.h2.Driver. Вопрос как мне из Delphi подключится к этой БД или хотя бы как экспортировать таблицы в другую БД (с помощью H2 Console я этого сделать не смог) ...

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

Добрый день. А можно ли программно нажать кнопку в чужой программе, запущенной на другом компьютере? хендл этой кнопки определить могу, а что дальще? ...

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

Уважаемые члены клуба! Возникла следующая неприятная проблема. В Delphi 7 создаю проект со стандартными компонентами(INDY, MS IE browser и т.д.) После компиляции проверяю на virustotal.com и в проекте обнаруживаются вирусы (обнаруживают 12 антивирусов из 67). Как я понимаю, участки кода из стандартных компонентов ошибочно трактуются, как вирусы. Данная проблема очень мешает распространению ПО, постоянные жалобы от пользователей. Кто как борется с этой проблемой, очень нужен совет.. ...

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

Доброго времени суток, Скажите, пожалуйста, почему при работе с типом Variant всплывают странные значения?!

code:
 
...
FVariantArray: array of Variant;
...
procedure FieldSum();
var
  eValue: Variant;
begin
  ...
  if ArrayIsEmpty(FVariantArray) then SetLength(FVariantArray, 1);
  eValue := FVariantArray[0];
  eValue := eValue + DataSet.Fields[0].Value; //<<<счетчик значений поля
  FVariantArray[0] := eValue;
end;

Если посмотреть на строчку FVariantArr ...

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

Добрый день! подскажите пожалуйста. Есть ПО, которое осуществляет получение данных из одной корпоративной системы, преобразовывает, проверяет и передает данные в другую корпоративную систему. Заказчиков на это ПО несколько. И для каждого заказчика отличаются форматы принимаемых данных и форматы выходных данных. Сейчас подкаждого заказчика формируется отдельный проект, в котором реализуется логика. но если обнаружена ошибка, приходится переделывать все проекты. как лучше реализовать такую архите ...

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

Вопрос, видимо, простой. И, возможно, как и все мы периодично, достиг состояния временного коллапса сознания (туплю). Короче, замес с указателями. А конкретнее как по неявному указателю идентифицировать объект (класс). Суть вопроса такова: Есть классы, такие как: [Code]TProjectsStack = class ... end; TDetailUnit = class ... end; TAssemblyUnit = class ... end; TBuildProject = class ... end; TProjectGroup = class ... end; TProjectManager = class ... end; [ ...

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

Уважаемые жители Королевства! Помогите, пожалуйста, разобраться. При помощи Delphi 10 Seattle + HTTP-шлюза пытаюсь отправить СМС. [Code] constructor TSMSAPI.Create; begin inherited; FSSLIOHandler := TIdSSLIOHandlerSocketOpenSSL.Create(nil); FHTTP := TIdHTTP.Create(nil); FHTTP.IOHandler := FSSLIOHandler; FHTTP.HandleRedirects := True; end; function TSMSAPI.SendSMS(Phone, TextSMS : string): string; var RequestBody: TStream; Request: string; begin Request:= ...

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

Здравствуйте. Пишу программу с использованием MDIChild форм. У главной формы есть панель подобный Taskbar-а Win 7. При открытии каждой новой формы, на панели появляется кнопка. Хочу, что при подводе мыши к этим кнопкам, выдавался бы Hint в стиле Taskbar-а Win 7. т.е. рисунок, помещаемый в hint определяется динамически. Стараюсь написать свой Hint, наследуемый от THintWindow, но не знаю как ему передать рисунок (Bitmap). Помогите пожалуйста. P.S. Использую Wndows 7, Delphi XE ...

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