Доброго дня господа !

Необходимо из VBA вызвать функцию DLL (Delphi) и вернуть переменную типа String

Имею



Имею код иници.- й вызов



Проблема !!
Переменная B - может быть достаточна велика. а резервировать много памяти не очень хочется
B = String(10000, vbNullChar) 'reserve size B'

Передать PChar по ссылке не имею возможности, декларирование VBA увы не позволяет
Public Declare Sub GetStr Lib "Example.dll" (ByVal A As String, ByRef B As String)

Подскажите можно ли динамически увеличить размерность PChar
begin
tmpStr:=A;
tmpStr:=tmpStr + 'Change value';
Resize(B,Length(tmpStr)+1) ????????????????
StrPLCopy(B,tmpStr, Length(tmpStr));
end;

Или Ваш вариант решение изначальной задачи
Заранее благодарен !

rashid.abzalov,

Испробую, но если нужно вернуть НЕСКОЛЬКО показателей ?

function GetStr(A: WideString; С: PChar; D: PChar): WideString; stdcall;

C и D возвращаются в основное тело

ziv-2014,

не совсем понял - как динамически изменить длину массива
т.е PChar или PAnsiChar

или при использовании PAnsiChar возможно использовать ByRef

Public Declare Sub GetStr Lib "Example.dll" (ByVal A As String, ByRef B As String)

уточните пожалуйста

ziv-2014,

Задача решена

Delphi
( var S: OleVariant )
begin
P:='Big Hello';
S:=OleVariant(P);
end


VBA
declare F1 ................( ByRef V as Variant)
Dim V as Variant,S as String
V=Null
F1(..V...)
S=P

Спасибо