Всем привет. решил доделать, если получится, один свой старый прожект... копию радмина. Можно сказать, что он даже работает, но есть несколько крупных косяков. Вот, например, кнопки на удаленной стороне я нажимаю командами keybd_event и mouse_event. Пока просто в каком-нибудь ворде или по папочкам ходишь - все ок. Но как только откроешь, например, настройки доктора веба или что-нибудь системное, то там этими командами кнопки не нажимаются, ни мышь ни клавиатура. Это они так, видимо, от вирусо ...

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

Здравствуйте. Задан тип структуры Type TRec = record f1: Type1; ......... fn: TypeN; end; статическая переменная и динамический массив с этой структурой var vr: TRec; DA : array of TRec; Так вот, формат структуры после компилирования (расположение и размер полей) будут разные у переменной и динамического массива. В динамическом массиве компилятор оптимизирует расположение полей, а в переменной - нет. Но это полностью нарушает работу прог ...

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

Есть некая базовая dll, в которой некоторые функции объявлены как EXTERNAL из других dll. Приложение базовую dll загружает в run-time через LoadLibrary. Потребовалось переместить базовую dll со всеми сопутствующими из каталога с приложением в другое место. Приложение знает путь, по которому расположена базовая dll, однако загрузка не проходит: не находятся сопутствующие dll с реализациями external-функций. Предположительно, они ищутся не в каталоге с базовой dll, а в каталоге с приложением. ...

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

Приветствую всех жителей Королевства. Очень нуждаюсь в вашей помощи. Сразу к делу. Есть моя программа на ПК и некий внешний блок, который выполняет множество измерений. Связь с ним осуществляется с помощью Ethernet по протоколу UDP. Для этого я использую компонент TIdUDPServer. Блок имеет свой IP и на него отправляются управляющие команды, используя порт 4660. Через этот же порт блок на ПК отправляет массивы данных.Всё работает как часы. Но вот заказчик изменил протокол обмена. Теперь прог ...

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

Читаю OpenGL Red Book. В главе, посвященной альфа тесту сказано: "GL_LESS — фрагмент принимается, если его альфа < заданного значения". В главе, посвященной тесту трафарета: "Например, если выбрана GL_LESS, фрагмент проходит тест только в случае, если ref меньше, чем величина в буфере трафарета" Правильно ли я понимаю, что значение констант сравнения (GL_LESS) зависит от того, в каком тесте они используются? ...

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

Читаю OpenGL Red Book. В главе, посвященной альфа тесту сказано: "GL_LESS — фрагмент принимается, если его альфа < заданного значения". В главе, посвященной тесту трафарета: "Например, если выбрана GL_LESS, фрагмент проходит тест только в случае, если ref меньше, чем величина в буфере трафарета" Правильно ли я понимаю, что значение констант сравнения (GL_LESS) зависит от того, в каком тесте они используются? ...

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

Перестал запускаться delphi 7. Выдает сообщение "Точка входа в процедуру @Disview@TDisassemblyView@GetSourcePosEtEip$qqrv не найдена в библиотеке DLL coreide70.bpl". Сначала подумал, что все испортила установка delphi 10.3.3. Пришлось даже переустановить Win 7. Но результат тот же на чистой ОС. Что это? ...

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

Всем привет. Есть принтеры brother HL-2300 или похожие. Есть приложение, которое печатает талон на листке А6. Талон рисуется в графике. Когда он готов я его печатал так

code:

Printer.PrinterIndex := pin;
printer.title := 'текст';

Printer.BeginDoc;
try
RR := Rect(.....);
Printer.Canvas.StretchDraw(RR, TA.Picture.Graphic);
finally
Printer.EndDoc;
end;

И все было хорошо. У принтера в настройках стояла бумага А4. Ставили свою бумажку А6 по центру и в RR я делал сдвиг ...

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

Здравствуйте. Столкнулся с проблемой. Есть dll библиотека, написанная на Дельфи. В её внутренних процедурах встроен перехват исключений через блок try except end. Перехватываются исключения FPU и Access Violation. При подключении dll к программе, написанной на Дельфи всё работает, но при подключении dll к GCC, MSVC перехват исключений внутри процедур dll больше не работает. Также перехват не работает, если заключить вызовы dll процедур в С++ программе в такой же блок перехвата исключений: ...

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

TCustomImageList.InsertImage и ImageList_Copy Добрый день! Кто-нибудь сталкивался с подобной проблемой? Делаю дублирование картинки в TListImag'е:

code:
        ABitmap := TBitmap.Create();
        try
            ACurrImageIndex := GetImageIndex();
            Images.GetBitmap(ACurrImageIndex,ABitmap);
            Images.Insert(ACurrImageIndex,ABitmap, nil);
