Есть большое и сложное (и неаккуратно написанное) приложение. При закрытии одной из форм иногда случается зависание. Опытным путём установлено, что возникают Access Violation. Есть подозрение, что для некоторых объектов удаление вызывается несколько раз (например, сначала непосредственно, а потом вместе с формой, которая является Owner). Захотелось при каждом вызове TObject.Free где-нибудь фиксировать, какой именно объект удаляется, а потом проанализировать последовательность удалений и выявить ...

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

Доброго дня! Парни, кто может подсказать. Проблема в следующем. Склеиваю вордовские файлы (Д7), но условие – при склейке, на новом листе куда тянем данные источника нужно выставить размеры полей и ориентацию листа как у источника. Набросал пример, с одним файлом все работает. Но при подтягивании следующего файла и выставлении параметров – настройки применяются не к конкретному листу, а всему документу! Пробовал решить вопрос поиском, как сменить позицию курсора, но не получается к ...

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

Всем добра. Есть задача вытаскивать из базы MS SQL данные по ID. ID никак логически не связаны, поэтому сделал условие IN (...). Пока в массиве около 50 элементов работает очень быстро. Но в будущем может быть несколько сотен. WHERE содержит ещё пару условий, а сам запрос имеет несколько JOIN. Если у кого-нибудь опыт или теоритические знания о том, как конструкция IN работает с большими массивами? Каков максимальный размер массива для приемлемой работы? ...

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

Что-то не могу реализовать простейшее. Есть TreeView, которое грузится из БД. Добавляю новый узел, перезагружаю дерево (это касается только level = 1, поэтому не напряжно). Хочу выделить (и раскрыть) узел, на котором пролизошло добавление. Но почему-то код ниже не работает. Выделяется соседний узел. [Code]i:=TV.Selected.Index; try // здесь должно быть добавление в базу записи, // которая потом будет дочерним узлом для выделенного // но пока ничего не добавляется, поэтому не д ...

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

Доброго времени суток. Написал реализацию генератора случайных чисел с использованием счетчика тактов процессора и счетчика миллисекунд. Теперь задаюсь вопросом, возможно ли в Lazarus сделать так, чтобы вместо стандартного Random вызывалась некая функция MyFuncRandom без изменения в коде какой-либо программы, которая вызывает стандартный Random? ...

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

Приветствую уважаемых коллег. Суть вопроса: база MS SQL. Имеется запрос с группировкой. Необходимо добавить в результат запроса некий CAPTION, который является текстовым блобом. В group by это поле не добавить, т.к. блоб. Изменить тип поля нет возможности. Можно ли как-то решить эту проблему? ...

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

Добрый всем день! Как можно вытащить поле "Кем сохранен" из свойств файла в вкладке "Подробно" для Excel. ЗЫ. Хотел приложить картинку, не нашел как. ...

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

На форме лежит компонент TDBDateTimeEditEh, у которого есть такая особенность: дату можно увеличивать и уменьшать на единичку стрелками вверх-вниз, но TDBDateTimeEditEh.Value изменится только после того, как будет выполнено обновление (например, при переходе фокуса на другой компонент). А ещё на форме есть TBitBtn, у которого свойство Default равно true. И вот тут получается маленькая неприятность... Допустим, мы стрелками сменили значение даты, но не перешли ни на какой другой компонент, а н ...

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

Два вопроса по Delphi + Excel 1. Как надписи на вертикальной оси диаграммы расположить слева, справа? With (exChart.Axes(xlValue, xlPrimary, LCID) as axis) do ? // ось Y 2. Как назначить желаемый формат надписей на осях - числовой, с заданным числом знаков в дробной части? ...

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

Доброго времени суток! Подскажите, как получить атрибуты экземпляра класса внутри метода, реализованного самим классом?

code:
    [ObjectId_1(31)]
    [ObjectId_1(32)]
    [ObjectId_2(41)]
    FObject: TCustomObject;

code:
  TCustomObject = class
  public
    procedure getCountAttrs(out count_1, count_2, total_count: Integer);
  end;

[Code]procedure TCustomObject.getCountAttrs( out count_1, count_2, total_count: Integer); var rttiContext : TRttiContext; r ...

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

Вопрос по сокетам В локальной сети в броузере корректно работает примерно такой вот запрос http://aa-bbb-cc:8080 Когда я пытаюсь выполнить вот такой код

code:
Result := false;
with TTcpClient.Create(nil) do
try
  RemoteHost := 'aa-bbb-cc';
  RemotePort := '8080';
  Result := Connect;
  Disconnect;
finally
  Free;
end;

соединение не устаналивается, Result = false Но если вместо имени хоста подставить ip-адрес, то всё работает? Можно ли как-то научить сокет понимать им ...

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

