Добрый день, уважаемые. Столкнулся с проблемой конвертирования формата поля таблицы из числового в тип ДАТА. Имеется таблица DBF (FoxPro), в которой есть поле UPDATED типа CHAR(10). В ней указывается последняя дата обновления записи. Разработчикам видимо было лень указать тип DATETIME. Мне нужно используя Query отфильтровать записи, обновленные после даты, которую я передаю как параметр. Ранее подключался через BDE, конвертировал записи через CAST: select * from ourbase where (cast(UPDATED ...

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

День добрый. Подскажите как получить видео с ip камеры. ну или картинку. ...

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

День добрый! Подскажите, кто-нибудь имел дело с UI Automation API? Есть какие-либо средства обращения к этой технологии из Delphi? Требуется получить информацию из контролов приложения Qt, средствами winAPI не вытянуть... ...

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

Здравствуйте, уважаемые рыцари. Заказчик дал мне готовый activex (dll-файл), через который я с его сервера получаю интересующую меня информацию (спутниковая навигация). Основное неудобство использования этого длл заключается в том, что подключиться через него к серверу я могу только из своей домашней сети (заказчик открыл доступ к своему серверу по моему риал-айпи). Программу же я пишу и тестирую не только дома. Дабы не быть привязанным к постоянному айпи, я придумал следующее: для домашнего п ...

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

Всем привет :) Столкнулся со следующей проблемой: при повторной компиляции одного и того же проекта получаю разные контрольные суммы секций кода. Более детальное исследование вопроса привело к локализации проблемы, а именно: компилятор по-разному формирует передачу параметров определенной функции через регистры. Имеем запись следующего вида: [Code] TPressedCellInfo = record Coord: TGridCoord; Pressed: Boolean; public constructor Create(const Coord: TGridCoord; Pressed: ...

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

Доброго всем! Проблема. Необходимо контролировать целостность файлов и отлавливать дубли. Задача тривиальная CRC32, CRC64, md5, sha1... Ага :( Но у меня сотни файлов по 100-300 гигабайт. Не описка. md5 одного файла может считаться почти час :( Возможно кто-то решал такие проблемы? ...

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

Всем привет. На форме есть TRichEdit, в нем текст: {\rtf1\ansi\deff0{\fonttbl{\f0\froman\fprq1\fcharset128 MS UI Gothic;}{\f1\fnil\fcharset204 MS Sans Serif;}} \viewkind4\uc1\pard\lang1049\f0\fs20'93'64'8e'71[ПРОБЕЛ]'83'81'81'5b'83'8b\f1 \par } Удаляю пробел кнопкой backspace, и снова ставлю пробел. Получается: {\rtf1\ansi\deff0{\fonttbl{\f0\froman\fprq1\fcharset128 MS UI Gothic;}{\f1\froman\fprq1\fcharset0 MS UI Gothic;}{\f2\fnil\fcharset204 MS Sans Serif;}} \viewkind4 ...

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

Делфи хе-7 IdHTTP+IdSSLIOHandlerSocketOpenSSL get запрос в цикле. Первый ошибка, дальше нет, не могу установить причину. https://cloud.mail.ru/public/5TScHDbC5veR/%D0%A1%D0%BD%D0%B8%D0%BC%D0%BE%D0%BA%20%D1%8D%D0%BA%D1%80%D0%B0%D0%BD%D0%B0%20(117).png скрин на код. Сам код: procedure TForm1.N6Click(Sender: TObject); var list: TStringList; url,Tname,grivna,kopeiki: string; i: Integer; IdHttp1: TIdHttp; begin {IdHttp1:=TIdHttp.Create(nil);//если этот блок раскоментирую, то работает, так к ...

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

Приветствую! Допустим, у формы есть свойство VertScrollBar, у которого в свою очередь есть свойство Position. Задавая данные которому, мы можем управлять прокруткой. Очень удобно и здорово. Можно ли придумать что-нибудь аналогичное для TStringGrid. То есть значение прокрутки в пикселях - чтобы его можно было считывать и задавать вручную. SetScrollPos и тому подобное работает только для самого ползунка ScrollBar. Смотрел какие-то другие варианты, всевозможные сообщения, но так ничего рабочего ...

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

Приветствую! Как можно обойти проблему максимальных координат элементов в 32767 пикселей? То есть то, что, к примеру, свойство Top элементов управления не может превышать значение в 32767. В целом, задача следующая. Необходимо выводить данные в табличном виде, много данных :) Скажем, может быть свыше 2000 строк в таблице. Все эти данные выводятся в таблице, сделанной на базе TStringGrid. В ячейках есть выпадающие списки, радиокнопки. Вот это все, как раз таки, и перестает работать на высотах ...

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

Есть ListBox. В ListBox'e список населенных пунктов, которые начинаются с сокращений город - г., село - с., поселок городского типа - пгт. Вопрос: Как осуществить поиск населенного пункта без набора г., с., или пгт., а только при наборе первых букв в названии населенного пункта? ...

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

Здравствуйте! Есть необходимость вывести календарь на год и чтобы пользователь мог выбрать необходимые ему дни. Т.е. сделать MultiSelect, но произвольный. Стандартный компонент и компоненты из Jedi позволяют выбрать непрерывный диапазон. Мне же нужно, чтобы пользователь мог задать произвольный список дат. Подскажите, пожалуйста, есть ли какой либо компонент календаря, который позволяет произвольно выбирать несколько дат? Спасибо. ...

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

сделал консольное приложение. необходимо его запускать по расписанию. приложение переименовывает, копирует файлы из сетевых папок в локальные, с удалением исходных и более старых файлов. на старой машине под ХР программа запускается из назначенных заданий и выполняется. при запуске из планировщика заданий под Windows 7 Pro SP1 приложение вроде бы запускается, в журнале пишется следующее: [Quote] Сведения 01.04.2015 11:20:00 102 Задача завершена (2) 93979f96-520b-4219-86a1-2cc0ba6e9e63 Све ...

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

Добрый день! Делфи осваивал давно, а сейчас спустя промежуток несколько лет забылись некоторые вещи. Есть такая проблема. На главной форме (приложения MDI) формирую код по созданию дочернего окна: На главной форме (приложения MDI) формирую код по созданию дочернего окна: [Code]//// Клиенты procedure TFormMain.CreateChildFormClient (const childName : string); var Child: TFormClient; begin Child:= TFormClient.Create(Application); Child.Caption := childName; end; [/Code ...

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

Добрый день. Извините за глупый вопрос. Что такое "Интегральное представление изображения"? ...

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

Delphi XE, Win7 Есть такая функция - GetTextExtentExPointW. Должна рассчитывать количество символов, которое можно впихнуть в указанную ширину. И есть такой шрифт - Flut Saus http://www.dafont.com/flutsaus.font. Вместе они не скрещиваются. Если канве задать указанный шрифт высотой 120000 (Канва используется для масштабирования, потому такая большая величина) и вызвать указанную функцию - она возвращается с результатом 0, но GetLastError возвращает 'Операция успешно завершена'. Почему? На других ...

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

Здравствуйте. Есть Memo1, по событиям в него добавляется строка begin Memo1.Lines.Add(MyLogStr); end; После добавления строки Мемо прокручивается само, и если я читаю где-то выше, то меня перебрасывает вниз. Как убрать автоскролл? Копался с разными вариантами [Code] poschat:= Memo1.Perform( EM_LINEFROMCHAR, Memo1.SelStart, 0 ); Memo1.lines.add(MyLogStr+ ' '+inttostr(poschat)); Mes.Msg:= WM_VSCROLL; Mes.Pos:=poschat; // ?????? ??????????? ???? ...

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

Здравствуйте! При передаче на сервер посредством DataSnap серии файлов на втором вызове DownloadFile выдает ошибку. Файлы большие и недопустимо считывать их в память полностью (сейчас не работает ни на каких файлах). [Code] procedure TFLOADER.DownloadFile(const FilePath: String); var sFile: TFileStream; B : Boolean; begin try sFile := TFileStream.Create(FilePath, fmOpenRead); sFile.Position := 0; B := FDATA.ATLAS.XMLToBD(sFile); // здесь на в ...

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

При разработке программы, потребовалось производить сортировку... а, на самом деле, неважно чего. На примере с файлами: пусть у вас есть список файлов:

code:
13.JPG
2.JPG
1.jpg
12.JPG
10.JPG
016.JPG
5dfae_Demotivators_41.jpg
16.JPG
23_2.JPG
017.JPG
12_1024768.jpg
014.JPG
20_cyc16_resize.jpg
023.JPG
024.JPG

Проведите сортировку с использованием "стандартного" TStringList.Sort. Вы увидите список: [code]014.JPG 016.JPG 017.JPG 023.JPG 024.JPG 1.jpg 10.JPG 12.JPG 12_1 ...

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

Столкнулся с незначительной сложностью, а поскольку она меня улыбнула, хочется не только поднять вам настроение, но и узнать, как другие люди поступают в аналогичной ситуации. Есть процедура (реально метод, но это не влияет на суть) с двумя параметрами-переменными. В общем-то, демонстрируется всё тривиально: [code]procedure Opana(var A,B:integer); begin A:=1; B:=2; ShowMessage(inttostr(A)); end; procedure TForm1.Button1Click(Sender: TObject); var I:integer; begin Opana(I,I); ...

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