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

Добрый день! Пишу программу - патч, она должна по нескольким адресам поменять ровно по одному байту. Всё хорошо, если я задаю значения этих байт в формате $FF в коде программы, но я хочу, чтобы их можно было ввести через форму, т.е. через TEdit. Не получается что-то преобразовать строку в байты... var byteArray : array[1..1] of byte; byteArray[1]:=ord(Edit1.Text[1])+ord(Edit1.Text[2]); - Делфи их просто складывает и хитрый символ на выходе... Edit2.Text:= chr(byteArray[1]); т.е. к ...

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

Здравствуйте, направьте меня в нужную сторону. Пишу простенькую типа Скаду, сам строю объекты от TObject, для просмотра и изменения свойств использую TValueListEditor, кое где выпадающий список, кое где кнопка с тремя точками для вызова какой то дополнительной формы. Для реакции на ввод значения пишу обработчик ValueListEditorValidate(), для вызова форм по кнопке с тремя точками ValueListEditorEditButtonClick. Т.е. все свойства объекта привязаны к определенным ячейкам, если добавил(убрал) ...

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

Привет всем. Долгое время время писал на D7, сейчас перехожу на D10. В своё время на D7 пробовал решить проблему управления формами кнопками панели задач, но очевидного решения не нашёл. Сейчас знакомлюсь с последней версией. Полагал, что какой-то механизм должен быть встроен, но такового не нашёл. Проблема: требуется сделать приложение с несколькими формами, каждая из которых имеет кнопку на панели задач (и, соответственно, thumbnails preview) так, чтобы при сворачивании любой из форм - прило ...

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

Здравствуйте! 1) Имеется код, который выполняет запуск exe-файла при клике на кнопку:

code:

procedure TMAIN.runClick(Sender: TObject);
begin
MAIN.Close;
ShellExecute(Application.Handle,PChar('open'),PChar('programpath\Start.exe'),nil,nil,SW_SHOW)
end;

2) Имеется код, который ищет окно другой программы и выполняет там нажатие конкретного пункта меню: [Code] procedure TMAIN.controlsClick(Sender: TObject); Var Men :HMenu; Hnd,HndDialog,HndControl,HndAsc,HndBtn :HWnd; ...

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

Всем здравствуйте! Проблема такая: надо получить содержимое документов Word в виде простого текста. Но документы необходимо загружать из памяти, а не из файлов. Вроде как это умеет делать TOleContainer. Может "из пушки по воробьям", но это работает. [Code]type TStreamHeader = record case integer of 0:( Signature:integer; DrawAspect:integer; DataSize:integer); 1:(PartRect: TSmallRect); end; const StreamSignature = $434F4442; ...

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

все привет. нашел такой пример в сети:

code:
type myproc = procedure; stdcall;

procedure Proc1;
begin
ShowMessage('Hello From Proc1');
end;

procedure TForm1.Button1Click(Sender: TObject);
var p: myproc; h: HWND;
begin
h := GetModuleHandle(nil);
p := GetProcAddress(h,'Proc1');
ShowMessage(IntToStr(h));
p; // вот он сам вызов процедуры
p := nil;
end;

Но, как я понимаю F1, GetProcAddress работает для процедур из dll. А как то же самое сделать, если моя процедура как обы ...

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

Возможно, я не мог, в общем потоке информации найти подобную, проблему, но мне нужно в Делфи 7 отловить окончание синхронизации в YandexDisk(-е). Т.е. окнчание синхонизации с компом и облаком. По видимому, нужно, использовать web-технологии, но в этом я не особо силен. Спасибо, заранее за любой вариант ответа(-ов). С уважением Виктор ...

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

Мое приложение и все его дочерние окна используют шрифт Tahoma, размером 9 пт (так лучше видно пользователям). Стандарные диалоги Delphi используют шрифт MS Sans Serif размером 8 пт. Как можно включить использование стандартными диалогами (MessageDlg, InputQuery, InputBox и т.п.) заданных шрифтов (Font.Name, Font.Size и т.п.)? И возможно ли такое вообще? Использую Delphi 6 Enterprise. Приложение работает в локальной сети на компьютерах, использующих разные ОС (Windows XP, Windows 7, Windows Ser ...

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