Передача "сгоревших" PChar

[Alex Cones]

При экспорте PChar из DLL в EXE использую строку в глобальном хранилище, а при получении вызываю экспортнутую MyDispose.

А вот обратно (из EXE в DLL) такая техника не сработает по причине того, что я не буду иметь возможно просигналить, что функа получена.

Проблема - переделать PChar на String в вызове функции:

{002} Function CreateButton(FormName : PAnsiChar):Integer; OverLoad;

{001} Function DLL_CreateButton(FNum : Integer; FName : PAnsiChar; UseName : LongBool; BName : PAnsiChar) : Integer; StdCall; External 'Gfur.dll' Name 'CreateButton';

Function CreateButton(FormName : PAnsiChar):Integer; OverLoad;
 Begin
  Result := DLL_CreateButton(0, PAnsiChar(FormName), TRUE, '');
 End;

P.S. При передаче DLL -> EXE я сделал так:

{055} Function IntToStr(Int : Integer): String; OverLoad;

{024} Procedure DLL_IntToStr(I : Integer; Width : Integer; Var Res : PAnsiChar); StdCall; External 'Gfur.dll' Name 'IntToStr';

 Function IntToStr(Int : Integer): String; OverLoad;
 Var
  Str : PAnsiChar;
 Begin
  Str := '';
  DLL_IntToStr(Int, 0, Str); //Вертает PChar как параметр
  Result := String(Str);
  DLL_DisposeGlobalResult; //Обнуляет String в DLL
 End;

[GunSmoker]

WideString не устроил?

Function CreateButton(FormName : PAnsiChar):Integer; OverLoad;
 Begin
  Result := DLL_CreateButton(0, PAnsiChar(FormName), TRUE, '');
 End;

Ээээ??? Наверное, должно быть:

Function CreateButton(const FormName : AnsiString):Integer; OverLoad;
begin
  Result := DLL_CreateButton(0, PAnsiChar(FormName), TRUE, '');
end;

Result := String(Str);

Это или неверно, или, как минимум, запутывающе (мне лень смотреть). Корректно:

Result := Str;

P.S.

DLL_DisposeGlobalResult

- нехорошо. Очень. А если в два потока вызовут? А если надо будет вернуть N строк? Надо явно указывать в параметре, что освобождаем.

[Alex Cones]

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

Хорошо, сделаю.

WideString не устроил?

Он не во всех версиях есть.

Это или неверно, или, как минимум, запутывающе

Str - PAnsiChar, result - String.

Function CreateButton(const FormName : AnsiString):Integer; OverLoad;
begin
Result := DLL_CreateButton(0, PAnsiChar(FormName), TRUE, '');
end;

Эм... Я немного не ту функцию привел...
В функции выше я могу таким методом воспользоваться (Кстати, поясните, что даст const), а вот в такой - нет:

Function CreateButton(FormNumber : Integer; ButtonName : PAnsiChar):Integer; OverLoad;
 Begin
  Result := DLL_CreateButton(FormNumber, '', FALSE, PAnsiChar(ButtonName));
 End;

Здесь ButtonName переходит в структуру внутри DLL. Так как ButtonName здесь уйдет, то, по идее и умрет PAnsiChar, который внутри DLL.

[GunSmoker]

Он не во всех версиях есть.

Ээээ...? Это ты про Delphi 1 и Delphi 2? А ты уверен, что они тебе нужны?

Str - PAnsiChar, result - String.

Я вижу. Теперь подумай, что может означать String(Str).

Так как ButtonName здесь уйдет, то, по идее и умрет PAnsiChar, который внутри DLL

Тебе зачем PChar внутри DLL?

Ещё раз повторю правило:

PChar появляется только в момент передачи данных.

До и после - должен быть String.

Иными словами:

function DLL_CreateButton(FNum : Integer; FName : PAnsiChar; UseName : LongBool; BName : PAnsiChar) : Integer; StdCall;
var
  Name, ButtonName: String;
  // ...
begin
  Name := FName;
  ButtonName := BName;

  // ...
end;

