Base64 encode data: Difference between revisions
Content added Content deleted
No edit summary |
No edit summary |
||
Line 1,479: | Line 1,479: | ||
AAAAEAAAABAAAAAQAAAAEAAAABAAAAAQAAAAEAAAABAAAAAQAAAAEAAAABAAAAAQAAAAE= |
AAAAEAAAABAAAAAQAAAAEAAAABAAAAAQAAAAEAAAABAAAAAQAAAAEAAAABAAAAAQAAAAE= |
||
</pre> |
</pre> |
||
=={{header|M2000 Interpreter}}== |
|||
Using Urlmon.dll, UrlDownloadToFileW() function. |
|||
<syntaxhighlight lang="m2000 interpreter"> |
|||
function global DownLoad$(filename$, drive$){ |
|||
Const BINDF_GETNEWESTVERSION = 0x10& |
|||
if internet then |
|||
If exist(filename$) then Try {dos "del "+quote$(dir$+filename$);} : Wait 200 |
|||
Declare URLDownloadToFile lib "urlmon.URLDownloadToFileW" { |
|||
long pCaller, szUrl$, sxFilename$, long dwReserved, long callback |
|||
} |
|||
if URLDownloadToFile(0,drive$, dir$+filename$,BINDF_GETNEWESTVERSION,0)==0 then |
|||
= "Ok" |
|||
Else |
|||
= "Try Again" |
|||
end if |
|||
else |
|||
= "No Internet, Try Again" |
|||
end if |
|||
} |
|||
iF Download$("rosettacode.ico","https://rosettacode.org/favicon.ico")="Ok" then |
|||
a=buffer("rosettacode.ico") |
|||
R$=string$(Eval$(a) as Encode64,0,0) |
|||
clipboard R$ |
|||
report r$ |
|||
end if |
|||
</syntaxhighlight> |
|||
{{out}} |
|||
<pre> |
|||
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAMAAAAoLQ9TAAAABGdBTUEAALGPC/xh |
|||
BQAAAAFzUkdCAK7OHOkAAAAgY0hSTQAAeiYAAICEAAD6AAAAgOgAAHUwAADqYAAA |
|||
................. |
|||
bnRsb2cvZmF2aWNvbnMvMjAxNS0wOC0wMi8xNDBkYmM4M2RmNWY3NmQyNmIzYWNl |
|||
M2ZlYTViYzI5ZS5pY28ucG5nBect2gAAAABJRU5ErkJggg== |
|||
</pre> |
|||
=={{header|Mathematica}} / {{header|Wolfram Language}}== |
=={{header|Mathematica}} / {{header|Wolfram Language}}== |