Коллеги, всем доброго времени суток! Осваиваю отображение файлов в память: CreateFileMapping MapViewOfFile У меня получается передавать массивы заданной размерности, например, array [0..9] of integer. Но передать динамический массив уже не выходит, не понимаю как это можно сделать... Какие есть идеи? ...

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

Тема: Динамическое обращение к компонентам (оптимизация) Цель: Копаюсь в чужом коде, хочу его оптимизировать или переписать часть кода. Среда разработки: Delphi XE5 Добрый день, уважаемые программисты! Подскажите, или дайте совет, как можно оптимизировать код, или обращение к динамическим компонентам. Неужели без SG0 не обойтись и каждый раз в любой процедуре нужно находить тот или иной компонент для дальнейшего обращения к нему и создавать локальную переменную в каждо ...

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

Добрый день. Вопрос о возможности вызова метода у несозданного экземпляра класса. Давеча, в VCL Delphi 7, попался мне на глаза такой код:

code:
function TControl.Perform(Msg: Cardinal; WParam, LParam: Longint): Longint;
begin
  ...
  if Self <> nil 
    then WindowProc(Message);
  ...
end;

Ага, а зачем здесь if? Проверим на примере: [Code] implementation ... type TMyClass = class public function First :integer; //обычный метод ...

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

Здравствуйте, на диске имеется текстовый файл в кодировке UTF-8 (без BOM). Как можно средствами Delphi определить, что этот файл именно в этой кодировке? Если кодировка UTF-8 с BOM, то это легко делается с помощью класса TEncoding. ...

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

