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

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

Доброго времени суток!

Накопал информации по поводу этого.
Понял 2 вещи:
1. для передачи строк из/в dll использовать PChar(ShareMem нужен? Если да, то как без него можно обойтись?)
2. внутри функций exe/dll приводить PChar к строке.

Играюсь на xe2..

Есть такой код:

function InitDLL(aPEFile: PChar): NativeInt; cdecl;
var
 str:string;
begin
  str:=WideCharToString(aPEFile); //Привожу PWideChar к WideString
  if FileExists(str) then
  begin
    sHLPath := ExtractFilePath(str); //Вот тут ацкий бзик Incompatible types: 'PWideChar' and 'string'
    Result := fRESULT_OK;
  end
  else
  begin
    Result := fRESULT_ERROR;
  end;
end;

почему, когда я в ExtractFilePath передаю WideString он орет, что там PWideChar. Ведь я привел PWideChar к WideString, и все это в str переменной.

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

гм, sHLPath было PChar..
Строку внутрь я передаю...

как вернуть её из dll?

function GetHLPath: PChar; cdecl;
var
s:PWideChar;
begin
  Result := fRESULT_ERROR_s;
  if (sHLPath = '') then
    Exit
  else
  begin
    StringToWideChar(sHLPath,s,Length(sHLPath));
    Result :=s;
  end;
end;
возвращает пустоту.

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

думаем почему GetWindowText нуждается в размере буфера и так же применяет strcpy(wcscpy если юникод).

http://programmersforum.ru/showthread.php?t=185064
правда там С++ в ДЛЛ, но надеюсь идея понятна.

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

хоть убейте, не понимаю как правильно привести WideString к PWideChar

function GetHLPath: PChar; cdecl;
var
 Buff:array[0..MAX_PATH] of PChar;
begin
  Result := fRESULT_ERROR_s;
  if (sHLPath = '') then
    Exit
  else
  begin
    StringToWideChar(sHLPath,Buff,Length(Buff));
    Result :=Buff;
  end;
end;

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

у вас не константа, но есть известный лимит, потому можно применить код из поста №9 по ссылке.
далее ошибка в коде, вы память не выделаете под строку в PWideChar.
далее если у вас юникод Делфи то эта функция не нужна, а просто CopyMemory.

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

Воспользовался копированием памяти...

function GetHLPath: PChar; cdecl;
begin
  Result := fRESULT_ERROR_s;
  if (sHLPath = '') then
    Exit
  else
  begin
      CopyMemory(@Result, @sHLPath, Length(sHLPath));
  end;
end;

В этом случае, через WatchList я вижу, что в Result поподает моя строка. Это мне и надо. Но программа вылетает в 0xffffffff т.е. в никуда. Из этого следует, что при копировании куда-то, надо выделить память под это что-то в этом куда-то.

Поступил так:

function GetHLPath: PChar; cdecl;
var
  s: PChar;
begin
  Result := fRESULT_ERROR_s;
  if (sHLPath = '') then
    Exit
  else
  begin
    try
      s := AllocMem(Length(sHLPath));
      CopyMemory(@s, @sHLPath, Length(sHLPath));
      Result := s;
    finally
      FreeMem(s);
    end;
  end;
end;

Вылетаю опять в AV при FreeMem. И в результате абро-кодабро.

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

ну так вы освободили память, и указатель перестал указывать на корректные данные.

как вы думаете, почему функция из тему так же как и GetWindowText принимают буфер?
потому что только пользователь(функции) ответственнен за свой буфер(см код 1), а не программа его навязывает(см код 2).
1)

function GetHLPath(buf:PWideChar):integer;cdecl;//указал строго тип
begin
  Result := 0;
  if (sHLPath = '') then
    Exit
  else
   begin
      CopyMemory(buf, @sHLPath[1], (Length(sHLPath)+1)*SizeOF(WideChar));
      Result:=sHLPath;
   end;
end;

тут же вызывающий сам выделяет память своими методами.
2)

function GetHLPath: PWideChar; cdecl;
var
  s: PChar;
begin
  Result := fRESULT_ERROR_s;
  if (sHLPath = '') then
    Exit
  else
  begin
    try
      Result:= AllocMem((Length(sHLPath)+1)*SizeOf(WideChar));
      CopyMemory(s, @sHLPath[1], (Length(sHLPath)+1)*SizeOF(WideChar));
    finally
    end;
  end;
end;

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

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

Result:= AllocMem((Length(sHLPath)+1)*SizeOf (WideChar));

интересный момент, почему так? разве просто длинны строки мало?

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

1)там количество байт, а WideChar весит 2.
2)а терминальный нуль писать не надо?

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

Понял.

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


DLL

function GetHLPath: PChar; cdecl;
var
  s: PChar;
begin
  Result := fRESULT_ERROR_s;
  if (sHLPath = '') then
    Exit
  else
  begin
    Result := AllocMem((Length(sHLPath) + 1) * SizeOF(WideChar));
    CopyMemory(Result, @sHLPath[1], (Length(sHLPath) + 1) * SizeOF(WideChar));
  end;
end;

Приложение:

procedure TForm1.Button2Click(Sender: TObject);
var
  s: string;
  p:PChar;
begin
  p:=GetHLPath;
  s:=WideCharToString(p); //Финт ушами, чтобы не держать место в куче.. 
  FreeMem(@p);  //EXCEPTION

  if s = fRESULT_ERROR_s then
    Memo1.Lines.Add('Call GetHLPath result = ERROR')
  else
  begin
    Memo1.Lines.Add('Call GetHLPath result = ' + s);
  end;
end;

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

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