Есть некая БД *.db, (как я понимая H2)используемая в другой программе. Через H2 Console я к ней смог подключится, класс драйвера org.h2.Driver. Вопрос как мне из Delphi подключится к этой БД или хотя бы как экспортировать таблицы в другую БД (с помощью H2 Console я этого сделать не смог) ...

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

Добрый день. А можно ли программно нажать кнопку в чужой программе, запущенной на другом компьютере? хендл этой кнопки определить могу, а что дальще? ...

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

Уважаемые члены клуба! Возникла следующая неприятная проблема. В Delphi 7 создаю проект со стандартными компонентами(INDY, MS IE browser и т.д.) После компиляции проверяю на virustotal.com и в проекте обнаруживаются вирусы (обнаруживают 12 антивирусов из 67). Как я понимаю, участки кода из стандартных компонентов ошибочно трактуются, как вирусы. Данная проблема очень мешает распространению ПО, постоянные жалобы от пользователей. Кто как борется с этой проблемой, очень нужен совет.. ...

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

Доброго времени суток, Скажите, пожалуйста, почему при работе с типом Variant всплывают странные значения?!

code:
 
...
FVariantArray: array of Variant;
...
procedure FieldSum();
var
  eValue: Variant;
begin
  ...
  if ArrayIsEmpty(FVariantArray) then SetLength(FVariantArray, 1);
  eValue := FVariantArray[0];
  eValue := eValue + DataSet.Fields[0].Value; //<<<счетчик значений поля
  FVariantArray[0] := eValue;
end;

Если посмотреть на строчку FVariantArr ...

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

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

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

Вопрос, видимо, простой. И, возможно, как и все мы периодично, достиг состояния временного коллапса сознания (туплю). Короче, замес с указателями. А конкретнее как по неявному указателю идентифицировать объект (класс). Суть вопроса такова: Есть классы, такие как: [Code]TProjectsStack = class ... end; TDetailUnit = class ... end; TAssemblyUnit = class ... end; TBuildProject = class ... end; TProjectGroup = class ... end; TProjectManager = class ... end; [ ...

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

Уважаемые жители Королевства! Помогите, пожалуйста, разобраться. При помощи Delphi 10 Seattle + HTTP-шлюза пытаюсь отправить СМС. [Code] constructor TSMSAPI.Create; begin inherited; FSSLIOHandler := TIdSSLIOHandlerSocketOpenSSL.Create(nil); FHTTP := TIdHTTP.Create(nil); FHTTP.IOHandler := FSSLIOHandler; FHTTP.HandleRedirects := True; end; function TSMSAPI.SendSMS(Phone, TextSMS : string): string; var RequestBody: TStream; Request: string; begin Request:= ...

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

Здравствуйте. Пишу программу с использованием MDIChild форм. У главной формы есть панель подобный Taskbar-а Win 7. При открытии каждой новой формы, на панели появляется кнопка. Хочу, что при подводе мыши к этим кнопкам, выдавался бы Hint в стиле Taskbar-а Win 7. т.е. рисунок, помещаемый в hint определяется динамически. Стараюсь написать свой Hint, наследуемый от THintWindow, но не знаю как ему передать рисунок (Bitmap). Помогите пожалуйста. P.S. Использую Wndows 7, Delphi XE ...

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

Здравствуйте, уважаемые коллеги. Прошу подсказки в решении следующей задачи: Есть необходимость парсить текст в PDF-файлах. Выбрал, как мне кажется, наиболее простое решение с использованием IFilter. IFilter от Adobe, потому что от Foxit стоит не малых денег. Всё, как бы, работает, но текст выдается в беспорядке, вернее, в порядке нахождения в теле файла. Теоретически (такие файлы мне встречались) даже одно слово может быть разбито на части. Вопрос: можно ли с помощью IFilter вытащить из P ...

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

Коллеги, всем доброго времени суток! Осваиваю отображение файлов в память: 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