Всем привет появилась необходимость запустить программу Bquark.exe с параметрами из под обычного пользователя в AD с админскими правами. Поскольку эта программа по неизвестной причине не видит Com порты под обычной учётной записью. Мною была написана вот такая конструкция Bat файла которая вполне могла бы удовлитворить но есть серьёзной недостаток !!! Bat файл вылетает с ошибкой если в параметрах запуска программы (т.е. пути к файлам ) присутствуют пробелы вся загвоздка в команде run as ...

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

Определение уровней электромагнитного поля, создаваемого излучающими техническими средствами телевидения. Здравствуйте ! Введение Существует программа анализа электромагнитной обстановки, с которой я очень часто работаю, у нее много минусов, главный из которых потеря рабочего времени. Решил сделать свою собственную программу для тех же расчетов, но более дружелюбную и со своими "хотелками". Программу решил осуществить в несколько ходов: 1. Расчетная часть (расчет каждой точки координат и ...

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

Здравствуйте! Расскажите пожалуйста, как правильно пользоваться функцией FloatToDateTime. Всё время думал, что она переводит действительный тип данных в формат времени без всяких проблем. Но вот ради примера приведу код.[Code] ts : Single; ... procedure TForm1.FormCreate(Sender: TObject); begin ts := 700.235;//цифры так от балды end; procedure TForm1.Timer1Timer(Sender: TObject); var tdt :TDateTime; begin ts := ts + 1.25; tdt:= FloatToDateTime(ts); Label1.Caption := FormatD ...

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

Здраствуйте! Потребовалось переделать программу, передающую через локальную сеть данные. До этого я использовал парные связки idUDPClient и idUDPServer. Все было просто и понятно - клиент берет кусочек данных, отсылает в сеть; сервер получает кусочек данных и отдает его на обработку. И так же в обратную сторону. Теперь нужно выполнить тоже, но с использованием idTCPClient и idTCPServer. Подскажите, каким образом организовать в этом случае раздельную во времени отправку и прием данных? Во всех ...

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

Здравствуйте. Прошу помощи у вас. Мне этот TPageControl (D7) гадит в душу. Есть PageControl с некоторым количеством вкладок, нужно показывать только часть из них в разное время. Скрыть эти вкладки получается без проблем, а вот обратиться к скрытым никак. Следующий код работает, но выдает ошибку

code:
Project ***.exe raised exception class EInvalidOperation with message 'Cannot focus a disabled or invisible window'. Process stopped. Use Step or Run to continue.

[Code] proced ...

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

Здравствуйте! Никогда не думал, что столкнусь с проблемой построения графика. На форме обычный chart и timer. По сети получаю значения времени для некого события t и несколко парметров изменяющихся во времени всё в режиме онлайн, пакеты с данными приходят с частатой 0.25 секунд. Я хочу заносить данные в бегущий график, обновлять значения я хочу через секунду. Но по интервалу 1000 у таймера и addXY(t,par)для Series Chart-а у меня ничего не выходит? В чём проблема? ...

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

Доброго времени суток Подскажите пожалуйста, каким образом сделать наследника TEdit со свойством 'time' например в миллисекундах, чтобы у него срабатывало событие onChange ТОЛЬКО если: 1. интервал между нажатиями клавиш больше time 2. более, чем time миллисек назад была нажата последняя клавиша, а onChange не сработал, т.к. был отфильтрован по первому условию что-то то ли я совсем запутался, то ли если наследуемся от TEdit, то не получится такой функционал сделать ps: вообще это наследни ...

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

Добрый день. Пишу с использование TVirtualStringTree. Сам отрисовыванию хинт, делаю так: в событии GetHintKind для нужного НОДа ставлю Kind := vhkOwnerDraw ( и потом в событии DrawHint рисую по канве). Сделал чтобы подсказка показывалась подольше Application.HintHidePause := 20000; С этим все ок. Но у меня данные меняются, т.е. хинт нужно перерисовывать. Отдельно пример добавил http://www.delphipages.com/forum/showthread.php?t=38635 Для Tmemo и его подсказки такой трюк работает, ...

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

Уважаемые жители королевства здраствуйте!!! Есть удалённая база mySQL(id_test, text_test, summa_test, data_test, comment_test), помогите получить сумму столбца 'summa_test' с помощью sql и записать в Label1! В интернете нашел такой пример: ADOQuery1.SQL.Add('select sum(summa_test) from test'); Form5.Caption:=ADOQuery1.FieldByName('summa_test').AsString; но он выдаёт ошибку adoQuery Field 'id_test' not found; Незнаю что и делать ...

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

Добрый день всем! Вопрос: Как удалить из классов все неиспользуемые функции? Имеется огромный проект ( 3000+ модулей ), из которого нужно "выпилить" некоторый функционал. Всего около 20ти молулей. Я создал новый проект, перекинул туда ссылки на обходимые модули, которые, потянули за собой еще около 1000 модулей. Беда в том, что они тянутся, но не используются. Вручную чистить - это несколько суток. Я знаю, что CnPack умеет стирать не используемые модули из uses. А как быть с функциями? ...

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

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

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

Здравствуйте, знатоки! MS SQL SERVER 2008, есть таблица ShipLog: shiplog_id ship_id shiplog_datetime 76975986 9296 2014-07-31 00:06:00 76975987 9296 2014-07-31 00:03:00 76978269 1363 2014-07-31 00:11:00 76978270 1363 2014-07-31 00:09:00 76978272 1363 2014-07-31 00:03:00 76978827 1358 2014-07-31 00:09:00 Нужно для каждого ship_id выбрать выбрать 1 строку с последней датой. Обязательно в выбранной строке должно остаться поле shiplog_id - оно самое нужное. ...

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

При вызове рекурсивной процедуры, принимающей строковый параметр на одном из шагов в нее передается мусор. При этом значение фактического параметра на входе нормальное, а внутри процедуры галиматья. При первом же шаге отладки внутри — EAccessViolation. Есть подозрение, что переполняется стек, но исключение этому не соответствует. [Code] procedure Ins(Num: Byte; S: String); var i, j, k: Byte; Buf: String; Flag: Boolean; begin for i := 1 to StringGr ...

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

Здравствуйте! Вопрос из серии "Работа с чужими окнами". Есть открытое окно Exel с загруженным документом. Нужно сохранить его под моим именем. Мне известен его хэндл. Т.е. могу послать окну нажатие клавиши F12 (окно "Сохранить как..."), ввести в компонент Edit нужное имя и нажать клавишу ENTER. Как всё это сделать с помощью SendMessage или PostMessage? Причём, если такой файл уже есть, переписать его без подтверждения. ...

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

Всем привет. Delphi7, TIdTCPServer. Вопрос, правильно ли я делаю, допустима ли такая конструкция? События OnConnect, OnDisconnect - без кода. Символы конец строки и перевод каретки признак конца передачи // Открываем сервер procedure TfLink.ServerOpen(Port : Word); Var i : integer; Begin // Максимальное количество клиентов подсоединенных к серверу idTCPServer.MaxConnections := 5; // Максимальное к-во запросов idTCPServer.ListenQueue := 10; // Оч ...

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

Добрый день! Delphi 7, компонент TabControl OwnerDraw = True В Windows х64 не срабатывает TabControl1DrawTab. Как с этим бороться? ...

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

Добрый день! Вопрос по DevExpress. Есть компонент TcxDBTreeList который формируется из базы. И есть TcxGrid. Когда делаем клик на дереве, то в гриде отображается инф по выбранному компоненту. Подскажите где находится и как происходит эта связь. Необходимо аналогичным образом связать два грида. ...

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

Здравствуйте. Известно, что с помощью сервиса Яндекс-карты можно рассчитать длину маршрута между двумя географическими пунктами. http://maps.yandex.ru/?rtext=56.133340%2C92.736859~56.033131%2C93.089795&sll=92.951436%2C56.101693&sspn=0.617981%2C0.306624&rtm=atm&source=route&ll=92.951436%2C56.101693&spn=0.617981%2C0.306624&z=11&l=map Надо написать программу на Дельфи. Имеем 2 поля TEdit, кнопка и Label. Пишем первый адрес и второй адрес. По клику на кнопке запускается процедура, которая обр ...

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

Добрый день! Подскажите пожалуйста как работать с компонентами TFDConnection, TFDQuery, TFDTransaction. В первый раз с ними столкнулся. Задача: Есть БД в SQLite. Нужно в нее загрузить данные из Excel файла. Написал следующий код: [Code]procedure TMainForm.OptButtonClick(Sender: TObject); var t:textfile; openDialog:TOpenDialog; str, reg, ar,la : string; ExcelApp,Book,Sheet,V:Variant; FData: OLEVariant; begin ExcelApp:=CreateOleObject('Excel.Application'); try ExcelApp.Workbooks.Op ...

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

Добрый день! При запуске программы вывожу сплешик. Он отображает ход загрузки. Некоторые операции довольно длительные (поиск сетевого эл. ключа, проверка метаданных бд, еще некоторые операции, как обычно). Решил разнообразить ползателю элемент ожидания, добавив смену картинок на этом сплеше. Чтобы смена не тормозила (красивенько так плавно меняется), вывел ее в отдельный поток. И оттуда (я бунтарь) рисую через Canvas.Draw; Я слышал что все, что от TControl (весь VCL) не безопасен при обращении ...

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