Problem sa prevodjenjem c u delphipravim neki programcic (neke delove prevodm sa vec postojeceg programa)...e sad imam problem sa prevodjenjem ove fje....pa ako neko zna....
Code:
function convertToBase64 (a)
{
while (a.length % 3) a = a.concat (0); // make 'a' a multiple of 3
var b64= ".ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789_";
var b = "";
for (var i=0; i < a.length; i += 3) {
var x = (a[i] << 16) | (a[i+1] << 8) | a[i+2];
b += b64.charAt((x >> 18) & 0x3f);
b += b64.charAt((x >> 12) & 0x3f);
b += b64.charAt((x >> 6) & 0x3f);
b += b64.charAt(x & 0x3f);
}
return b;
}
function convertToBase64 (a)
{
while (a.length % 3) a = a.concat (0); // make 'a' a multiple of 3
var b64= ".ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789_";
var b = "";
for (var i=0; i < a.length; i += 3) {
var x = (a[i] << 16) | (a[i+1] << 8) | a[i+2];
b += b64.charAt((x >> 18) & 0x3f);
b += b64.charAt((x >> 12) & 0x3f);
b += b64.charAt((x >> 6) & 0x3f);
b += b64.charAt(x & 0x3f);
}
return b;
}
