Скачать: CL | DM;

функция в 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]

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

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.01 c