Делфи - память

Здравствуйте, monah.

Вы писали 8 марта 2004 г., 19:54:35:

// ===> by Feniks
ReleaseDC(dc)
// ===> by Feniks

Ты пропустил ReleaseDC(dc) после использования dc GetDC.
Читай HELP на ReleaseDC и GetDC...

Remarks
The application must call the ReleaseDC function for each call to the
GetWindowDC function and for each call to the GetDC function that
retrieves a common device context.

--
С уважением,
Feniks mailto: feni***@b*****.ua
Номер выпуска : 2493
Возраст листа : 169 (дней)
Количество подписчиков : 380
Адрес в архиве : http://subscribe.ru/archive/comp.soft.prog.prog/msg/99519
Получить правила : mailto:comp.soft.prog.prog-rules@subscribe.ru
Формат "дайджест" : mailto:comp.soft.prog.prog-digest@subscribe.ru
Формат "каждое письмо" : mailto:comp.soft.prog.prog-normal@subscribe.ru
Формат "читать с веба" : mailto:comp.soft.prog.prog-webonly@subscribe.ru

-*Информационный канал Subscribe.Ru
Написать в лист: mailto:comp.soft.prog.prog-list@subscribe.ru
Отписаться: mailto:comp.soft.prog.prog--unsub@subscribe.ru

http://subscribe.ru/ mailto:ask@subscribe.ru

Здравствуйте !

Добавлю также (может кому интересно) :-)
"Увеличение размера программы" происходит в этом случае из-за
неосвобождающихся блоков данных структур описания контекстов
устройств в области памяти пользовательского режима.
По-русски : контекст устройства в винде представлен в
двух ипостасях (как вобщем то и все объекты GDI) - структурой
в области памяти режима ядра и в области памяти пользовательского
режима. В области памяти пользовательского режима находится
урезанная копия структуры, содержащая данные контекста
(они по мере надобности синхронизируются).
Полная структура лежит в области памяти режима ядра (добраться
до нее можно написав свой драйвер). До локальной (урезанной)
структуры можно добраться используя недокументированную WinAPI
функцию GetQueryTable. Эта функция возвращает указатель на таблицу
объектов GDI. Кстати, часть содержимого любого дескриптора,
возвращаемого функциями GDI API (типа GetDC, CreatePen,
CreateSolidBrush и есть индекс ячейки этой таблицы).
Экспериментально выяснено, что размер таблицы объектов GDI - всего
16384. Из них - несколько десятков - это "предопределенные"
объекты GDI, дескрипторы которых возвращаются например при вызове
функций : GetSysColorBrush, GetStockObject, часть - объекты,
используемые "родными" процессами виндов.
Короче, попробуйте сделать вот так :

for(int i = 0; i < 16384; i++)
{
if(::CreateSolidBrush(RGB(0x33, 0x66, 0x99)) == NULL)
break;
}

TRACE("Откушано объектов : %d\n", i);

и увидите сколько в вашей системе было доступно объектов GDI :-)
Только предупреждение - систему после этого скорее всего
придется перегрузить (если это винда 95/98) т.к. работать станет
невозможно (все будет глючить). В вин 2000 взглючит скорее всего
перерислвка только в пределах процесса, проделавшего такое
(и объектов удасться выделить только около 10000). Но запустипе
сразу пару - тройку таких приложений, и будет весело :-)

--
С уважением, Вахтуров Виктор.
Информационный сайт для программистов http://SoftMaker.com.ru

З.Ы. Да, что то разговорился я сегодня :-)
Короче, читайте классиков :-)
Номер выпуска : 2499
Возраст листа : 169 (дней)
Количество подписчиков : 380
Адрес в архиве : http://subscribe.ru/archive/comp.soft.prog.prog/msg/99847
Получить правила : mailto:comp.soft.prog.prog-rules@subscribe.ru
Формат "дайджест" : mailto:comp.soft.prog.prog-digest@subscribe.ru
Формат "каждое письмо" : mailto:comp.soft.prog.prog-normal@subscribe.ru
Формат "читать с веба" : mailto:comp.soft.prog.prog-webonly@subscribe.ru

