Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2002.11.07;
Скачать: 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 вся ветка

Текущий архив: 2002.11.07;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.016 c
1-21629
Дмитрий К.К.
2002-10-26 14:48
2002.11.07
В чем разница...


14-21771
AL2002
2002-10-18 13:04
2002.11.07
Дёргается веко


1-21632
Spiteful MAx
2002-10-26 17:41
2002.11.07
Шифрование данных в реестре


3-21448
Kurt
2002-10-21 11:55
2002.11.07
Подскажите, как в QuickReport-е организовать печать двух групп, о


3-21406
BoxTer
2002-10-16 20:33
2002.11.07
Знатокам FastReport