Уважаемые, помогите, пожалуйста, в следующем: Подключаюсь к MS SQL посредством ADO (в Delphi XE2). Провайдер SQLOLEDB.1. Но строка запроса намного превышает 128 символов. Не нашёл, как это можно обойти. Надеюсь на подсказку. ...

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

Добрый день всем Пытаюсь найти ошибку в реализации оконной процедуры стилевого хука меню. В кодах VCL (Rad 10.2), в обработчике MN_SELECTITEM вызывается исходный обработчик, предварительно выставляя у окна запрет на отображение с помощью WM_SETREDRAW. Но в некоторых случаях такой подход не работает, и проявляется стандартная прорисовка - например, при повторном нажатии левой кнопкой мыши на пункт меню с подэлементами. Есть хоть какая-то информация о том, что делает стандартная оконная ...

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

все доброго времени суток. назрел один вопрос не могу никак решить. есть набор жыпегов около 150 тысяч нужно среди них вычленить дубликаты делаю это так сканирую каталоги, имена картинок сливаю в текстовый файл затем этот файл загружаю в стринглист. начинаю перебирать эти файлики: открываю джипегимиджем картинку, отрисовываю ее стретчдравом на BMP 100х100 пикселов формирую по этой BMP-шке некую хешсумму и сливаю ее в файл в формате имя файла картинки,хеш сумма все прост ...

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

Здравствуйте, уважаемые коллеги. Вопрос заключается в следующем: Имею объект, который мониторит изменения в определенной папке. Класс объекта наследуется от TThread. Ниже практически вся реализация. [Code]{ TChangeMonitor } //============================== constructor TChangeMonitor.Create(ASuspended:boolean; const ADirectory:string; AScanSubDirs:boolean; AOnChange:TNotifyEvent = nil); begin FOnChange:=AOnChange; FDirectory:=ADirectory; FScanSubDirs:=AScanSubDirs; FreeOnTermina ...

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