-*Информационный канал Subscribe.Ru
Написать в лист: mailto:comp.soft.prog.prog-list@subscribe.ru
Отписаться: mailto:comp.soft.prog.prog--unsub@subscribe.ru

http://subscribe.ru/ mailto:ask@subscribe.ru

Здарова, Victor V. Vakchturov!

9 марта 2004 г., вторник, 18:00:39 (GMT+05:00), ты намылил:

Ну и юморист же у нас модератор ;)

В win2k prof
procedure TForm1.Button1Click(Sender: TObject);
var i: integer;
begin
for i := 0 to 1638400 do
if (CreateSolidBrush(RGB($33, $66, $99)) = NULL) then
begin
showmessage(IntTostr(i));
break;
end;
end;

showmessage не появляется. Если запускать из под Delphi - глючит
только прога. Но если запустить 3 таких проги не из под Delphi то
глючит конкретно. Не помогает даже ctrl+alt+del. Только reset.

;)

==-==-=-Привета!8 марта 2004 г. (понедельник 19:54:35) monah (E-Mail: <janal***@n*****.ru>) в мессаге
<<Делфи - память>> накрапал

4kB,

Это, друг мой, называется утечка памяти :-)
Такая лажа иногда бывает... когда забываешь после себя "убрать".
Могу привести еще море таких-же примеров

Здарова, monah!

8 марта 2004 г., понедельник, 22:54:35 (GMT+05:00), ты намылил:

Вот, народ держите мой "шедевр", идею я все-таки сплагинил ;)
2Monah: Я все таки сделал смену фонта на HDC!

1) Строчки:

begin
хех
644 toforum.rar

Надо превратить в:
begin 644 toforum.rar

Иначе не распакуется

2) Сохранить как ToForum.uue и открыть Rar-ом

==Начало ToForum.uue==
section 1 of uuencode 5.10 of file toforum.rar by R.E.M.

begin
хех
644 toforum.rar
M4F%R(1H'`#O0<P@`#0````````!Z8'2`@"<`)````!8````"1!Q?4N%6`R<=
M-0<`(````$)20RY"052G&&(2#0>BH@]/D?KFWQI>.V!ZQH:6*H<P>GX``+^(
M9_:I_]2N)'20@"D`P`,``$`-```"5(^JA8:Q;3`=-0D`(````$-L;V-K+G!A
M<X>GVGN>`^/%S6;:P]@RD^KCA7PL\__S-R+='RP6XM@0BD"NW^B0\VJ%>R]=
M=B%IP.LT!93=4=@*#CCI^9>G:)RJ\S=>\(Q+T;O)[K4-L4'@L-QXB6ATD4%N
M.#QCFWEF:^T17-$Y)&DE=\"MY*/MR%8JE4AW5)270R1W[C<K=O[C<.$;.<45
M@P`FM'4Y*QD;L(R[\^82?#UE?R,U>O*Q82&*8NLF"KWQ3=PTP(=$6N1'+*BL
M'\]=]1ATZ^4#P;X:(B1JK/T=HBNHM7QB.]"`DI'7U&@)>9'U!P"11V2WM^SH
M@\J2R??^TP3MZMTSGY.>\8`P8[%S)"9IT.ENNQ/3?ZY_:N+8*]/YBDG<?TPA

M203<SXY[RK0"6Y,48;!B,W?G;/X"72E#7OX\`;""]XX2.++*=EW.WX8E;=K!
MKU'W&8NV812<W/`=N\77/LDI6F`O%*YJ66C(Y=@)C1.\=&%)X3YE^CSB)YN_
MS=MNPF$.P[!6*@27&&XJ_@\B5$%7'0\ISFPG+MF/AYL+\VG79[O1L4<[=#NA
MH+!Z$\U:B)@_"`T?<PDEJ"]*%VU87P6-C]K1,62WZ'4VOP28BDJE<AL)_H91
MZP*ICN'=V-%57;;ZP;]NT.6YY'V'!_9<5-;=$=,>$AT'=\?,KYGTT/(I6;@9
MM05]N!$"Q.TJ4G4P$HVTI^#LNO<$&,D>\[GW_%>!FIB%G/-PW8.>H_M*BJ,%
M/:AC_[:-0D/S=1\NT!PK\O2.F]HUN.\:Z535ZMTLU:A,@`S:-Q,1/7)/[K56
M8,:TZ-TCG6>$+YX\(/O53;$MSEPJ6MTKKK/"_D1W:6K0YF@43W0B[$0AK4F(
M'8UNK%3Y4R-WJ,K"M`;:R:;#AHZ#58A0H3U0/!WS)$Y>'RT./9;ZB+GW/M`)

