ПРИВЕТ ВСЕМ.....
У меня в буфере находится некая информация
причем строчного формата т.е. для вывода на экран 
не типа String
-----------------------------
далее узнается размер инициализируется массив на данный размер
далле выделяется память VirtualAlloc и формируются строки типа Stringв ручную
-----------------------------
прописывается адресс строки в массиве И.....
-----------------------------
все какбы прекрасно строки выводятся все хорошо, но при
выходе из функции динамич массив освобождается тут и начинается
проблема
-----------------------------
МНЕ конечно понятно что в строках (массива) указаны адреса на мою выделенную память,
но собственно какая разница память и память
-----------------------------
| Код |
.................
.................
.................
SetLength(Result.aLP,c); //инициализация массива
i := 0;
ii := 0;
{еужно посчитать весь размер подстроки 4 байта под хранения рамера + сама строка
т.е. 4 + [0] }
lenbuff := 4 * cfild * c;
asm
mov esi,addr
add esi,$0b
end;
while i <> c do //------------begin while RECORD
begin
while ii <> cfild do
begin //------------begin while FIELDS
asm
xor ebx,ebx //
mov bl,byte ptr[esi]; //
add lenbuff,bx //
add esi,ebx //
add esi,2 //
end;
inc (ii);
end; //------END WHILE FIELDS
ii := 0;
inc(i);
end; //------END WHILE RECORD
//------------------------------------------------------------------------------
asm
push PAGE_READWRITE //тип доступа
push MEM_COMMIT //способ получения
movzx eax,lenbuff //
push eax //его размер
push 0 //указатель на базовый адрес
call VirtualAlloc //
cmp eax,0 //
je _error //
mov buffstring,eax //адресс буфера
//~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
mov esi,addr //
add esi,$0b //
mov edi,buffstring //
movzx ecx,byte ptr [esi] //
mov [edi],ecx
add esi,1 //
add edi,4 //
rep movsb //пересылаем саму строку
end;
Result.aLP[0].Name := '@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@';
d := @Result.aLP[0].Name;
asm
mov edi,buffstring
mov esi,d
add edi,4
mov [esi],edi
end;
//------------------------------------------------------------------------------
MessageBoxA (HandleProcess,PAnsiChar(Result.aLP[0].Name),'HELLO',0);
_error:
MessageBoxA (HandleProcess,'выделить память под строки не удалось','error',0);
_ok:
// TODO 2 -oILYA -cВпроцед : ПОлучаем данные из файла дописать
asm
push MEM_DECOMMIT
push 0
mov eax,buffstring
push eax
call VirtualFree
end;
end;
|
|