Для проверки наличия на компьютере зарегистрированных com-объектов (например, MS Word'а или MS Html) использую такие функции:[Code] //Проверка наличия com-сервера. Реннее связывание (по классу tlb) function IsExistComClass(aClassID :TCLSID) :boolean; var wProgId :PWideChar; begin Result := Succeeded( ProgIDFromCLSID( aClassID, wProgId) ); CoTaskMemFree(wProgId); end; //Проверка наличия com-сервера. Позднее связывание (по строке-имени) function IsExistComProgId(aProgId :string) ...

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

Доброго всем времени. Уже давно меня беспокоит следующий вопрос: Объявляю, допустим, переменную FCurs:TCursor членом класса формы. Потом в какой-то процедуре выполняю обычное присвоение FCurs:=Screen.Cursor; Screen.Cursor:=crHourGlass; Но возвращаю запомненное значение не в конструкции try...finally, а в другом месте кода. Потому что, например, долгая операция производилась в отдельной нити. И во в чем проблема: курсор не обновляется. Нужно хотя бы слегка пошевелить мышкой, чтобы отобрази ...

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

Господа, давно работаю с Delphi, но до сих пор есть проблемы с последовательностью обработки сообщений Windows и реакции на них. Если кто в этом ориентируется, подскажите, плиз. Мне нужно что-то вроде экранной клавиатуры, то есть главная форма приложения должна принимать и обрабатывать клики мышкой, но приложение не должно активироваться. Подскажите, где, когда и что я должен перехватить после получения WM_LBUTTONDOWN, чтобы код выполнить, но не допустить... э-э-э "активации" приложения. Гото ...

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

Можно ли отловить нажатие дополнительных(!) клавиш мышки если нет драйверов? Сразу скажу, что WH_MOUSE_LL не справился... Заметил я недавно что на моей Logitech RX300, которая верой и правдой служит мне уже 21 год, на колёсике есть кнопки позволяющие нажимать его вправо и влево. И вспомнил, что когда трава была зеленее а небо голубее, я действительно ставил драйвера которые позволяли задействовать эти клавиши. Впрочем тогда я сразу убедился что эти кнопки совершенно бесполезные. В том же ред ...

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

Здравствуйте. Помогите пожалуйста! Я запутался и не могу ничего придумать. Есть программа, считывает данные с весового терминала. Алгоритм взвешивания автотранспорта хаотичный, может проехать сначала порожний, потом груженный и наоборот. На форме имеется 2 кнопки "Груженный" "Порожний". Один из важных факторов ввода данных, это бортовой номер автосамосвала. При вводе номера в Edit (Например 11) и нажатии одной из кнопок (Например "Порожний"), записываются данные в БД, поле TARA... . Далее, ...

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

Доброго дня жители королевства. Возникла необходимость написать программу для вытаскивания данных с контроллера Mitsubishi FX5 в свою программу по протоколу SLMP. На компьютере я запустил программу Hercules для иммитации протокола. Hercules связывается с контролером,я передаю в контроллер пакет "50 00 00 FF FF 03 00 0C 00 10 00 01 04 00 00 C8 00 00 A8 01 00" и получаю ответ тоже в виде 16 ричных чисел. Теперь это надо сделать в моей программе. Для этой цели установил INDY, использовал ком ...

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

Доброго времени суток, Уважаемые жители Королевства! Имеем Delphi 10.3 Version 26.0.32429.4364 и функцию Trunc При передаче в функцию сложновычисляемого значения наблюдается странно поведение. Пример тестового App: [Code] type TForm1 = class(TForm) procedure FormCreate(Sender: TObject); private { Private declarations } public { Public declarations } end; TObj = class class function Discrete: Currency; end; TOrder = record Vol: Currency; ...

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

Господа, возникла проблема с Firebird. Есть вот такой запрос DELETE FROM T1 WHERE T1.ID1 IN (SELECT T2.ID FROM T2 WHERE T2.ID1 = :param1) Индексы по T1.ID1 и T2.ID1 имеются, T2.ID – первичный ключ. Кажется (мне, по крайней мере) естественным, что нужно выбрать все записи из TD, используя индекс по T2.ID1, а удалять записи из T1, используя индекс по T1.ID1. Но Firebird поступил странно: по T2 он использует первичный ключ, а с T1 вообще работает по натуралу, что приводит к жутким тормозам. К ...

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

Добрый день Уважаемые жители королевства. Возникла задача сделать масштабирование графика выводимого на DBChart. Масштабирование необходимо выполнять колесиком мыши. Среда Delphi 5. Но вот не задача(. События OnMouseWheel,OnMouseWheelDown,OnMouseWheelUp на данном компоненте не возникают. Положил на форму компонент TChart и TdbChart и три лэйбла и прописал [Code] procedure TForm2.FormMouseWheel(Sender: TObject; Shift: TShiftState; WheelDelta: Integer; MousePos: TPoint; var Handled: Bool ...

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

Добрый день. Есть вопрос по компонентам DevExpress. Работаю с компонентом cxGrid с базой данных Oracle. Есть поле типа TDateTime. Выбираю построитель фильтра по Ф7. Хочу сделать фильтр по Between. Мне предоставляется два поля для ввода значений (DataTimePicker). И вот сам вопрос. Могу ли я программно для одного из полей проставлять по умолчанию значение времени? Если можно, то хотелось бы пример кода или хотя бы где искать (куда копать). Заранее благодарен за конструктивную помощь ...

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

Решил поставить на компьютер современную Delphi 11. При этом уже был установлен Delphi 7 и приложения с БД Access работали. Приложение долго устанавливалось и не дожидаясь конца установки я отменил установку. После этого перестали работать с БД Access приложения, написанные пр помощи Delphi 7. Видимо, Delphi 11 испортил драйвер БД Access. Что делать? ...

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

Имеется денситометр Brumagic 30-летней давности, который свои измерения передает по протоколу RS-232 (300 бод, 8 разрядов без бита чётности, 1 стоп бит). Судя по описанию, он шлёт текстовую строка вида "Фильтр (Символ), пробел, цифра, точка, цифра, цифра, пробел". К нему в давние годы была написана программа под DOS, которая в принципе ещё работает. Но есть проблемы её использования на современных компьютерах, в т.ч. из-за жесткой привязки к COM1. Я настроил в Delphi 6 компонент CommPortDriv ...

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

Добрый день, Уважаемые жители королевства. Подскажите, пожалуйста, как правильно записать строку в поток TFileStream и, соответственно, прочитать в Delphi 11 Alexandria. Вроде, все просто. Записываем: [Code]procedure TForm1.Button1Click(Sender: TObject); var fs: TFileStream; S: String; d: Integer; begin S := 'Мой какой-то определенный текст, который может быть разной длины и все такое прочее'; fs := TFileStream.Create('c:\MyFile.dat', fmCreate or fmOpenWrite); d := Leng ...

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

Доброго времени суток! Помогите пожалуйста! Перестал нормально работать Delphi 10.3.2. После компиляции любого проекта (даже только что созданного пустого приложения Windows VCL Application) проект не запускается в среде Delphi, выдает ошибку "... datatype misalignment at ...". Причем вне среды приложение нормально запускается. Вывод - проблема в Delphi. Переустановка с полной чисткой реестра не помогает. Какие есть версии??? ...

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

Добрый день! Помогите пожалуйста, уперся в стену, не обойти: 1. Выделяю память под структуру данных типа record, заполняю выделенный блок данными. 2. Указатель на данный блок памяти него вешаю в свойство Tag компонент формы. 3. Есть два типа записей. При обработке некого события, компонент по данному указателю должен получить данные. Проблема в том, что компонент не в курсе, запись какого типа лежит по указателю. Есть ли какой то способ методами RTTI получить информацию о типе записи, р ...

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

Уважаемые коллеги, могли бы вы что-либо подсказать по следующей теме? Допустим, объявляем пользовательское сообщение var WM_MY_MESSAGE:cardinal; Почему var? Потому что я инициализирую его так: initialization WM_MY_MESSAGE:=RegisterWindowMessage('WM_MY_MESSAGE'); После объявляю обработчик procedure MyHandler(var Message: TMessage); message WM_MY_MESSAGE, но требуется, чтобы WM_MY_MESSAGE было константой. Вопрос: можно ли воспользоваться вкусностями message методов ...

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