[Specialistvlad]

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

Есть библиотека dl, имеется к ней header.

Код:

1 2 3 4

int __stdcall SomeFunction(     const int hFile,     const char* varName,     char* varLabel);

Код:

1	function SomeFunction(hFile: Integer; varName: PAnsiChar; var varLabel: PAnsiChar): Integer; stdcall;

Функция сама память не выделяет, в мануале написано выделять вручную 121 байт.

Код:

1 2 3 4 5 6 7 8 9 10 11 12

... var Arr: Array [0..121] of AnsiChar; MyPointer: PAnsiChar; ...   Arr := ''; //clear array //У гансмокера прочитал, что это корректная запись, там есть пример таких же действий MyPointer := Arr; //assign pointer to static array   SomeFunction(FileH, VarName, MyPointer)); Write(Format('|%s|,|%s|', [VarName, Arr]));

В результате у меня строка получается обрезанная спереди неизвестно на сколько байт, но обрезанная это точно. Что не правильно делаю?

[Alegun]

Похоже не хватает функциональной пары GetMem...FreeMem или может нужно передавать указатель^ на переменную с последующей SetLength, а может просто сменить её тип на pchar...

Вот пример на основе считывания инфы из файла

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15

... var  fpdt: file of byte;  sm: integer;  text: pchar;  fd: string; ...   ... GetMem(text, sm); BlockRead(fpdt, text^, sm); fd:= string(text); SetLength(fd, sm); FreeMem(text); ...

[NumLock]

Код:

1 2 3 4 5 6 7 8

procedure TForm1.FormCreate(Sender: TObject); var   Arr: Array [0..121] of AnsiChar;   MyPointer: PAnsiChar; begin   MyPointer:=@Arr[1];   SomeFunction(0, PAnsiChar('qq'), MyPointer); end;

[Specialistvlad]

Код:

1 2 3 4 5 6 7 8

procedure TForm1.FormCreate(Sender: TObject); var   Arr: Array [0..121] of AnsiChar;   MyPointer: PAnsiChar; begin   MyPointer:=@Arr[1];   SomeFunction(0, PAnsiChar('qq'), MyPointer); end;

Работает идентично моему коду.

Потом я переключился в WIN32 и теперь все время Access violation, а под 64 бит пол строки читает
DLL соответственно у меня есть x86 и x64
Что-то не то с памятью.

Код:

1 2 3 4 5 6 7 8

function SomeFunction(hFile: Integer; varName: PAnsiChar; var varLabel: Pointer): Integer; stdcall;   var   VarLabel: Pointer;   GetMem(MyPointer, 120); SomeFunction(0, PAnsiChar('qq'), MyPointer);// на этой строке нормально FreeMem(VarLabel, 120); // на этой падает

Такое впечатление, что функция портит память. При том что другие функции которые выделяют память самостоятельно работают отлично, например вот такая:

Код:

1 2 3 4 5 6 7 8 9 10 11 12

SPSSDIO_API int __stdcall spssGetVarNames(     const int hFile,     int* numVars,     char* * * varNames,     int* * varTypes);   function spssGetVarNames(hFile: Integer; var numVars: Integer;   var varNames: PPAnsiChar; var varTypes: PInteger): Integer; stdcall;   var VarNames: PPAnsiChar; spssGetVarNames(FileH, VariableCount, VarNames, VarArray);

У кого есть какие мысли?

[Specialistvlad]

Всем спасибо. Решение оказалось таким простым, что я его не заметил сразу.

Delphi самостоятельно передает указатель вместо значения если в параметре функции указано ключевое слово var. По этому если памятью нужно управлять самостоятельно то передаем нулевой элемент массива.

Код:

1 2 3 4 5 6

procedure TForm1.FormCreate(Sender: TObject); var   Arr: Array [0..121] of AnsiChar; begin   SomeFunction(0, PAnsiChar('qq'), Arr[0]); //Не опечатка, нулевой элемент end;

Функция импортирована так

Код:

1 2 3 4 5 6

int __stdcall SomeFunction(     const int hFile,     const char* varName,     char* varLabel);   function SomeFunction(hFile: Integer; varName: PAnsiChar; var varLabel:AnsiChar): Integer; stdcall;

[icWasya]

>Функция

Код:

1 2 3 4

int __stdcall SomeFunction(     const int hFile,     const char* varName,     char* varLabel);

импортирована так

Код:

1	function SomeFunction(hFile: Integer; varName: PAnsiChar; var varLabel:AnsiChar): Integer; stdcall;

Неправильно. Надо убрать var

Код:

1	function SomeFunction(hFile: Integer; varName: PAnsiChar;  varLabel:AnsiChar): Integer; stdcall;