Скачать: CL | DM;

Вот такая не задача... Помогите   Найти похожие ветки 

← →
UserL   (2003-01-09 08:32) [0]

Объявил свой тип

type
PAppStructure = ^TAppStructure;
TAppStructure = packed record
ApplicationName: PChar;
ApplicationSize: Integer
GUIDName: PChar;
GUIDSize: Integer;
end;


Надо написать две функции, которые будут экспортированиы из EXE файла на вход которых будет подаваться вот такая структура.
Одна функция должна будет выделить память под PAppStructure, ApplicationName, GUIDName и отдать клиенту уже уже соданную структуру.
А другая функция будет освобождать выделенную память.

Вот функция, которая все это создает

function GetAppDesc(var AppDesc: POICAppStructure): BOOL; stdcall;
const
AppName = "AppName";
AppGuid = "21345-234-5-2345-2345";
var
HL: HLOCAL;
begin
GetMem(AppDesc, SizeOf(TOICAppStructure));

With AppDesc^ Do
Begin
ApplicationSize := Length(AppName);
GetMemory(ApplicationName, ApplicationSize + 1);
ZeroMemory(ApplicationName, ApplicationSize + 1);

GUIDSize := Length(AppGUID);
GetMemory(GUIDName, GUIDSize + 1);
ZeroMemory(GUIDName, GUIDSize + 1);
End;

StrPCopy(AppDesc^.ApplicationName, AppName);
StrPCopy(AppDesc^.GUIDName, AppGuid);

Result := True;
end;


Но затыкаеться на GetMem
Страно, что когда локально вызываю - все работает, а когда из другого exe - затыкаеться?
Что не правильно?

---

← →
Digitman ©   (2003-01-09 09:45) [1]

Почему странно ? Ничего странного.

У разных процессов разные, абсолютно изолированные вирт.адресные пространства, и кучи разные.

Обратиться корректно к экспортируемой ф-ции GetAppDesc() подобным образом ты сможешь ТОЛЬКО из PE-модуля, который загружен в ВАП процесса, экспортирующего эту ф-цию GetAppDesc()

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.017 c