Сообщение от Alex Cones

Кстати, поясните, что даст const

http://forum.vingrad.ru/forum/topic-...2107564/0.html

[Alex Cones]

Ээээ...? Это ты про Delphi 1 и Delphi 2? А ты уверен, что они тебе нужны?

И про D7 тоже. Поддержка UNICODE там сделана через одно место.

До и после - должен быть String.

Ясно, будет.
P.S. Я все равно не понимаю, что не так делает String(PCHAR)

НАчал переделывать и получаю AV каждый раз, когда пытаюсь заменить в модуле-связке PAnsiChar на AnsiString:
В DLL заменил все PAnsiChar в структурах на AnsiString. Откомпилировалось и пашет.

Так канает:

CreateForm(FALSE, 'Form1');

Function CreateForm(ShowOnTaskBar : LongBool; FormName : PAnsiChar):Integer; OverLoad;
 Begin
  Result := DLL_CreateForm(ShowOnTaskBar, FormName);
 End;

А так - AV:

CreateForm(FALSE, 'Form1');

Function CreateForm(ShowOnTaskBar : LongBool; FormName : AnsiString):Integer; OverLoad;
 Begin
  Result := DLL_CreateForm(ShowOnTaskBar, PAnsiChar(FormName));
 End;

[GunSmoker]

Сообщение от Alex Cones

Поддержка UNICODE там сделана через одно место.

Например?

Сообщение от Alex Cones

Я все равно не понимаю, что не так делает String(PCHAR)

Оке, пример-аналогия:

type
  TString = record
    Len: Integer;
    Data: array[0..5] of Char;
  end;
  PString = ^TString;

  TCharArray = record
    Data: array[0..5] of Char;
  end;
  PCharArray = ^TCharArray;

var
  PStr: PString;
  PChar: PCharArray;
  Str: TString;
  Char: TCharArray;
begin
  Char := ...;
  PChar := @Char;

  PStr := PString(PChar);

  Str := PStr^; // <- AV, либо мусор
end;

Может быть, String(PChar) и будет работать как ожидалось - вроде как компилятор понял, чего вы хотели. Но это как минимум очень неоднозначно и такой конструкции лучше избегать.

String := PChar; // - вполне нормально.

[GunSmoker]

А так - AV:

Чего в DLL_CreateForm-то написано?

[Alex Cones]

{002} Function DLL_CreateForm(OnTaskbar : LongBool; FName : PAnsiChar): Integer; StdCall; External 'Gfur.dll' Name 'CreateForm';

 Function CreateForm(OnTaskbar : LongBool; FName : PAnsiChar): Integer; StdCall; Export;
 Begin
  SetLength(Warehouse.Form, Length(Warehouse.Form) + 1);
  ...
  Warehouse.Form[Length(Warehouse.Form) - 1].Name := FName;
  ...
  Result := Length(Warehouse.Form) - 1;
 End;

[GunSmoker]

Если .Name - типа String, то проблема с AV не в строках.

[Alex Cones]

Он типа AnsiString, но AV появляется ведь, только когда я изменяю PAnsiChar на AnisCtring. И если я обращаюсь к форме по индексу, а не по имени, то все нормально.

UPD--------------------------------

Вот не поверите, по СВОЕЙ же фразе выше, понял, где ошибка.

 Function GetFormNumber(FName : PAnsiChar): Integer; StdCall; Export;
 Var
  I : Integer;
 Begin
  Result := VALUE_NOT_EXISTS;
  For I := 0 To Length(Warehouse.Form) - 1 Do
   If Warehouse.Form[I].Name = FName Then Result := I;
 End;

А надо:

 Function GetFormNumber(FName : PAnsiChar): Integer; StdCall; Export;
 Var
  I : Integer;
 Begin
  Result := VALUE_NOT_EXISTS;
  For I := 0 To Length(Warehouse.Form) - 1 Do
   If Warehouse.Form[I].Name = AnsiString(FName) Then Result := I;
 End;

Иначе идет сравнение адресов двух указателей. Вот и обращались по несуществующему индексу.