//....
        finally
          System.SysUtils.FreeAndNil(ABitmap);
        end;
 

При первом вызове ...

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

Здравствуйте! Подскажите пожалуйста, как можно создать WAV файл с помощью периодов импульсов. Т.е. есть набор периодов и длительностей и по ним нужно создать файл. Я создаю файл, но звук не совпадает оригиналом... Заранее благодарен. ...

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

Всем привет. Есть VCL приложение. Хочу в тот момент, когда форма ничего не делает, а проверяет наличие сообщений, проверять пару своих переменных. Как добраться цикла, в котором PeekMessage, TranslateMessage и DispatchMessage? Дайте списать! :) ...

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

Знатоки, подскажите, по какой причине при передаче из Dephi в Excel некоторые символы (табуляция, переносы строк и др.) превращаются в квадратики? Причём это наблюдается исключительно на Windows XP, на семёрке и десятке всё ОК. Печать делаю так: var Res:TStringList; begin ExcelApp := CreateOleObject('Excel.Application'); ExcelApp.DisplayAlerts := false; ExcelApp.Application.EnableEvents := false; Workbook := ExcelApp.WorkBooks.Add(extractfiledir(application.ExeName) + 'ResultPr ...

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

из БД MySQL из поля float(4,1) в MaskEdit заношу число 63,6. в MaskEdit-е вижу 63,5. маска MaskEdit-а "00,0;1;_". одни числа отображаются корректно, другие изменяются на одну десятую то вверх, то вниз. как эту беду победить? заношу в MaskEdit:

code:
   MaskEdit5.Text := ADOQuery1.Fields[6].AsString;
  MaskEdit6.Text := KomaBeschriebRevers(ADOQuery1.Fields[7].AsString);

(процедура подменяет точку на запятую) p.s. если число оканчивается на 0 (21,0), то 0 не отображается, ...

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

Доброго дня! Пишу программу на Delphi 10.2. В моей программе необходимо реализовать ввод Пароля и Логина на Form1 при нажатии по кнопке Button. Исходный код имеет вид. var Form1: TForm1; k:integer=3; implementation {$R *.dfm} uses unit2; procedure TForm1.Button1Click(Sender: TObject); var a,b:string ; begin a:='admin'; b:='123'; if (edit1.Text<> a) or (edit2.Text<> b) then begin k:=k-1; showmessage ('Неверно введен логин или пароль'+#13# ...

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

Здравствуйте, вчера при помощи SQL запроса Вы мне помогли собрать статистику из пяти колонок таблицы MyTable Вопрос № 83724:

code:
SELECT Digit,COUNT(Digit)
FROM (
  SELECT num_1 AS Digit FROM MyTable
  UNION ALL
...
  SELECT num_5 AS Digit FROM MyTable
)
GROUP BY Digit

Можно ли создать запрос сразу к двум таблицам? К MyTable и TableStrings в которой всего две колонки: 1. ID которая ровна Digit из первого запроса 2. CombStr строка которую можно назвать "Сумма прописью" объедин ...

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

Написал редактор функциональных блоков. Блоки только И, ИЛИ, НЕ, исключающее ИЛИ. Эту часть доделал, мне нравится, теперь нужно запустить эмуляцию. С чего начать, где и что почитать? Может кто объяснит в двух словах? Мысли такие - по умолчанию на входах всех блоков "0", сами блоки выставляют выхода в зависимости от своего назначения. следуя с верху вниз и слева на право, исходя из выставленных пользователем связей меняем входа и соответственно выхода блоков пока не добираемся до выхода со схемы ...

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

Всем привет. В какой-то момент перестали работать букмарки (ctrl+Shift+0..9). Вместо закладки появляется курсор в виде креста с некими координатами (типа пиксели). Подскажите какая программа так нагадила? ...

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

Добрый день. Есть таблица, которая отображается компонентом TDBGridEh. При перемещении по записям при помощи ползунка вертикального скролл-бара, на каждой записи отрабатывается определенный запрос. Задача - сделать так, чтобы запросы отрабатывались не на каждой записи при перемещении, а только тогда когда отпущена правая кнопка мыши на ползунке, т.е. движение прекратилось. События onMouseDown/onMouseUp на ползунке скролл-бара не отрабатываются. Перехват этих событий формы тоже результатов не да ...

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

QuiсkReport. Печать одного блока в разных отчетах. Для печати используется QuiсkReport. У меня есть куча отчетов, но в них есть один блок, типа шапки, который используется везде, изначально я его задизайнил в одном отчете, а потом просто скопировал и вставил в другие, но при малейших доработках приходится править все отчеты, жутко муторно. Может кто-нибудь знает, как можно сделать один блок и использовать его везде? ...

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