PHP DM Gate v0.9 » баги kolnmck 288 <span class="vd">[Delphi, Windows]</span>

Dy1 (05.08.09 11:29) [0]

обнаружил неприятную вещь - утечка памяти метода Draw. Т.к. прогер из меня никакой :) , решил заменой на Canvas.CopyRect

<Цитата>
Dy1 (05.08.09 11:32) [1]

забыл добавить, что рисую на форме в таймере бмпшку 80х80х32 250 раз в секунду (ну надо мне так).

<Цитата>
D[u]fa (05.08.09 13:37) [2]

Можно код где есть утечка? И чем обнаружил?

<Цитата>
Dy1 (05.08.09 15:14) [3]

код обычный: битмап.Draw(
Обнаружил FastMM4-кой.

И сейчас обнаружил утечку 20 байт при загрузке PNG из потока (KOLGraphicEx.pas)

<Цитата>
Vladimir Kladov © (06.08.09 22:48) [4]

Это баг KOLGraphicEx, там и надо смотреть видимо. Есть еще TinyPng из GrushControls.

Народ, я уезжаю на месяц, связи не будет, в сентябре приеду.

<Цитата>
Dy1 (24.08.09 17:11) [5]

юзал tinyPNG и tinyJPGGIFBMP пока не надоели утечки по килобайту. FastMM место не показал, я в коде не разобрался. JpegObj работает отлично.

<Цитата>
Dy1 (02.09.09 10:35) [6]

попался ещё один баг:
PBitmap.Canvas.Arc вылетает с ошибкой где-то в памяти. Вызов напрямую windows.Arc работает.

<Цитата>
Vladimir Kladov © (02.09.09 15:57) [7]

Я про это уже писал (TCanvas.Arc). Привет, кстати. Пример на баг TBits есть? Первый жень после возвращения некогда было даже в инет выйти.

<Цитата>
Dy1 (03.09.09 12:08) [8]

привет
примера нет - опять потерял проект (или отложил или удалил), что делал не помню. Видимо использовал какой-то компонент, который использовал koladd

<Цитата>
Ruzzz (07.09.09 10:47) [9]

в Turbo Delphi не хочет компилироваться KOL.pas если установить UNICODE_CTRLS до тех пор пока не установим еще и FORCE_ALTERNATEFILENAME, ошибка в 23405:
procedure TDirList.ScanDirectory(const DirPath, Filter: KOLString;
Attr: DWord);
var FindData : TFindFileData;
E : PFindFileData;
Action: TDirItemAction;
{$IFDEF FORCE_ALTERNATEFILENAME}
IsUnicode: AnsiString;
{$ENDIF}
begin
Clear;
FPath := DirPath;
if (FPath = '') then Exit;
FPath := IncludeTrailingPathDelimiter( FPath );
if not Assigned(fFilters) then begin
>>> fFilters := {$IFDEF FORCE_ALTERNATEFILENAME} NewWStrList {$ELSE} NewStrList {$ENDIF};
if Filter = '*.*' then
fFilters.Add( '*' )
else
fFilters.Add( Filter );
end;

ошибка:
[Pascal Error] KOL.pas(23405): E2010 Incompatible types: 'TStrList' and 'TWStrList'

<Цитата>
Ruzzz (07.09.09 12:08) [10]

Еще такой баг, или я что-то не так делаю:
делаю
ListView1.Anchor(TRUE, TRUE, TRUE, TRUE);

потом такой код:
DefWindowProc(Form.Handle, WM_SYSCOMMAND, SC_MINIMIZE, 0);
ShowWindow(Form.Handle, SW_HIDE);
ShowWindow(Form.Handle, SW_SHOW);
DefWindowProc(Form.Handle, WM_SYSCOMMAND, SC_RESTORE, 0);

и после этого ListView1 по размерам уходит далеко-далеко вправо и вниз, это касается не только ListView1. если в Anchor установить только вертикальные(top, bottom) значения в true, то размер "уйдет" только вниз, соот-но для left/right
Что посоветуете? Все таки Anchor довольно нужная штука, не всегда удобно align использовать.

<Цитата>
MTsv DN (07.09.09 14:59) [11]

2 Ruzzz
Добавка форс_алтнейм - это мое, но тока видимо D[u]fa добавил не правильно. Вот как должно быть:
{$ELSE ASM_VERSION} //Pascal
procedure TDirList.ScanDirectory(const DirPath, Filter: KOLString;
Attr: DWord);
var FindData : TFindFileData;
E : PFindFileData;
Action: TDirItemAction;
{$IFDEF FORCE_ALTERNATEFILENAME}
IsUnicode: AnsiString;
{$ENDIF}
begin
Clear;
FPath := DirPath;
if (FPath = '') then Exit;
FPath := IncludeTrailingPathDelimiter( FPath );
if not Assigned(fFilters) then begin
fFilters := {$IFDEF UNICODE_CTRLS} NewWStrList {$ELSE} NewStrList {$ENDIF};
if Filter = '*.*' then
fFilters.Add( '*' )
else
fFilters.Add( Filter );
end;

<Цитата>
Dy1 (07.09.09 14:59) [12]

> Пример на баг TBits есть?
подключаю kolAdd, сразу 6 ошибок.

Символы
{$DEFINE ASM_VERSION}
{$DEFINE NO_DEFAULT_BUTTON_BOLD}
{$DEFINE NOT_USE_RICHEDIT}
{$DEFINE CRASH_DEBUG}{$DEFINE DEBUG_GDIOBJECTS}{$DEFINE CHK_BITBLT}

<Цитата>
MTsv DN (07.09.09 15:13) [13]

Тестовый проект?

<Цитата>
D[u]fa (07.09.09 16:32) [14]

FORCE_ALTERNATEFILENAME исправлено и залито. C kolAdd ошибок нет

<Цитата>
Dy1 (07.09.09 18:32) [15]

www.dy.cdrrhq.ru/t2.rar
весь тестовый проект - подключение koladd, как я и говорил.

<Цитата>
MTsv DN (07.09.09 19:27) [16]

2 Dy1
Странный Вы все-таки...или такой "уникальный", что находите себе на причинное место приключения там где их нет... На кой ляд Вы {$DEFINE ASM_VERSION} добавили? Она по умолчанию выставляется...

<Цитата>
MTsv DN (07.09.09 20:00) [17]

Гы. Чую, придется мне извиниться...{$DEFINE ASM_VERSION} не подхватывается в D2007 для KOLadd.pas...

А правки следующие:
1. Стр. 1136
MOV EAX, [EAX].TBitsList.fItems
2. Стр. 1309
MOV ECX, [ECX].TBitsList.fCapacity
3. Стр. 1330
MOV EAX, [EAX].TBitsList.fItems
4. Стр. 2275
CALL TObj.Final
5. Стр. 2343
CALL TObj.Final

<Цитата>
D[u]fa (07.09.09 20:26) [18]

Исправлено, 4 и 5 пункты под вопросом - заменены на TObj.Destroy

<Цитата>
Ruzzz (08.09.09 15:36) [19]

файл KOLadd, строка 2227, Заменил Path: AnsiString на KOLString, иначе при использовании UNICODE_CTRLS выдает ошибку что "не совпадает с предыдущим описанием"
//[function NewDirChangeNotifier]
function NewDirChangeNotifier( const Path: AnsiString; Filter: TFileChangeFilter;
WatchSubtree: Boolean; ChangeProc: TOnDirChange )
: PDirChange;

и действительно: строка 459
function NewDirChangeNotifier( const Path: KOLString; Filter: TFileChangeFilter;
WatchSubtree: Boolean; ChangeProc: TOnDirChange ): PDirChange;

Здесь Path: KOLString уже не AnsiString

<Цитата>