Здравствуйте! Помогите решить: всЁ происходит в Access 2003 имеем таблицу Scene сценариев работы осветительных прибопров где указано уникальный ID имя Scene_Name доступность Enabled (логическое поле True/False) период действия date_start и date_stop время действия time_start и time_stop дни недели Mon, Tue, Wed, Thu, Fri, Sat, Sun в которые действует сценарий (логические поля True/False) период действия по датам и времени разных сценариев могут накладываться друг на друга (пото ...

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

Добрый день, как выделить абзац в Мемо, находящийся между двумя пустыми строками (переход нахожу через #10#13) и выделить последовательно каждый абзац, например в стихотворении: Чуть от пыли седые, Чуть скрипят, но идут. Ничего не меняют, Но и вспять не пойдут. С высока наблюдают Танец тайн и измен, Только жизнь нам меняет Декорации сцен. Для часов все - спектакль, Люди - просто живут. Верят: счастье и радость За невзгодой придут. Иногда тухнет взгляд, Опускаются плечи. Бу ...

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

Здравствуйте! Есть DLL и пример работы с ней на С# [Code] using RfidApiLib; .... RfidApi Reader1 = new RfidApi(); .... private void bRs232Con_Click(object sender, EventArgs e) { int status; byte v1 = 0; byte v2 = 0; string s = ""; status = Reader1.OpenCommPort(cCommPort.Text); if (status != 0) { lInfo.Items.Add("Open Comm Port Failed!"); return; } status = Reader1.GetFirmwareVersion(ref v1,ref v2); ...

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

Таблицы, размещенные на сервере MYSQL, содержат поля `id` bigint(20) unsigned NOT NULL auto_increment. Работа с таблицами производится с помощью DBExpress (компоненты SQLConnection, SQLDataSet, DataSetProvider, ClientDataSet). Данные отображаются в DBGrid. Для внесения изменений в таблице имеется обработчик событий OnPost, OnDelete ClientDataSet1.ApplyUpdates(-1). Операции по редактированию таблиц и удалению строк выполняются корректно. При попытке добавить строку возникает ошибка "Field 'id' m ...

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

Здравствуйте! Как отучить Delphi добавлять в проект System.SysUtils, если в коде встречается System.Variant? Пример проекта:

code:
program Project;

var
  V: Variant;
begin
end.

Как видим, в uses SysUtils отсутствует. Но посмотрим на размер бинарника (отладочная инфа отключена) – 157 КБ – многовато для одной переменной... Заглянем в ресурс RT_RCDATA\PACKAGEINFO:[Code] Contained Units: Project [MainUnit] Winapi.ImageHlp [ImplicitUnit] Winapi.Windows [WeakUnit, Org ...

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

Добрый день! Как получить unicode текст из обычного TMemo в Delphi2007? В последних версиях Windows в TMemo unicode-текст отображается нормально и даже копируется. А как его программно получить (без clipboard, через который все получается, но... некрасиво это) ? Если делать так:

code:
GetWindowTextW(mmo1.Handle, buff, 1024);
  MessageBoxW(0, buff, nil, MB_OK);

то получаем вопросительные знаки. Если бы на экране не было unicode-иероглифов, то вопросов нет. Нельзя и всё. НО, ...

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

Доброго времени суток! Просьба помочь разобраться с форматом файла zlib (rfc 1950). Пользуюсь библиотекой zlib скачанной вот от сюда https://www.base2ti.com/ Как я понял библиотека предназначена для работы с чистым deflate (rfc 1951) и gzip (rfc 1952), с этими форматами вроде разобрался, и сжимаю и распаковываю без проблем, но как с помощью нее распаковать zlib? Вроде и название библиотеки совпадает с названием формата, но как распаковать такой файл, не смог разобраться. Читал rfc 1950, но ни ч ...

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

Всем доброго дня/ночи ! Помогите решить задачку. Есть компонент Timer, который для удобства нужно слегка доработать: -добавить пару методов - это легко получилось ! -и добавить свойство Count=число срабатываний таймера с момента последнего старта. Вот тут засада. Поле добавил. Но как его инкрементировать (внутри компонента) одновременно с наступлением события OnTimer ? Помогите пожалуйста ! ...

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

Здравствуйте! Создаю в DLL меню программы, как открыть Form2 у основной программы? Нужно прописать новую процедуру и как то этой процедуре передать данные? ...

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

Здравствуйте! Посоветуйте плиз книги, в которой ООП рассматривается/обьясняется на примерах реальных программ, работающих с реальными данными. Которые можно откомпилировать и посмотреть как они работают. ...

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

Доброго времени суток. Firebird Если нужно написать запрос, который вернет запись с полем-константой, то это делается как-то так: SELECT 'String_1' FROM RDB$DATABASE А есть ли возможность написать такой SQL-запрос, который вернет не одну, а несколько записей с заранее заданными полями-константами? Именно запрос, а не ХП и не исполняемый блок. И желательно остаться на функционале Firbird 2.5. ...

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

Здравствуйте! Я делаю программку голосового общения между двумя ПК по локальной сети. Использую для этого библиотеку OpenAL. В качестве основы был взят идущий в комплекте пример записи/воспроизведения звука. Запись и воспроизведение были разнесены на отдельные потоки внутри программы. Поток записи "складирует" готовые звуковые фрагменты в отдельный буфер из которого они потом забираются также отдельным потоком передачи в сеть. На приемном конце используется Indy UDPServer, который все принят ...

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

Добрый день! Подскажите, пожалуйста, есть ли какие-то примеры работы с events в firebird под delphi? В данный момент использую FIBPlus, в частности компонент SIBfibEventAlerter, но проект похоже умер (сайт http://www.devrace.com не работает). В связи с этим интересует вопрос - как можно работать с событиями напрямую? Пытаюсь найти информацию в сети, но если искать firebird + events + delphi получаю всё что угодно, только не информацию по работе с events. Или возможно есть какие-то новые ...

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

Всем привет!!! Вопрос на засыпку... Есть код...

code:

dtS := Int(dtStart.DateTime);
Parameters.ParamByName('DateStart').Value := dtS;
dtE := Int(dtEnd.DateTime)+1-3*OneMillisecond;
Parameters.ParamByName('DateEnd').Value := dtE; 

Т.е. присвоение параметров запросу в MS SQL посредством ADO через промежуточные переменные типа TDatetime. В вычислениях используются DateTime дататаймпикеры. Результат запроса - количество записей в диапазоне дат В таком виде результат запроса идентичен ...

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

Добрый день. Пытаюсь разобраться с примером сом-сервера. Статья и архив(в самом низу страницы) тут: http://kb.mista.ru/article.php?id=319 В примере всё более или менее понятно, проблемы появляются на этапе тестирования. Делаю "regsvr32 TestVK.dll" Кидаю на форму кнопку и пытаюсь изменить какие-нибудь свойства так: procedure TForm1.Button1Click(Sender: TObject); var vk : Variant; begin vk := CreateOleObject('Addin.TestVK'); vk.Title:='test'; end; но на любое об ...

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

TWAIN, CAP_DUPLEXENABLED, CAP_DUPLEX Доброе время суток. Работаю в управлении ПФР, наши сотрудники много сканируют документов, я написал утилиту которая оптимизирована под наши условия, для того чтобы меньше было движения мышью. Всё работает отлично, однако в последнее время стали пользоваться поточным сканером. Вот с двухсторонним сканированием проблемы. В работе использую DelphiTwain написанного Gustavo Daud. К сожалению в его реализации нет встроенных методов установки дуплекса Попытался ...

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