Главная страница
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.024 c
4-21888
Slava V.
2002-09-27 17:59
2002.11.07
Запущена ли программа?


1-21485
Леший
2002-10-25 20:18
2002.11.07
Как к текущей дате добавить месяц?


1-21474
AL2002
2002-10-25 14:29
2002.11.07
Скопировать RichEdit текст в буфер.


1-21467
RTZ
2002-10-28 13:42
2002.11.07
Блокировка меню в WebBrowse


3-21401
Nick A.
2002-10-18 10:59
2002.11.07
Interbase = как работать с Shadow