функция в dll

← →
Andrew2 (2002-10-28 11:04) [0]

Скомпилил в свою dll функцию раскодировки base64 :

function DecBase64(b64:string):PChar; stdcall;
var text:PChar;
begin
try
text:=PChar(IdDecoderMIME1.DecodeString(b64));
except
ShowMessage("Cannot decode string");
end;
Result := text;
end;

и ничего не получаю :(
а на форме в программе всё получалось...
подскажите, чего не так ?

← →
NUU © (2002-10-28 11:42) [1]

Тут скорее всего надо через глобальную переменную попробовать. типа, при условии что IdDecoderMIME1.DecodeString(b64) возращает не пустую строку:
var s:string; function DecBase64(b64:string):PChar; stdcall; begin try s:=IdDecoderMIME1.DecodeString(b64); except ShowMessage("Cannot decode string"); end; Result := PChar(s); end;

← →
Andrew2 (2002-10-28 12:39) [2]

IdDecoderMIME1.DecodeString(b64)возвращает пустую строку :(
Была мысль, что нужно сначала создавать эту компоненту

var IdDecoderMIME1:TIdDecoderMIME;
begin
IdDecoderMIME1:=TIdDecoderMIME.Create(Application);
..
IdDecoderMIME1.Free;

но у меня компилятор ругается :
"Undeclarated Identifier "Application""

← →
NUU © (2002-10-28 12:45) [3]

Ну так предай nil вместо Application. Ты все равно сам компонент уничтожаешь

← →
Andrew2 (2002-10-28 12:59) [4]

Заработало !!!
большое сенкйу!

функция в dll Найти похожие ветки