Корректная работа с памятью.

← →
pargo © (2006-05-05 11:31) [0]

Корректен ли следующий код, если нет, то в чем ошибка ?

library TestDLL;

uses
SysUtils,
Windows;

procedure DLL_FreeMem(var pData:pByte); export; stdcall;
begin
ReallocMem(pData,0);
end;

procedure TestProc(var pData:pByte; var cbData:DWord); export; stdcall;
begin
cbData:=cbData+1024;
ReallocMem(pData,cbData);
end;

exports
DLL_FreeMem name "DLL_FreeMem",
TestProc name "TestProc;
begin
end.

В проекте:

procedure TestMem(var pData:pByte; var cbData:DWord);
begin
ReallocMem(pData,cbData);
TestProc(pData,cbData);
DLL_FreeMem(pData);
end;

← →
Сергей М. © (2006-05-05 11:37) [1]

> Корректен ли следующий код

Некорректен.

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

← →
evvcom © (2006-05-05 11:51) [2]

Даже для Дельфи-приложений мы имеем 2-х разных менеджеров. Один память выделяет, а другой, ничего об этом не зная, пытается ее перевыделить, а потом убить.

← →
Сергей М. © (2006-05-05 11:54) [3]

> evvcom © (05.05.06 11:51) [2]

Угу. В частном случае.

← →
pargo © (2006-05-05 12:02) [4]

Подскажите, как сделать правильно ?

← →
TUser © (2006-05-05 12:07) [5]

А что ты хочешь сделать?

← →
pargo © (2006-05-05 12:51) [6]

Передать данные в DLL. Там обработать их ( при этом размер данных
меняется ) и вернуть обработанные данные в проект.

← →
Сергей М. © (2006-05-05 13:03) [7]

> pargo © (05.05.06 12:51) [6]

stdcall с какой целью тобой указан ? От балды ?

← →
pargo © (2006-05-05 13:07) [8]

Сергей М. © (05.05.06 13:03) [7]
Просто указываю для всех экспортируемых функций, независимо
от количества параметров.

← →
balepa © (2006-05-05 13:10) [9]

> pargo © (05.05.06 13:07) [8]
> Просто указываю для всех экспортируемых функций, независимо
> от количества параметров.

Значит от балды

← →
Сергей М. © (2006-05-05 13:15) [10]

Да, задуматься не мешает, о чем здесь говорилось. Но главная ошибка заключается в том, что память освобождать (перевыделять) надо там (в том модуле), где она запрашивалась.

Спасибо

Так будет корректно ?
library TestDLL;

uses
SysUtils,
Windows;

procedure DLL_ReallocMem(var pData:pByte;Size:DWord); export; stdcall;
begin
ReallocMem(pData,Size);
end;

procedure TestProc(var pData:pByte; var cbData:DWord); export; stdcall;
begin
cbData:=cbData+1024;
ReallocMem(pData,cbData);
end;

exports
DLL_ReallocMem name "DLL_ReallocMem",
TestProc name "TestProc;
begin
end.

В проекте:

procedure TestMem(var pData:pByte; var cbData:DWord);
begin
DLL_ReallocMem(pData,cbData);
TestProc(pData,cbData);
DLL_ReallocMem(pData,0);
end;

Корректная работа с памятью. Найти похожие ветки