Всем здравствовать. Подскажите, пожалуйста, путь решения следующей хотелки: Имеется некий базовый класс T0 с полем типа TItem0 базового типа. Хочу, чтобы в потомках T0 свойство Item имело конкрентный тип (TItem1, TItem2 и тд), возможно, только с перегрузкой GetItem. Можно, конечно, возвращать тип TItem0 и приводить его к нужному типу за пределами класса при необхордимости. Но мне это не кажется красивым. Подозреваю, что это надо реализовывать с помощью генериков, но два часа опытов разбил ...

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

Как запустить поток для фрейма? В отдельном модуле имею TfrUn = class(TFrame) в нём есть TMemo, в нём очень большой обработчик действий, которые в свою очередь оказывают влияние на другие элементы этого фрейма и основного модуля (Обработчик обрабатывает все изменения в TMemo, перебирает все строки при любом изминении). Но как таковой переменной в фрейме frUn: TfrUn; не объявляется. В основном модуле есть pcProg: TPageControl; в нём динамически создаю страницу и создаю экземпляр объект типа Tf ...

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

Приветствую всех. Хочу узнать мнение коллег об организации объектной базы данных, над которой планирую работать в скором будущем. SQL сервер Firebird 2.5 (как минимум). У нас в организации уже работает объектная база, где поля объектов разнесены по физическим таблицам согласно их типу данных. Опыт показал, что такой подход напрягает сервер и обслуживание слишком сложное, т.к. "рабочие таблицы" находятся на более высоком в виртуальном уровне. Мне кажется более оптимальной реалицация: класс ...

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

Добрый день. Понадобился редкий и небольшой обмен данными по локальной сети между двумя программами. Почитал книгу Антона Григорьева и решил пойти "легким путем", используя TUdpSocket с вкладки "Internet". Для проверки использовал localhost (как "localhost" и как 127.0.0.1 при отключенной сети). Компонент успешно передает пакеты, снифер их получает, но порт приема (LocalHost:LocalPort) остается свободным. Пробовал передавать и принимать на один порт, запускать две копии программы, отправлять UD ...

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

Потребовалось мне разработать UDF для Firebird. которая возвращала бы значение типа BLOB. Причём, бинарный, а не текстовый. Сделал по образу и подобию. Получение входных данных, их преобразование и сохранение результирующих данных в буфер проблем не вызвало. А вот с переносом данных в выходной параметр возникли проблему. Код примерно вот такой [Code]procedure Buf2Blob(BufPtr: Pointer; BufLen: Integer; Blob: PBlob); begin Blob^.blob_put_segment(blob^.blob_handle, PISC_UCHAR(BufPtr), BufL ...

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

D7, W10, 1920x1080 Почему, при начертании линии шириной кратной 2 пикселям (2,4,6 и т.д.) именно по горизонтали в Image или на Bitmap, без разницы, линия с начала левого края, рисуется без одного пикселя? Линии шириной 1,3,5 и т.д. рисуются полностью. Мой код для рисования: with Image1.Canvas do begin Pen.Width := 2; Pen.Color := clBlack; MoveTo(0,5); // Начало LineTo(Image1.Width,5);//конец горизонтальной линии end; ...

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

Доброго времени суток! Появилась задача получать webhook от одного сервиса, коректировать его и отправлять другому сервису. Мои познания в этом вопросе примерно ноль. Пытался что-то искать в интернете, но все описания туманны и больше похожи на филосовские разсуждения, чем на практические советы. Подскажите с чего начать и в какую сторону идти. Классы, свойства, функии, параметры... А я со своей стороны по ходу решения вопроса буду выкладывать результаты своей работы с кодами и коментариями ...

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

Ребята, реально мы сейчас заходим сюда чтоб изредка ответить на вопросы неизвестных нам людей. Или ответить на вопросы известных. Здесь остались хорошие программисты, которые любят какие-то задачи, которые готовы поделиться, которым интересно программирование, как профессия, как любовь Десять-пятнадцать человек (в лучшем случае). И до сих пор не наскучило. Давайте устроим вечеринку для себя? В этой ветке будем делиться идеями. Например, для начала: лучший класс стека. Думаю, GEO напишет с разу ...

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

Доброго времени суток! Ещё вопрос. Точнее, два в одном. Один сервис возвращает DateTime stamp в виде 13-значного целого числа (например, 1723107180737). Очень похоже на количество миллисекунд, прошедших с 01.01.1970. По карйней мере, если отбросить три последние цифры и вызвать UnixToDateTime, то получим что-то очень похожее на правду (08.08.2024 08:53:00). Правда, скорее всего, это по Гринвичу, так как в Москве было уже 11:53. Законный ли это способ, или есть что-то другое, работающее име ...

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