» Вопросы по Delphi (до версии 2009) - часть 5

AviDen

Цитата:

Да мы вообще для проекта написали свой widestring-аналог TIniFile и не паримся... А то винапишные танцы с бубном по каждому мелкому поводу как-то не прельщают.

на д2010 свой компонент не тестили?

я тут был пару своих проектиков решил портануть. в них как-раз используются ДЛЛки с обработкой widestring'ов. вроде все работает но память утекает непонятно куда . пришлось на время перенос отложить.

apnss, нет, у нас проект на D7 и будет на ней ещё оооочень долго
Для борьбы с утечками FastMM используете? Попробуйте, крайне рекомендую.

Odysseos
А я не знаю как оптимальнее, у вас тоже цикл идет, только вначале вы выделяете буфер длинной со строку + BUF_SIZE. Можно от балды сразу 65535 ухнуть.

AviDen

FastMM юзаем, но он кстати толком ничего не показывает. ДЛЛки шли отдельным проектом , там активно юзаеются калбэки и ракировки апликейшина.

скорее всего по Д2010 прийдется полностью менять концепцию и переписывать все с нуля .

Maks150988

вначале вы выделяете буфер длинной со строку + BUF_SIZE

Я его не вначале выделяю длиной со строку, я перед каждой попыткой чтения увеличиваю буфер на BUF_SIZE. То есть - первый раз пытаюсь прочитать BUF_SIZE, не хватило - пытаюсь прочитать 2 * BUF_SIZE, не получилось - 3 * BUF_SIZE, и так пока не влезет.

Можно вообще на каждом шаге удваивать текущую длину буфера - это еще быстрее будет, но затратнее по памяти - тут надо баланс искать.

apnss, гм, что значит - толком ничего не показывает? По каждой утечке в логе отражён стек-трейс до строки кода, где эта область памяти была выделена, с именами модулей/функций/процедур и номерами строк + содержание этого самого блока. И то, и другое в 90% случаев помогает определить реальный источник утечки.

Odysseos
Да, я согласен с вами, что лучше удваивать длину буфера при каждом шаге, но в моем случае с лихвой хватает и текущей длины, так что все за один присест прочитается.

Тогда цикл такой, чтобы уж наверняка.

Код: repeat
dwRet := GetPrivateProfileSectionNamesW(LPWSTR(pszBuf), nSize, LPWSTR(pszFileName));
if ((nSize - dwRet) = 2) then
begin
Inc(nSize, MAX_PATH);
SetLength(pszBuf, nSize);
end;
until
(nSize - dwRet) <> 2;

AviDen

я знаю как юзать FastMM в фулдебаг режиме


Цитата:

apnss, гм, что значит - толком ничего не показывает?

то и значит - лог пустой (я имею в виду утечки), но при работе приложения скомпиленного на д2010 за полдня "уходит" 500метров ОЗУ в никуда.

при работе приложения скомпиленного в д2007 такого не наблюдается - прога "крутится" неделями с теми же ДЛЛками.

проблема еще в том, что последних исходников ДЛЛек у меня нет и взять их не у кого. это вообще отдельный проект был

вот такие пироги

ПыСы: нада завязывать д2010 тут офтоп

Odysseos
Меня тут долго не было... Проблемы-с. Продолжая дискуссию о нахождении всех возможных вариантов определенного аккорда на грифе гитары. Ограничения простые - выбирается аккорд, допустим Dm (ре-минор), находятся ноты, входящие в данный аккорд - F(фа), A(ля), С (до). Это все легко. Вот дальше начинаются сложности. Надо найти все возможные сочетания этих трех нот на грифе гитары (то есть задействовано от 3-ех до 6-ти струн). Бас роли не играет. Ноты могут идти в любом произвольном порядке. Аккорд останется все равно тем же. Допустимы промежуточные незвучащие струны, так же как и наоборот, открытые струны. Главное, чтобы не звучали ноты НЕ входящие в аккорд. Невозможно, также, нахождение двух нот на ОДНОЙ струне в готовом аккорде. На гитаре всегда будет звучать только одна нота на каждой отдельно взятой струне. То есть, 1 струна <= 1 нота, но не обязательно использовать все струны. Допустимы удвоения нот в любых вариантах - FFAADD, DAAF, DFAFA и.т.д. Предел для растяжки пальцев можно взять в 4 лада (это не принципиально). Получаем участок грифа гитары 6 (струн) на 4 (лада) для каждой позиции (позиция - положение указательного пальца при взятии аккорда). Вот для этого участка надо найти все возможные варианты построения аккорда (в данном примере - Dm, ре-минор). Надо еще помнить, что нужны и те варианты, когда нота подходящая есть, но возможен вариант и с ее пропуском, так как можно ее получить на другой струне.
Преимущества в басах (допустим для тоники - Ре) нет. Задача не абстрактная. Если найду механизм как это осуществить, то все остальное уже довольно просто. Залез даже в теорию графов с их обходом, но что-то очень сложно. Тут другая идея - ведь все возможные аккорды можно описать схемой вида - 00 01 00 02 03 XX (аккорд С). У меня уже есть программа, в которой пользователь проставляя ноты аккорда (точки на грифе) узнает, что это за тип аккорда, к тому же автоматом пишется эта буквенно цифровая схема в одну строку. Так вот идея в том чтобы перебрать все варианты в каждом элементе строки (от 00 до 04) пока программа не выдаст, что это аккорд Dm. Но как организовать такой цикл? И сущает что будет слишком много "холостого" хода. Ведь найти ноты на грифе которые заведомо соответствуют нотам аккорда не сложно, хочется "плясать" от этого. Вообщем, не знаю как подступиться. Если кого интересует проблема - пишите на мыло тоже. Буду рад если сможете как-то помочь.

