Возвращаемое значение типа String

[hCORe]

Вот функция, экспортируемая из DLL на Delphi:

Код: Выделить всё

function dumb(i: byte):PAnsiChar; stdcall;
begin
// Ich liebe Perfokarten!!!
  dumb:=PAnsiChar(chr(i));
end;

Как правильно объявить ее в VB?
Пробовал вот так:

Код: Выделить всё

Public Declare Function dumb Lib "perfokarten.dll" _
(i As Byte) As String

но при вызове VB, естественно, вылетает - передается ему совсем не то, что нужно. Может быть, еще и в функции что-то изменить?

Я много вариантов перепробовал, но все они нерабочие - либо "вылетают" с ошибками, либо выдают чушь на выходе. Кто что посоветует?

[Faust]

А почему бы не возвращать такой родной и long'овый указатель на первый символ строки?

[hCORe]

Эта идея была мной уже опробована. Но - как потом преобразовать указатель на первый символ в строку? А то у меня с этим туго

[Sur]

hCORe

Код: Выделить всё

Public Declare Function lstrlenA Lib "kernel32" (ByVal Ptr As Any) As Long
Public Declare Function lstrcpyA Lib "kernel32" (ByVal RetVal As String, ByVal Ptr As Long) As Long

Public Function GetString(ByVal lpszA As Long) As String
    GetString = String$(lstrlenA(ByVal lpszA), 0)
    Call lstrcpyA(ByVal GetString, ByVal lpszA)
End Function

[GSerg]

Гы гы гы
Нарушено Золотое Правило работы с указателями

Никогда не возвращать из процедуры указатель на локальную переменную!
Память для возвращаемой строки отводить исключительно через new.

Код: Выделить всё

function dumb(i: byte):PAnsiChar; stdcall;
begin
// Ich liebe Perfokarten!!!
  new(result);
  result^:=chr(i);
end;

Код: Выделить всё

Option Explicit

Private Declare Function dumb Lib "C:\Program Files\Borland\Delphi7\Projects\Project1.dll" (ByVal i As Byte) As String

Private Sub Form_Load()
  MsgBox dumb(65)
End Sub

Правда, я не знаю, будет ли в этом случае утечка памяти

[hCORe]

Понял. Спасибо

Появилось несколько вопросов:
result^ вызывает дереференс результата функции? И "result" - это универсальная штука для возвращения результата?

[GSerg]

Ага.
Её удобнее использовать, потому что менять имя функции потом проще

[hCORe]

Странно... Тут возникла еще одна проблема:

Код: Выделить всё

Len(dumb(65)) = 14

Из этих 14 символов только один - нужный. Причем, если вызывать функцию dumb из цикла:

Код: Выделить всё

For i = 0 To 1024
    p = dumb(65)
    Debug.Print i
Next i

то (при выключенном режиме "Optimize" в настройках компилятора Delphi) IDE вылетает при i=718 с ошибкой Access Violation (0xc000005) в модуле kernel32.dll. Скомпилированный exe-шник вылетает тоже. Вас ист дас и как с этим бороться?

[hCORe]

Хммм... Нашел причину сам

Вызов dispose(result) приводит к нормальным результатам (прога не вылетает):

Код: Выделить всё

function dumb(i: byte):PAnsiChar; stdcall;
begin
// Ich liebe Perfokarten!
// Ich trage mein liebes Computer jeden Tag!
  new(result);
  result^:=chr(i);
  dispose(result);
end;

А вот длина строки в 14 символов осталась. Это, конечно, не фатально, но...

[GSerg]

Вообще-то нет
После Dispose память освобождается, и у меня, к примеру, с Dispose вылетает сразу. Может, просто 0 в конец дописать?
А почему надо именно так? Может, по старинке, передавая в библу указатель на буфер?

[hCORe]

Не знаю, почему именно так
Сделал как Sub:

Код: Выделить всё

procedure dumb(i: byte; var s:PAnsiChar); stdcall;
begin
  new(s);
  s^:=chr(i);
end;

Декларация:

Код: Выделить всё

Public Declare Sub dumb Lib "Concept.dll" _
(ByVal i As Byte, s As String)

Вызов:

Код: Выделить всё

For i = 0 To 25500
    fn2033 5, p
    Debug.Print i
Next i

Ошибка в kernel32.dll!
Добавляю dispose(s) перед end; - и ошибки как не бывало!

Решил добавлять символ завершающего нуля:

Код: Выделить всё

procedure dumb(i: byte; var s:PAnsiString); stdcall;
begin
  new(s);
  s^:=(chr(i) + #0);
//  dispose(s);
end;

Длина строки - по-прежнему 14. Прогоняю цикл - ошибка в kernel32.dll. Снимаю комментарий с dispose(s) - все работает "на ура". В чем дело?

[hCORe]

Другая декларация к тому же Sub'у (вариант #1 с dispose из пред. поста):

Код: Выделить всё

Public Declare Sub fn2033 Lib "Concept.dll" _
(ByVal i As Byte, ByVal s As Long)

А этот код:

Код: Выделить всё

fn2033 65, VarPtr(s)
MsgBox s

выдает длину в 7 символов!

[hCORe]

Высказываю предположение: в WinXP по-другому ведется работа с памятью в динамических библиотеках, чем в Win98.

[hCORe]

Ан нет! Скомпилировал я, значит, файл, перенес его на Win98SE на виртуальном PC... И все работает!