Serializar un archivo para subirlo a Internet

[Missael]

Hola que tal

Quiero pedirles ayuda en cuestion de seriarlizar archivos en base64 para poder mandarlos en un POST, eh checado en otros foros pero no me funcionó nada de lo que investigué. soy nuevo en este tema de serializar archivos.

[Casimiro Notevi]

¿Quiéres decir convertirla en code64?

[Casimiro Notevi]

Algo así:

function EncodeFile(const FileName: string): AnsiString;
var
stream: TMemoryStream;
begin
stream := TMemoryStream.Create;
try
stream.LoadFromFile(Filename);
result := EncodeBase64(stream.Memory, stream.Size);
finally
stream.Free;
end;
end;

[Neftali [Germán.Estévez]]

No comentas la versión de Delphi que estás utilizando, pero las ultimas ya disponen de métodos para codificar.
Revisa la unit System.NetEncoding (http://docwiki.embarcadero.com/Libraries/Seattle/en/System.NetEncoding), ya que debería tener todo lo que necesitas.


pero no me funcionó nada
Estaría también que comentaras porqué no te ha funcionado y el código que utilizas, ya que con sólo eso no podemos saber si es problema del código que estás utilizando o de cómo lo estás utilizando.