Не возможно установить FastMM4 - Память уже была выделена
---------------------------
FastMM4 невозможно установить когда память уже была выделена стандартным менеджером памяти.

FastMM4.pas ДОЛЖЕН быть первым модулем в вашем файле .dpr файле проекта, иначе память может быть выделена

через стандартный менеджер памяти перед тем как FastMM4 получит контроль.



Если вы используете обработчик исключений типа MadExcept (или любой другой инструмент модифицирующий порядок инициализации модулей),

то перейдите в страницу его конфигурации и убедитесь, что FastMM4.pas модуль инициализируется перед любым другим модулем.

GallemarAndy Mezentsev,

Текущий дамп памяти из 256 байт начиная с адреса 6E17B3F0:
01 00 00 00 0B 02 00 00 31 34 2E 31 31 2E 32 30 31 37 20 31 35 3A 32 38 3A 34 34 3A 20 73 65 6C
65 63 74 20 65 72 72 6F 72 5F 76 61 6C 75 65 2C 77 61 72 6E 69 6E 67 5F 76 61 6C 75 65 20 66 72
6F 6D 20 69 6D 70 6F 72 74 5F 65 78 63 65 6C 5F 61 64 64 5F 6C 69 6E 65 28 3A 53 45 53 53 49 4F
4E 2C 3A 54 59 50 45 5F 43 4C 41 53 53 49 46 2C 3A 49 44 5F 44 4F 43 48 45 41 44 2C 3A 4E 55 4D
42 45 52 2C 3A 4D 41 53 54 45 52 46 49 45 4C 44 2C 3A 42 41 52 43 4F 44 45 5F 53 45 50 41 52 41
54 4F 52 2C 3A 50 41 43 4B 5F 4B 49 4E 44 2C 3A 41 4C 4C 5F 43 41 52 44 53 2C 3A 41 52 54 49 43
55 4C 2C 3A 42 41 52 43 4F 44 45 2C 3A 43 4F 4D 4D 45 4E 54 2C 3A 43 55 53 54 4F 4D 2C 3A 47 4F
4F 44 5F 44 41 54 45 2C 3A 50 41 43 4B 2C 3A 50 41 43 4B 51 55 41 4E 54 49 54 59 2C 3A 50 52 49
. . . . . . . . 1 4 . 1 1 . 2 0 1 7 1 5 : 2 8 : 4 4 : s e l
e c t e r r o r _ v a l u e , w a r n i n g _ v a l u e f r
o m i m p o r t _ e x c e l _ a d d _ l i n e ( : S E S S I O
N , : T Y P E _ C L A S S I F , : I D _ D O C H E A D , : N U M
B E R , : M A S T E R F I E L D , : B A R C O D E _ S E P A R A
T O R , : P A C K _ K I N D , : A L L _ C A R D S , : A R T I C
U L , : B A R C O D E , : C O M M E N T , : C U S T O M , : G O
O D _ D A T E , : P A C K , : P A C K Q U A N T I T Y , : P R I

--------------------------------2017/11/15 10:28:55--------------------------------
Блок памяти был выделен и не освобожден. Размер: 532

This block was allocated by thread 0x1130, and the stack trace (return addresses) at the time was:
402E70
405279
4052A4
4263BF
426036
425FAA
4F91E8
42AAC7
40514A
75A07C04 [BaseThreadInitThunk]
7793AB8F [Unknown function at RtlInitializeExceptionChain]

Блок в настоящее время используется для объекта класса: AnsiString

Выделенный номер стал: 1964174

List1:=TStringList.Create;
List1.LoadFromFile(Flog);
for t:=1 to List1.count-1 do begin
if Length(List1.Strings[t]) <> 0 then begin
if pos('select error_value',List1.Strings[t] ) =0 then begin
if pos('Выполнили XLS.Clear',List1.Strings[t] ) =0 then begin
if pos(' Выполнили fexe.Free',List1.Strings[t] ) =0 then begin
if pos('Выполнили fexe:= TFileStream.Create(ExcelFileName, fmOpenRead or fmShareDenyNone)',List1.Strings[t] ) =0 then begin
if pos('Выполнили xls.LoadFromStream(fexe,true)',List1.Strings[t] ) =0 then begin
if pos('В каталоге',List1.Strings[t] ) =0 then begin
if pos('не найдены файлы Microsoft Excel (*.xls, *.xlsx)',List1.Strings[t] ) =0 then begin
if pos('Operation aborted',List1.Strings[t] ) =0 then begin
if pos('Access violation at address',List1.Strings[t] ) =0 then begin
n:= copy(List1.Strings[t],0,19);
m:= copy(List1.Strings[t],21,150);
trans3:= TpFIBTransaction.Create(nil);
try
query3:= TpFIBQuery.Create(nil);
try
trans3.DefaultDatabase:=db;
query3.Database:=db;
query3.Transaction:=trans3;
query3.SQL.Clear;
query3.SQL.Add('insert into IMPORT_TRACE (LOG_TIME,LOG,KIND,USER_ID,SECOND_ID) values (:LOG_TIME,:LOG,:KIND,:USER_ID,:SECOND_ID)');
trans3.StartTransaction;
query3.ParamByName('LOG_TIME').aSDateTime:= StrToDateTime(n);
query3.ParamByName('LOG').AsString:= m;
query3.ParamByName('KIND').Value:= Fkind;
query3.ParamByName('USER_ID').Value:= Fuser;
query3.ParamByName('SECOND_ID').Value:=s;
query3.ExecQuery();
trans3.Commit;
finally
freeandnil(trans3);
end;
finally
freeandnil(query3);
end;
DeleteFile (PChar(Flog));
freeandnil(List1);
// freeandnil(n);
// freeandnil(m);
end;
// end;
end;
end;
end;
end;
end;
end;
end;
end;
end;
end;
end else

15.11.2017 12:48:32: select error_value,warning_value from import_excel_add_line(:SESSION,:TYPE_CLASSIF,:ID_DOCHEAD,:NUMBER,:MASTERFIELD,:BARCODE_SEPARATOR,:PACK_KIND,:ALL_CARDS,:ARTICUL,:BARCODE,:COMMENT,:CUSTOM,:GOOD_DATE,:PACK,:PACKQUANTITY,:PRICECUR,:PRICECUR1,:PRICERUB,:PRICERUB1,:QUANTITY,:RZ,:STR1,:STR2,:STR3,:STR4,:STR5,:TAXHEAD,:COUNTRY,:SUM_RUB,:SUM_CUR,:SUP_MASTERFIELD,:SUP_ID,:SUP_IDENT,:SUP_INN,:FILE_INDEX,:ORDER_COEFF,:ORDER_KRIT_LEVEL,:MANUF_INN,:MANUF_KPP,:VIDPROD_KOD,:CENNIK_ID,:ADDNEWGOODS,:SPERCENT)


15.11.2017 12:48:32: Импорт документов из файлов Microsoft Excel

15.11.2017 12:48:32: Из файла 5-7186771.xls в документ №пр58375829 (41902626)

15.11.2017 12:48:32: Выполнили XLS.Clear

15.11.2017 12:48:32: Выполнили fexe:= TFileStream.Create(ExcelFileName, fmOpenRead or fmShareDenyNone)

15.11.2017 12:48:32: Выполнили xls.LoadFromStream(fexe,true)

15.11.2017 12:48:32: Выполнили fexe.Free

15.11.2017 12:52:04: Выполнили апдейт заголовка

15.11.2017 12:52:46: Документ оприходован

15.11.2017 12:52:52: Документ отправлен на печать

15.11.2017 12:52:52: Из файла 5-7191479.xls в документ №пр58380493 (41914546)

15.11.2017 12:52:52: Выполнили XLS.Clear

15.11.2017 12:52:52: Выполнили fexe:= TFileStream.Create(ExcelFileName, fmOpenRead or fmShareDenyNone)

15.11.2017 12:52:52: Выполнили xls.LoadFromStream(fexe,true)

15.11.2017 12:52:52: Выполнили fexe.Free

15.11.2017 12:52:52: Выполнили апдейт заголовка

15.11.2017 12:52:54: Документ оприходован

15.11.2017 12:53:00: Документ отправлен на печать

Текущий дамп памяти из 256 байт начиная с адреса 6E165BB0:
01 00 00 00 0B 02 00 00 31 34 2E 31 31 2E 32 30 31 37 20 31 36 3A 32 39 3A 34 32 3A 20 73 65 6C
65 63 74 20 65 72 72 6F 72 5F 76 61 6C 75 65 2C 77 61 72 6E 69 6E 67 5F 76 61 6C 75 65 20 66 72
6F 6D 20 69 6D 70 6F 72 74 5F 65 78 63 65 6C 5F 61 64 64 5F 6C 69 6E 65 28 3A 53 45 53 53 49 4F
4E 2C 3A 54 59 50 45 5F 43 4C 41 53 53 49 46 2C 3A 49 44 5F 44 4F 43 48 45 41 44 2C 3A 4E 55 4D
42 45 52 2C 3A 4D 41 53 54 45 52 46 49 45 4C 44 2C 3A 42 41 52 43 4F 44 45 5F 53 45 50 41 52 41
54 4F 52 2C 3A 50 41 43 4B 5F 4B 49 4E 44 2C 3A 41 4C 4C 5F 43 41 52 44 53 2C 3A 41 52 54 49 43
55 4C 2C 3A 42 41 52 43 4F 44 45 2C 3A 43 4F 4D 4D 45 4E 54 2C 3A 43 55 53 54 4F 4D 2C 3A 47 4F
4F 44 5F 44 41 54 45 2C 3A 50 41 43 4B 2C 3A 50 41 43 4B 51 55 41 4E 54 49 54 59 2C 3A 50 52 49
. . . . . . . . 1 4 . 1 1 . 2 0 1 7 1 6 : 2 9 : 4 2 : s e l
e c t e r r o r _ v a l u e , w a r n i n g _ v a l u e f r
o m i m p o r t _ e x c e l _ a d d _ l i n e ( : S E S S I O
N , : T Y P E _ C L A S S I F , : I D _ D O C H E A D , : N U M
B E R , : M A S T E R F I E L D , : B A R C O D E _ S E P A R A
T O R , : P A C K _ K I N D , : A L L _ C A R D S , : A R T I C
U L , : B A R C O D E , : C O M M E N T , : C U S T O M , : G O
O D _ D A T E , : P A C K , : P A C K Q U A N T I T Y , : P R I

--------------------------------2017/11/15 10:28:54--------------------------------
Блок памяти был выделен и не освобожден. Размер: 532

This block was allocated by thread 0x1130, and the stack trace (return addresses) at the time was:
402E70
405279
4052A4
4263BF
426036
425FAA
4F91E8
42AAC7
40514A
75A07C04 [BaseThreadInitThunk]
7793AB8F [Unknown function at RtlInitializeExceptionChain]

Блок в настоящее время используется для объекта класса: AnsiString

Выделенный номер стал: 1964296

Текущий дамп памяти из 256 байт начиная с адреса 6E165E50:
01 00 00 00 0B 02 00 00 31 34 2E 31 31 2E 32 30 31 37 20 31 36 3A 33 30 3A 34 32 3A 20 73 65 6C
65 63 74 20 65 72 72 6F 72 5F 76 61 6C 75 65 2C 77 61 72 6E 69 6E 67 5F 76 61 6C 75 65 20 66 72
6F 6D 20 69 6D 70 6F 72 74 5F 65 78 63 65 6C 5F 61 64 64 5F 6C 69 6E 65 28 3A 53 45 53 53 49 4F
4E 2C 3A 54 59 50 45 5F 43 4C 41 53 53 49 46 2C 3A 49 44 5F 44 4F 43 48 45 41 44 2C 3A 4E 55 4D
42 45 52 2C 3A 4D 41 53 54 45 52 46 49 45 4C 44 2C 3A 42 41 52 43 4F 44 45 5F 53 45 50 41 52 41
54 4F 52 2C 3A 50 41 43 4B 5F 4B 49 4E 44 2C 3A 41 4C 4C 5F 43 41 52 44 53 2C 3A 41 52 54 49 43
55 4C 2C 3A 42 41 52 43 4F 44 45 2C 3A 43 4F 4D 4D 45 4E 54 2C 3A 43 55 53 54 4F 4D 2C 3A 47 4F
4F 44 5F 44 41 54 45 2C 3A 50 41 43 4B 2C 3A 50 41 43 4B 51 55 41 4E 54 49 54 59 2C 3A 50 52 49
. . . . . . . . 1 4 . 1 1 . 2 0 1 7 1 6 : 3 0 : 4 2 : s e l
e c t e r r o r _ v a l u e , w a r n i n g _ v a l u e f r
o m i m p o r t _ e x c e l _ a d d _ l i n e ( : S E S S I O
N , : T Y P E _ C L A S S I F , : I D _ D O C H E A D , : N U M
B E R , : M A S T E R F I E L D , : B A R C O D E _ S E P A R A
T O R , : P A C K _ K I N D , : A L L _ C A R D S , : A R T I C
U L , : B A R C O D E , : C O M M E N T , : C U S T O M , : G O
O D _ D A T E , : P A C K , : P A C K Q U A N T I T Y , : P R I

--------------------------------2017/11/15 10:28:54--------------------------------
Блок памяти был выделен и не освобожден. Размер: 532

This block was allocated by thread 0x1130, and the stack trace (return addresses) at the time was:
402E70
405279
4052A4
4263BF
426036
425FAA
4F91E8
42AAC7
40514A
75A07C04 [BaseThreadInitThunk]
7793AB8F [Unknown function at RtlInitializeExceptionChain]

Блок в настоящее время используется для объекта класса: AnsiString

Выделенный номер стал: 1964298

Текущий дамп памяти из 256 байт начиная с адреса 6E1660F0:
01 00 00 00 0B 02 00 00 31 34 2E 31 31 2E 32 30 31 37 20 31 36 3A 33 31 3A 34 32 3A 20 73 65 6C
65 63 74 20 65 72 72 6F 72 5F 76 61 6C 75 65 2C 77 61 72 6E 69 6E 67 5F 76 61 6C 75 65 20 66 72
6F 6D 20 69 6D 70 6F 72 74 5F 65 78 63 65 6C 5F 61 64 64 5F 6C 69 6E 65 28 3A 53 45 53 53 49 4F
4E 2C 3A 54 59 50 45 5F 43 4C 41 53 53 49 46 2C 3A 49 44 5F 44 4F 43 48 45 41 44 2C 3A 4E 55 4D
42 45 52 2C 3A 4D 41 53 54 45 52 46 49 45 4C 44 2C 3A 42 41 52 43 4F 44 45 5F 53 45 50 41 52 41
54 4F 52 2C 3A 50 41 43 4B 5F 4B 49 4E 44 2C 3A 41 4C 4C 5F 43 41 52 44 53 2C 3A 41 52 54 49 43
55 4C 2C 3A 42 41 52 43 4F 44 45 2C 3A 43 4F 4D 4D 45 4E 54 2C 3A 43 55 53 54 4F 4D 2C 3A 47 4F
4F 44 5F 44 41 54 45 2C 3A 50 41 43 4B 2C 3A 50 41 43 4B 51 55 41 4E 54 49 54 59 2C 3A 50 52 49
. . . . . . . . 1 4 . 1 1 . 2 0 1 7 1 6 : 3 1 : 4 2 : s e l
e c t e r r o r _ v a l u e , w a r n i n g _ v a l u e f r
o m i m p o r t _ e x c e l _ a d d _ l i n e ( : S E S S I O
N , : T Y P E _ C L A S S I F , : I D _ D O C H E A D , : N U M
B E R , : M A S T E R F I E L D , : B A R C O D E _ S E P A R A
T O R , : P A C K _ K I N D , : A L L _ C A R D S , : A R T I C
U L , : B A R C O D E , : C O M M E N T , : C U S T O M , : G O
O D _ D A T E , : P A C K , : P A C K Q U A N T I T Y , : P R I

--------------------------------2017/11/15 10:28:54--------------------------------
Блок памяти был выделен и не освобожден. Размер: 532

This block was allocated by thread 0x1130, and the stack trace (return addresses) at the time was:
402E70
405279
4052A4
4263BF
426036
425FAA
4F91E8
42AAC7
40514A
75A07C04 [BaseThreadInitThunk]
7793AB8F [Unknown function at RtlInitializeExceptionChain]

Блок в настоящее время используется для объекта класса: AnsiString

Выделенный номер стал: 1964300