Вот такая не задача... Помогите [D6, Win95/98, Win2k]
UserL © (2003-01-09 08:32:00)
Объявил свой тип
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:00) [1]
Почему странно ? Ничего странного.
У разных процессов разные, абсолютно изолированные
вирт.адресные пространства, и кучи разные.
Обратиться корректно к экспортируемой ф-ции GetAppDesc()
подобным образом ты сможешь ТОЛЬКО из PE-модуля, который загружен в
ВАП процесса, экспортирующего эту ф-цию GetAppDesc()
Наверх 
ЧАТ |
Орешник |
|
