Форум: "Основная";
Текущий архив: 2003.10.06;
Скачать: [xml.tar.bz2];
ВнизКак можно перекодировать текст из кодировки base64 в Win? Найти похожие ветки
← →
Raptorus (2003-09-25 16:06) [0]Нужен алгоритм(компонент,процедура) производящая конвертацию String из кодировки base64 в Win(Windows 1251).
Заранее благодарен!!!
← →
HolACost! (2003-09-25 16:10) [1]Ну типа Indy Компоненты смотрел?
← →
Verg (2003-09-25 16:13) [2]Ну если в D5 нету где-нить готовенькой, то:
const
TableBase64 =
"ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789+/=";
function Decode4to3(const Value, Table: string): string;
var
x, y, n: Integer;
d: array[0..3] of Byte;
begin
Result := "";
x := 1;
while x < Length(Value) do
begin
for n := 0 to 3 do
begin
if x > Length(Value) then
d[n] := 64
else
begin
y := Pos(Value[x], Table);
if y < 1 then
y := 65;
d[n] := y - 1;
end;
Inc(x);
end;
Result := Result + Char((D[0] and $3F) shl 2 + (D[1] and $30) shr 4);
if d[2] <> 64 then
begin
Result := Result + Char((D[1] and $0F) shl 4 + (D[2] and $3C) shr 2);
if d[3] <> 64 then
Result := Result + Char((D[2] and $03) shl 6 + (D[3] and $3F));
end;
end;
end;
function DecodeBase64(const Value: string): string;
begin
Result := Decode4to3(Value, TableBase64);
end;
← →
Raptorus (2003-09-25 16:28) [3]Спасибо за код, а насчет Indy компонентов, я смотрел но не разобрался как ими пользоваться, если не трудно то напишите пожалуйста.
← →
Ketmar (2003-09-25 16:56) [4]а что, хэлпы почитать -- ломы?
← →
Amoeba (2003-09-25 18:17) [5]Библиотека QStrings поможет. Найдешь по поискувику или на Torry
← →
REA (2003-09-25 22:32) [6]В D7 вроде было
← →
Anatoly Podgoretsky (2003-09-26 07:49) [7]Raptorus (25.09.03 16:06)
Не всегда это возможно
← →
Verg (2003-09-26 08:58) [8]
> Anatoly Podgoretsky © (26.09.03 07:49) [7]
> Raptorus (25.09.03 16:06)
> Не всегда это возможно
Например?
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2003.10.06;
Скачать: [xml.tar.bz2];
Память: 0.46 MB
Время: 0.009 c