Cita:
Empezado por dec
Gracias escafandra. Te juro que no sé cómo hacer lo que me sugieres. Otrosí recordemos que yo recibo variables del tipo PChar y no de tipo String. No sé si esto implica algo.
|
Si conviertes un String a un PCHAR se te trunca la cadena en el primer carácter #0, por eso debes usar un buffer y no un cast:
Ejemplo con PBYTE, pero puedes usar un Pointer...
Código Delphi
[-]procedute PasaBuffer(buffer: PBYTE; Size: integer);
.....
PasaBuffer(PBYTE(@MyString[1]), Length(MyString));
Cita:
Empezado por dec
Por lo demás, si os cuento lo que acabo de hacer no lo creéis. Como he dicho arriba, otra de mis DLL permite al usuario codificar y decodificar en "base 64". Ahora bien, esta DLL usa los componentes Indy para llevarlo a cabo.
Pues bien, he probado a codificar un archivo de texto en "base 64" con una de estas acciones, es decir, enviar al programa "madre" la cadena codificada (no cifrada) en "base 64", y, ¿y qué diréis que ha pasado? Exacto: no puedo enviar más de 60.000 caracteres exactos.
O sea, suponiendo que algún usuario de dicha DLL quisiera codificar más de 60.000 caracteres se encontraría con el problema de no poder hacerlo... por si tenía poco con un problema, ahora acaso tengo dos. ¡Toma ya!
¿Pero qué demonios significa esta limitación de 60.000 caracteres? ¿Por qué, exactamente, 60.000 caracteres? ¿Cómo es que dicha limitación existe si se usa Indy como si se usa la unidad que he enlazado más arriba?
|
Has probado a usar la API de Windows:
CryptBinaryToString y
CryptStringToBinary
Ejemplo:
Código Delphi
[-]
function Base64Encode(S: String): String;
var
Size: DWORD;
begin
if CryptBinaryToString(@S[1], Length(S), CRYPT_STRING_BASE64 ,nil, Size) then
begin
SetLength(Result, Size-1);
if not CryptBinaryToString(@S[1], Length(S), CRYPT_STRING_BASE64, PChar(Result), Size) then
Result:= EmptyStr;
end;
end;
Saludos.