MF84=I$$T6?8J?OO#S2Y%3*:/K5@_06$MG",1%)/<Q]P*I;;OM5"X!8H!)H>2
M`PL,7I.(+@9SX4)F&F!OGLHS/D!N3[S,(R0%!KM%Q>-N]`Z?`>AM676R3EQ[
M%Q/)+%EIG4J)X:2"K#[L$W2S>*(<&).09><O2^*^S+N8*G:6:]D(<PO]-$7R
MUN8]8BV:P75B$C1W<!^W5/FB+43CQZ+')<LZ,[8%:P_NF_=#S6BZ+UW?DCZG
M,D+5W+"K5```OXAG]JG_U&ZL=)"`+``Y````>@````(*L-EOO(5M,!TU#``@
M````0V]N<W1A;G0N<&%SAP^SE>%<#3EP7V6YC31=X2@S4`@6[(VCV8T[V13U

M]Y3GA6TP'34+`"````!487-K0F%R+G!A<X=CAW1&PU_S_-BRR>C5U03+R"\.
M'7#T#^Z:O1FR&#V?K:<?<\,BX]FE2E6P$'^FD*DO#16IH\WFZ>08;MI>Y?A`
M:XU"\Y,CF<HH23F#4)$7<(6T>6,OU%K"[7@^!`D^)MMNLY#WI(FK##\I,*G\

M&^A[TY,P5!@]=/H/>T.@R:CI,3-A9DO&!@<^L8+7J.H;J0YHFZZ[:TC)G]EL
M,:288Y,Z7$/31)1TK#\Y6M@3'=<00F0CRE'*.V4&WW9"@6.#'#/<C@GFSK%=
MX\F0V>V^#O"&FC8$59<BZ$XY5X9OBNP;]Z!$E3`757P:1H>]C12<%VGJ\%+?
MQ4=1M2T87FG%K*,A\KN.U%FMT#@T9`=CT(E/V```OXAG]JG_U(Y)=)"`*0!]
M`@```0L```+3?E<9=K5M,!TU"0`@````54E$3$PN<&%SAZ3F%19$I1):)"OO
MJ^]5<Y]2U79D8,?3-J2F7[@!^2?G,]Q5QL^/K7`'>9]C&EV*(&0Q)E;$VX1M
M!Y]5;SQ$U30*6RJ<<'=.=*AI([W4KKI0[Y0`6,NNS8C[MS(S6*1.N/9D.X="
M\QF="]^U5].]S1:4WI?R-5OK[==*0Z@'`;C\QMX0F/#$"'`MY!"BQ114WSEV
MI_&32E/5&&E7RYE?I+Q=>6'7]PPH"J/C::RG3`P2'A',I54W%T'Q'D02&%I?
M)44"'%Z5LUB;^_BY57A$9/#XE5:LHH*7%H8BFC57D`^`)O75XW+B>>4%YN""
M7)'9;W26R7DA4CE:3\KY6-+)_OYI3K*&BK78^*;_VR:U!25_;DLU+;8XB^5E
M5^=B13]NN13%>JUJ91D6BE5@(X!]7@2M3[_?,\`<.#Z0L2W_2@-^)P#1A1L!
M0KGE8.@[XA<2\?KJ`76+,Q4+,_%K(;XU:=K/6,/&N=O-`X&_P8B%LW.<Q$!8

M3F@+\8R"6CHD#;"1]J=1&13`<9T\S=>8G;E@@13017LGOG%-4:P0J"H<?N>_
M?+7W%VEM@#V<P<"E,RU#C9W;8WQ3IV<#::39GJL)DO'^OM+IQ5ZC>Q:,^&-<
MH0:D27"[OW4$G&N`F7BH'GU(MLBL*B7,[7/$CY-\\"4SI(:>W)2+%6/5$DMF
MHODU6EZ9V,PF@=]SKE)MS,5HY=JF5Q\)BE@RM1HU*OSK3L+;GG+X]]O5D_KZ
MK9PD?"C<^JB+!N%K^]^8V3I)&8F:CRZ2D-0VE["<@@``OXAG]JG_U&XU=)"`
M+0!F!0``61H```)RA5UHJ;5M,!TU#0`@````0V]O;$-L;V-K+F1P<H?\M\H!
MW;6'ZYV@>?#8;UZSO"#3TC_#?02D3EZ0\Y?Z+88!R?%3R9^L22:Z[37O$2/\
M3*49J6`I)H1+1J`HPDG%R&?L%,<>)80'1GN+*[.H%5>`>+0RC;"Y'AT]2Z&P

M6\+R??OOY<[G/'642?922P-N#+EA-W/44#]WRQ\6M&9)LX>O9#P>17?QX7)1
MC"VQ=#1,,AQ%;9_^4*Z;JKE(;?6?HGN`UGZ3B0NHSU*LWFB=R5V[?K45./`#
MPY@$AKR`6MU_OG?8#IC@O[A"%\RZEE:=<_=W;RL@IV;<?*,6%,9)>[-US4G&

MFH;5LEMYP]QD07'>YUA70/V$AF_)[7Q0QO\*E/6?:V1,5U^Q&R*%DOFSE$/M
MV9T3NY=L>E2`3,,TQS($SUO]_GE4!@M0)UX7F&!OL6.S?JL\"6B\C/$G;Z@H
M&SFVWQ'O"&:O1$8GJ18GJV/M/.4&6>67X,+FF,C]@8.-D!?)3EQV#0:\69[O

MC$D(F5-3414K.[V*G:Y"3^A#T66[PU'3AW"`85&NA@L]@(QZS#\13ZU#;J8^

MT4`8(Z3,>/L>Q2T*9\*VGH]T0VW2[S@/I>V+FG8W"D)=8R'-[:/_T$#)4<AG
M'F0-_H)3TS4*YHY<+2R2=I8]O:W%N2\DB.OL)?&Q]>=V/N0:>Y%7>*<K25<D
MNC;JS&5U@.4X=.$6U=Q^.\<9D#G\BL&LO!"_E\9&NP:(IM2WJG4%DMB?Z-C3
M(-9KH?Y>[&S_TQ#X8EM8T`$J]QN@1;5O?YV\KAZ<*=G>UGJA!E1@MT6%SN2&
M.PSOP*,!\.T!5@96.#XEE&A$_,@&239B@_\A?C,2`&094&2M(DPO(#CIXH!S
MJX/TK%50:X8YRZ=)DRVXK]K@YOQ_`T6X&^1RR\#]%7P;<5!T5$<1NA#QIS1X
M8V^_/,?;?&V$CKG"P_\]Y;ODFS15LTYX'OVB^5-F04GO]4*0UVX&,.HG0)N9
MHF,TXW3Z^5T&G.MYW?%),@N_&G!VR`3O^ZPFM+(1P/*9473-Z@AKHW+:O#A=
M_?,M=N)^5K`Z/C\M2LYS0>T6FT*EO9_\].*Q378MLBM$3-[.WLHE7M:6M<DO

M3T#.-:P.%=],ZM46HU@H.F1-J>UTHBNS]UP6'#?U#WXJM+.;]#E1<L-*M0=>
MQM"O<N3B,')#P+IRF%$B!U?E,-S=?PWDBB9(`%T*U)VO+-V*"Y5+&?OZ20)V
MKL0Q6L'VYO*8_DW21ON[SKZ<U^#O@!4\5H&HV^!L:X8MP)H`^4O,CMG+F:E?
MIMF2U3RT-+C`726C%!,11X&-KUT08R7=2'7PU8!!SFHW'>B\%4>7\]53^?5=
M[^Z+Q"?-/798W940?(+L@H2YRP^8K@P6Q;`%?K[6VQ_DG+LU:];N=M,^UMS/
M1(&F/7M>_91.Q,9I.'FB.&B(1TAG=5W0V'6"O%G+C!K>OPB)%`D5E9?\=EE$
M?38P(X.$SS#L&9(02NTSK[=1)`"_B&?VJ?_4<=!TD(`F`"T```!J`````@^X
MN.Q$M6TP'34&`"````!522YD<'*'V=K(B0N&A;&NV8$D0Y_'\_2WEL!-(YY+
M#T8KSDYGK?Z95<0V`+^(9_:I_]1=UG20@"P`K````!<#```"'`0^$,Y.`R<=
M-0P`(````%1205E)0T].+D)01X?Y^7YBG)H_?#UBX;;K@K'MHIKOE&(`$G1Y
M`YQF$"=[@Q@#>%W$1<YE'YO7K$YJB>C:M!H:%C?""4B]UEG;?65$0^O0.#.N
M):FN.VUB?'*LME0N8Z5Z2%EJDBEL@XQ(48*MHS!R0U')E'#=XN5"?'^:,L]N
M(8X0;__*[:>4VK(A"B2Y]4ND0LRNK61X\972@IO5R!;?YWKY3D!"9P`=4UKD
M`J.<`+^(9_:I_]1+_720@"D`I`$```,$```"'%D:I;6R;3`=-0D`(````%5)
M1$Q,+F1F;<<3__N*)6V>O%4GI/@/'RK"(<$ERRYUUPE1&T/U_0#/"B)N#"J/
M9REO%#AA/=$W?N,Y;F"`\7.-Y?T_5[#-`'\UE)DZD_?\KU%@RG%LVW#$6_NH
M1IV$8(-9@"=O@D]MM7B]G$.DKF0[9.45L+P%S4IP73TWF"N#-^9SD*Y[!#^^
M#&15L$+3W/-ZE<!8?;*]\LRK$^C0:W@U@DF:,DL\]_H4,EP=5`FZ0?*W$,)R
M/6;@&F9Q!6O'`/LR_;L3IS'(N!\!EJ$Y:\3F2)7A;L+1K#CW?KC*&S8P-MKI

MFVH*%F!>UOX(8(K.S*<ZDF60(3C'W\OW@)5VQ!1V>_<ZP#=3#,!.+Z"_FP!Z
M40I3ITK,0H0"M%`F<?WYHP5=XQD7#S)[:[EM<W,AS2CE^+!%<$WLQ_!8V0OZ
MPC4T#4RRJ=KK4Y3%JEFA4KP)16.*'HKXCX6'"7JY!1/X.V[YQ-CY2PKTO&.5
M=;NCG1MW`I)341H8(0``OXAG]JG_U$OC=)"`*0#P````_@(```*B1TFHCI*_
M+!TU"0`@````0TQ/0TLN24-/AU:I@6F/@-+A#'W)IH''3.TD:\_?G\0'2,A]

M7U^\#?07V8QO$;L\X4AE$V>7]ZS/WNZXNEA<F>:7:Q6;<F#$\>E9KD(H`+:-

MF@!\6\$*9E2.K'SS^?WP4W;9<*OFMRE(U!2]G<#^,KWN@620DGP&G30MB8SO
M:XHLM"-QG'==M;@:\KX(QNR@D;:"L2X$``"_B&?VJ?_43E]TD(`J`(,```#?
M`````BXCO9(ULVTP'34*`"````!44D%94D53+E)#AX%:CC>:'<1U>T*I)`S"
MT:OR*.D`UBTP(\]BJ9T7*S$*#Q)WI>H9N9`.O`?-"]JO]N.__@KZWA-^.,0V
M8-9&X&&!;M>B$+=+X=][_:[T?^M<B%;EY*B3](+8F-W2PFXW*$-%SD5C)M6&
MHKA85=TB[5#'_+G<A5:6KWOK`+^(9_:I_]2^MG20@"T`6P```&P#```"/9F:
M'/.Q;3`=-0T`(````$-O;VQ#;&]C:RYR97,($-#/Y,U')<QT2F87,%8ZG0W-
M_P.89")T.OW)/'`F"3P\5'G@A!W_C_+NK5"[@["4/#'L;_9_NQ<^)V!7.TR-
M_[@/)Y,TTUZ9-$@\1$TN`V15KV#7^98'4*_`(E5TD(`K`'D```"\`````@JO
M977'M6TP'34+`"````!4<F%Y4F5S+E)%4^*'"<&"\V&3J8O]+`TY<'X9EUUV
M#-B`5YXS8C.Z<\4>"Y&<`]AXK]#W:CV_!<Z"FY3W[6";W'DEDCW?O,B&)6VZ
MR0PDA0-[IB?S4H;VU!,8WL:>/+9&26P]0^V]K*-#@RKX_,)(,]5L`8[Z2KFE
M_'\``+^(9_:I_]39_W20@"8`3P$``&P#```"5_:@5H6;Z2P=-08`(````%5)
M+G)E<X=P:,JL7O1#93C<9X(O**)9O"Y)J4F^M_(N27X]'^G9JU=49>?<"3`8
M+=]5B%C(:[F5U8J_26O'8YF%KW7J,O>?[#=="1T3>/`L^9TNMSJG1ZC-D-7T
MZQBU3DHP=L!2SW8>1MNQ1Q,],\'BDX*O')"5(HH=D]"49]"(=KK8C%KXJ<UH
MUM:'<_"^=-Z$BIWJ5[+<@YDD%W*/;\1TW2BNU+FVZX#`.V/IK=^U[U:E>B?:

MUMG"G^.UFH")H%X1+.U:^[-4(UUN+"N*<F&"P6[^MXZ8%W1UG69T='4\<>I^
?7PEYJ7(!S2QE,Q,@*>C9``"_B&?VJ?_4Q#U[`$`'`$`'
`
end
sum -r/size 54248/7700 section (from "begin" to "end")
sum -r/size 15228/5566 entire input file

==Конец ToForum.uue==

--
Никогда больше не буду говорить афоризмами. Да, кстати, запишите мою последнюю
фразу

Прив!
Заустил я это чудо, Error! Не принимает FormRunning:=boolean(true); хотя
почему, не пойму! Объявлена коррпектно. Оно вооще нажно как const? может var
сойдет? хотя не уверен что прокатит.
Есть мысля по теме?

С уважением monah
e-mail : janal***@n*****.ru
сайт : http:\\janalex.narod.ru
--
Номер выпуска : 2593
Возраст листа : 174 (дней)
Количество подписчиков : 377
Адрес в архиве : http://subscribe.ru/archive/comp.soft.prog.prog/msg/102728
Получить правила : mailto:comp.soft.prog.prog-rules@subscribe.ru
Формат "дайджест" : mailto:comp.soft.prog.prog-digest@subscribe.ru
Формат "каждое письмо" : mailto:comp.soft.prog.prog-normal@subscribe.ru
Формат "читать с веба" : mailto:comp.soft.prog.prog-webonly@subscribe.ru

-*Информационный канал Subscribe.Ru
Написать в лист: mailto:comp.soft.prog.prog-list@subscribe.ru
Отписаться: mailto:comp.soft.prog.prog--unsub@subscribe.ru

http://subscribe.ru/ mailto:ask@subscribe.ru