МОЖЕТ КТО_НИБУДЬ СТАЛКИВАЛСЯ! имеется такой код для создания отчётов чисто по таблице! а как сделать универсальный (ЕСЛИ ЭТО ВООБЩЕ ВОЗМОЖНО) экспорт отчётов по ЗАПРОСАМ ADOQuery ВОТ САМ КОД [Code]procedure TfMain.Button9Click(Sender: TObject); Var XLApp,Sheet,Colum:Variant; index,i:integer; begin XLApp:=CreateOLEObject('Excel.Application'); //Строка создаёт объект Excel и записывает его в переменную XLApp.Visible:=true; //объект видимый EXcel XLApp.Workbooks.Add(-4167); / ...

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

добрый день не подскажете как с помощью компонентов Zeos (ZEOSDBO-7.1.4-stable) Delphi XE7 выполнить модификацию таблицы *.gdb (FireBird) выборку (select) выполняю с помощью компонента ZQuery, когда пишу в нем команду модификации UPDATE то время редактирования файла меняется на то в кторое модификацию делал, повторно делаю выборку тех же записей select-ом, а они не поменялись((( вроде как-то все делается через ZUpdateSQL, но пока не сообразил как его прикрутить только недавно в дельфи про ...

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

Доброе время суток. Не разу не сталкивался с такой проблемой при сборке выдает ошибку MSBuildToolsPath is not specified for the ToolsVersion "14.0" defined at ссылается Delphi в реестров: HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\MSBuild\ToolsVersions\14.0 Реестре есть HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\MSBuild\ToolsVersions\12.0 Да до это стояло VS 2015, и переустановим на VS 2013 (сним нет проблема), а вот Delphi - возникла проблема... как решить проблему? ...

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

Здравствуйте! Прошу помочь в работе с superobject-парсинг JSON. Пожалуйста, направьте в вопросе, как получить список пар key=value конкретного об'екта, учитывая, что он может иметь степень "вложенности". Если есть код парсера, буду счастлив и благодарен. Спасибо. ...

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

Здравствуйте! Начинаю перетаскивание объектов из таблицы. Повесил обработчик события на OnStartDrag, чтобы определить класс DragObject для вывода рядом с мышкой динамически формируемой картинки. Перетаскивание начинается автоматически. В обработчике OnStartDrag в ходе проверки данных для перетаскивания может быть ситуация, когда именно текущую запись (другие записи можно) перетаскивать нельзя. Вопрос как программно отменить перетаскивание? Углубленный поиск по инету результатов, к сож ...

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

Здравствуйте! Подскажите, пожалуйста, можно ли передать данные через интернет? Т.е. имеются компьютеры, не объединенные в сеть, и нужно передавать данные между ними. Думал взять хостинг и на php сделать небольшой сервер для пересылки данных, но т.к. данные у меня могут посылаться через каждые 5 сек., то хостинг могут заблокировать, надо заказывать сервер, а это уже стоит денег... Второй вариант сделать static IP на компах... Вот как раз про этот вариант и хотел спросить. Можно стандартными к ...

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

Есть несколько потоков которые ожидают Event, но тут есть одна проблема что при вызове PulseEvent потоки не всегда успевают перейти в ожидание, в этом примере после создания потоков делаем задержку 1500мс и все работает, но как сделать по-нормальному? Ни чего кроме как ZwQuerySystemInformation(SYSTEM_PROCESSES_AND_THREADS_INFORMATION) и там уже проверять в каком состоянии поток находится больше в голову не приходит, но этот способ не сказал бы что лучше т.к. еще и в цикле придется проверять и ...

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

Добрый день. Есть программа Cobian BackUp, для ПРИМЕРА. У программы есть форма для настройки параметров, в том числе для запуска программы как сервиса с правами указанного пользователя (администратора), причем входить в профиль пользователя необязательно (для собственно резервного копирования, в режиме сервиса). другой пользователь может работать в своем профиле, или вообще никто может не работать с компьютером, программа как сервис все равно работает в соответствии с настройками. Вопросы : 1 ...

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

Здравствуйте! Так получилось, что работаю с одним дурацким контролом, с которого мне нужно снять фокус (поставить на другом контроле): метода снятия фокуса у него нет, свойства TabStop тоже нет, а "другой_контрол.SetFocus" или "ActiveControl:=другой_контрол" не хотят работать, фокус не переводится программно на другой компонент, чего я только не выдумывал, только руками и мышкой он переводится. И я нашел один выход - запрещать этот контрол (enabled:=false), ставить фокус на нужном контроле, пото ...

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

Delphi XE2. Скомпилировал программу в режиме Release. Вся отладочная информация при компиляции отключена. Запустил программу, открыл ее свойства в Process Explorer (https://technet.microsoft.com/ru-ru/sysinternals/bb896653.aspx). На закладке Strings вижу, что Process Explorer нашел много строк, которые являются названиями модулей Delphi, названиями классов, названиями процедур и функций. Подскажите пожалуйста, как можно удалить из релизного exe-шника все лишние данные??? ...

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

Функция быстрой замены строк Приветствую всех жителей Королевства! Сегодня узнал про функцию, которая очень быстро меняет одну подстроку на другую http://alexandrecmachado.blogspot.com.by/2015/03/fastest-stringreplace-for-delphi.html Решил протестировать, результаты впечатляют! К сожалею, я не нашёл, как здесь свернуть длинный код в спойлер, или как прикрепить файл проекта. Поэтому привожу только ссылку на тест с картинкой %url[Перейти]http://www.sql.ru/forum/actualutils.aspx?act ...

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

Добрый день. Есть приложение состоящее из единственной формы. Требуется анализ клика мышью. Поставил хук. Ниже приводится код приложения [Code] unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, AppEvnts, StdCtrls; { для динамической загрузки функции из DLL} type MyProcType = procedure (flag : Boolean); stdcall; type TForm1 = class(TForm) procedure FormCreate(Sender: TObject); procedure Form ...

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

Приветствую всех жителей Королевства! Старалась сама найти ответ, но нужна ВАША помощь в работе "Delphi XE8 + Excel 2007". Есть шаблон некоего отчёта в Excel, там уже по заданным строкам прописаны формулы типа:

code:
=СУММ(C439:C451)

Из Delphi я вношу в шаблон цифры. Всё, больше ничего не делаю, да и не нужно мне))))))) После того как процедурка моя отрабатывает и цифры вносит в шаблон, сохраняю [Code]if SaveDialog1.Execute then WBXL.SaveAS(SaveDialog1.FileName); [ ...

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

Приветствую уважаемых участников. Прошу совета в решении следующей задачи: Необходимо реализовать такое поведение программы, чтобы под администратором системы она создавала в папке AppData пользователя (Администратора!) свои папки и файлы и, чтобы под другим пользователем системы (с максимально ограниченными правами) программа имела доступ к этим файлам в AppData администратора. Чтобы сам пользователь через проводник эти файлы не мог достать, но они были доступны программе. Компилирование с р ...

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

Здравствуйте, рыцари. Мне нужно из Delphi-программы переименовать некий файл в папке в другой файл в той же папке. Не знаю как. Помогите, рыцари. ...

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

Здравствуйте, коллеги! Требуется Ваша консультация... Строю график (TChart). По оси Y - фиксированные значения, автоматика отключена, заданы Minimum и Maximum. Ось Начинается с 0, заканчивается, как и указано в Maximum = 1000. Метки и "0" и "1000" отображаются. А по оси X выбран формат DateTime. Автоматика отключена, Minimum и Maximum отдаются программно: Chart1.BottomAxis.Maximum:=... и т.д. Данные берутся из таблицы и график строится по точкам: Отметка DateTime по оси X и значение (Integer) п ...

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

здравствуйте всем! скажите пожалуйста, возможно ли заполнить свойство Items компонента ListBox содержимым буфера обмена? если да, то как это сделать? заранее спасибо за ответ! с уважением Леонид Казаков. Г. Екатеринбург ...

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

доброе время суток помогите разобраться с созданием заставки для программы (splash screen-а) ниже привожу работающий код. особенность в том, что заставка появляется и исчезает плавно, для этого каждые 15 мс вызываю UpdateLayeredWindow проблема: не могу FormCreate главной формы разместить между строками создания и удаления формы заставки. стандарный метод в моём случае не работает: [Code] Form4 := TForm4.Create(Application); Form4.Show; Form4.Update; Application.Initialize Application.Cr ...

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

Здравствуйте! Пишу компонент (наследник TWinControl), у которого есть property Image. Вкратце, выглядит это следующим образом: [Code] type TMy = class(TWinControl) private { Private declarations } FImage: TImage; protected { Protected declarations } public { Public declarations } constructor Create(AOwner: TComponent); override; destructor Destroy; override; published { Published declarations } property Image: TImage read FImage wr ...

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

Всем доброе время суток. Пишу прграмму на Дельфи ХЕ, в которой испльзую компонент TChromium. Программа должна работать на многих компьютерах, однако кроме exe файла, требуется в каждый компьютер записать еще целый наборо dll-ов, что не савсем удобно. Можно скомпонавать exe файл таким образом, что он включал бы в себя все необходимое и не требовалось бы вместе сним распространять и dll? С уважением Григорий Гватуа ...

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