XE2 DLL < = > EXE. Убийственная передача строк.

[Пепел Феникса]

..................

[Пепел Феникса]

......................

[Пепел Феникса]

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

Теперь другая проблема..
FreeMem посылает меня лесом..

а так же смотрим пост №7, пояснение в скобках.

cdecl не самый удобный для соглашения вызова c++ и delphi?

без разницы, главное чтоб одинакого было указано в обьявлении функции и в реализации.

p.s. для использования дельфийской dll в с++, по прежнему нужны танцы с бубном(*.def), при сборке dll в delphi?

LoadLibrary никто не отменял.
а для создания lib не обязательно.

[Человек_Борща]

а так же смотрим пост №7, пояснение в скобках.

В dll не использую sharemem. Да и при передаче PChar, он вроде не нужен.
Но до конца не понял этого:

тут то кто вызовет эту функцию должен будет вызвать FreeMem(причем именно от вашего менагера)

Я должен написать в dll метод:

procedure myFree(aP:Pointer); cdecl;
begin
  FreeMem(aP);
end;

??

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

Опять не понял. FreeMem требует указатель на кусок памяти.

procedure TForm1.Button2Click(Sender: TObject);
var
  s: string;
  p:PChar;
begin
  p:=GetHLPath;
  s:=WideCharToString(p);
  FreeMem(@p);

в S, у меня успешно поподает строка с информацией. программа вылетает на освобождении переменной.

А если я подключу FastMM, это что-нибудь изменит?

[GunSmoker]

А почему-бы просто не использовать WideString?

function InitDLL(aPEFile: WideString): NativeInt; cdecl;
function GetHLPath: WideString; cdecl;

Если же прототипы фиксированные, то приём строки - это просто:

function InitDLL(aPEFile: PChar): NativeInt; cdecl;
var
 str:string;
begin
  str := aPEFile;
  if FileExists(str) then
  begin
    sHLPath := ExtractFilePath(str);
    Result := fRESULT_OK;
  end
  else
  begin
    Result := fRESULT_ERROR;
  end;
end;

Возврат строки - существенно сложнее.

Вот несколько примеров - см. раздел "Ручное выполнение правила".

[Человек_Борща]

GunSmoker,
Я их и использовал изначально. Потом подумал, что с ними нужно использовать и какой-нибудь менеджер памяти. А его надо таскать с собой.

Поэтому решил через PChar.

Но PChar оказались граблями, по этому я перешел на WideString и подключил FastMM.

[GunSmoker]

Для WideString не нужен никакой специальный менеджер памяти. Не имеет значения, что использует программа или DLL - штатный, FastMM, SafeMM, ShareMem - без разницы.

[Человек_Борща]

GunSmoker,
в XE2 тип string приводится к WideString автоматически, или надо явно использовать WideString?

[GunSmoker]

В любой Delphi работа с WideString аналогична работе с String. Одно к другому приводится простым присваиванием.

[Пепел Феникса]

FreeMem требует указатель на кусок памяти.

PChar это уже указатель.