Всем доброго дня/ночи ! Помогите решить задачку. Есть компонент 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

Приветствую всех, увидивших мой вопрос! У меня возникла следующая проблема, и честно говоря я даже не знаю как это в поиске вбить. Перейду к сути. Есть Windows7 и Windows10. В этих ОС есть микшер управлением громкостью звука. В отличие от Windows XP помимо регулировки общей громкости есть возможность регулировать громкость звука для отдельного приложениям. К примеру, данный момент на Win7 я вижу следующую картину, левый микшер у меня под надписью устройство, в качестве устройства указано ...

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

Почему нельзя войти в критическую секцию без Sleep(1)? [Code] type TMyThread = class(TThread) public procedure Execute; override; end; var T: TMyThread; c: TRTLCriticalSection; implementation procedure TForm1.FormCreate(Sender: TObject); begin InitializeCriticalSection(c); T := TMyThread.Create(false); end; procedure TMyThread.Execute; begin repeat EnterCriticalSection(c); Sleep(100); LeaveCriticalSection(c); //sleep(1); ...

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

Lazarus, нужно определить, сколько памяти потребляет программа во время работы. Проблем, как узнать, сколько памяти потребляется СЕЙЧАС нет - есть команда GetHeapStatus.TotalAllocated, которая получает подходящее число:

code:
var Cur:int64;
begin
  Cur:=GetHeapStatus.TotalAllocated;
  DoSomething(InputFile,OutputFile); // нужно узнать, сколько памяти выедает эта процедура
  ShowMessage(inttostr(GetHeapStatus.TotalAllocated-Cur));
end;

Проблема в том, что получается всегда 0, что и ...

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

Привет! В своем проекте я использую запись параметров в xml файл через компонет TXMLDocument вот таким образом XML1.DocumentElement.ChildNodes[J].AddChild('TITLE').NodeValue:=SetName.Text Данные записываются, все отлично. Но иногда есть потребность прочитать с помощью текстового редактора типа блокнот данный файл с параметрами, а там все секции и узлы в кучу сбиты. Подскажите, есть ли способ задать, чтобы запись в файл шла в "красивом формате" с переносами по срокам и т.д.? Напод ...

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

Здравствуйте! Не могли бы вы помочь в решении проблемы с поддержкой паскаля в DLL. Суть проблемы состоит в следующем: необходимо организовать вывод Array[0..359] of Cardinal. В комплекте поставки платы есть пример на Си: I16 card, err; I16 card_num; U16 DOPortWidth = 32; //Port Width U16 DOMode = P7360_FreeRun; //DO Mode U16 DOWaitStatus = P7360_WAIT_NO; //No Wait Trigger U16 DOClkConfig = P7360_IntSampledCLK; //Internal Sampled Cl ...

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

Есть основное окно программы. По нажатию кнопки открывает другая форма с checklistbox, с котором пользователь выбирает нужные пункты галочками. На этой форме есть кнопки "Принять" и "Отменить". Как сделать чтобы по нажатию на "Отменить" все галочки, которые были отмечены при текущем открывании окна снялись? ...

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

Здравствуйте все. Решил сегодня воспользоваться классом TZipFile (XE2) для распаковки zip-архива. Особенность задачи в том, что мне не нужно сохранять распакованные данные в файл на диске. Делаю, примерно, так: [Code]FDecompessor:=TZipFile.Create; FDecompessor.UTF8Support:=true; FDecompessor.Open(FZipStream, zmRead); for i:=0 to FDecompessor.FileCount - 1 do begin FDecompessor.Read(i, ABytes); FNexZipFile(self, ABytes, Length(ABytes));// Event в обработчике которого ...

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

Передача по ссылке в ассемблер и соглашения о вызовах. Есть рабочий код:

code:
 {$ASMMODE INTEL}
procedure DivMod(numerator, denominator, quotient: DWord);
begin
  asm
  mov rdx, 0;
  mov rax, [numerator];
  mov rcx, [denominator];
  div rcx;
  mov [quotient], rax;
  mov [denominator], rdx;
  mov [numerator], rcx;
  end;
end;

Параметры процедуры здесь не обхявлены как var, поэтому не передадутся во вне, но зато доступны из ассемблера напрямую. Если их объявить как var, то к ...

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

Господа, сильно не пинайте. Подскажите как делать правильно (best practice). Есть клас Clients, в классе есть к примеру метод getclients который sqlем из базы возвращает список клиентов. Далее мне необходимо результат выгрузки загрузить в combobox, каким способом из метода забрать результаты выборки? for что здесь запихнуть do begin ComboBox1.Items.Add(); Next; end; ...

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

Удаление дубликатов информации в текстовом файле. Есть текстовые файлы с информацией вида ,[переменная,значение],[переменная,значение],. Иногда встречаются повторы, которые надо удалить. Пример: ...],[17.8,3036.1],[18.4,3006.2],[18.4,3006.2],[19.3,2949.1],[... здесь два средних отсчета это дубли идущие подряд, надо оставить один отсчет. В то же время если между одинаковыми скобками есть другие отсчеты, то это не дубли, а нормальная инфа, её трогать не надо. Подозреваю, что здесь могут мне ...

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

Здравствуйте! Есть Access-овский файл *.mdb в котором есть окно программы написанная на Access. А могу ли я из Delphi вызывать это окно не открывая полностью форму Аccess (одно окно без инструментария). ...

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