Bonivur

Мдя... Чего уж сложного-то?

[more]

Код:
const
tOctave = 0;

tC = tOctave + 0;
tCs = tOctave + 1;
tD = tOctave + 2;
TDs = tOctave + 3;
tE = tOctave + 4;
tF = tOctave + 5;
tFs = tOctave + 6;
tG = tOctave + 7;
tGs = tOctave + 8;
tA = tOctave + 9;
tB = tOctave + 10;
tH = tOctave + 11;

type
TTune = tC .. tH;
TTunes = set of TTune;
TChord = array [1 .. 6] of Integer;

const
Guitar: array [1 .. 6] of TTune = (tE, tH, tG, tD, tA, tE);

var
tunes_to_find, tunes_not_found_yet: TTunes;
chord: TChord;
i, j, pos, dist: Integer;
tune: TTune;
begin
// "обнуляем" аккорд
for i := Low(chord) to High(chord) do
chord[i] := - 1;

// задаем начальные значения
// позиция
pos := 0;
// расстояние
dist := 4;
// аккорд для поиска
tunes_to_find := [tD, tF, tA];

tunes_not_found_yet := tunes_to_find;

for i := Low(chord) to High(chord) do begin
first_tune_pos := - 1;

for j := pos to pos + dist do begin
tune := (Guitar[i] + j) mod 12;
if [tune] * tunes_to_find = [tune] then
if (tunes_not_found_yet = []) or
([tune] * tunes_not_found_yet = [tune])
then begin
tunes_not_found_yet := tunes_not_found_yet - [tune];

chord[i] := j;

Break;
end
else
if first_tune_pos < 0 then
first_tune_pos := j;
end;

if (chord[i] < 0) and (first_tune_pos >= 0) then
chord[i] := first_tune_pos;
end;

// в массиве chords - позиции нот на каждой из струн
end;

Коллеги, помогите составить хранимую процедуру для Firebird. Нужно чтобы сервер возвращал набор данных при изменении значения символьного поля в главной таблице у связанной с ней по символьному полю. Использую Delphi 2007 и IBDAC.

EugeneBoss3

Во-первых - для Firebird'а есть отдельная тема.

А во-вторых - объясните, плз, понятней.

кто-нибудь имеет опыт создания некоего простого аналога векторного редактора или автокада или скорее визио...
надо визуализировать план помещений (возможно даже в 3d) с движущимися объектами...
или копать в сторону opengl или directx или может даже xna ?
или искать библиотеки под delphi (желательно бесплатные) ?

svs123456789
Тоже возникала аналогичная задача визуализации плана. За основу взял Контейнер визуальных объектов

apnss
Проследите, чтобы и библиотеки и приложение использовали общий менеджер памяти.

Odysseos
Спасибо за подробный ответ, но найти аккорд перебором "пострунно" вверх - это конечно не составляет проблем и я уже давно сделал. Вопрос как найти аккорды если допустим, 1-ая струна вообще не звучит, Далее - 2-ая струна на 3-ем ладу (РЕ), 3-яя струна на 2-ом ладу (ЛЯ), далее 4-ая и 5-ая струна пропускаем, 6-ая струна 1-ый лад (ФА). Это тоже аккорд Dm. То есть можно пропустить 4-ую и 5-ую струны, хотя на них и есть требуемые ноты, просто чтобы найти все варианты в 1 (одной!) позиции то есть в пределах 4-ех ладов. То есть chord может состоять и из 3 и из 4, 5 нот. К примеру, для нот аккорда tunes_to_find := [tFs, tE, tGs, tH] находится далеко не самый удобный вариант. Логичнее было бы найти Фа-диез на 1-ой струне, Ми - на 4-ой струне, Соль-диез на 3-ей и Си на 2-ой открытой.