Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   Varios (https://www.clubdelphi.com/foros/forumdisplay.php?f=11)
-   -   Serializar un archivo para subirlo a Internet (https://www.clubdelphi.com/foros/showthread.php?t=93475)

Missael 10-10-2018 21:04:15

Serializar un archivo para subirlo a Internet
 
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 10-10-2018 21:52:16

¿Quiéres decir convertirla en code64?

Casimiro Notevi 10-10-2018 21:54:46

Algo así:

Código Delphi [-]
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] 11-10-2018 12:04:41

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, ya que debería tener todo lo que necesitas.


Cita:

Empezado por Missael (Mensaje 528925)
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.


La franja horaria es GMT +2. Ahora son las 16:49:25.

Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi