Leer imagen y convertir su contenido a base64

[tatifuentesvasq]

Empezado por AgustinOrtu

Y la ultima variante es utilizando las funciones definidas en la unidad Soap.EncdDecd:

Código Delphi [-]
var
  AMemStream: TMemoryStream;
  AStreamBase64, ADecodedStream: TStringStream;
  ABase64, DecodedBase64: string;
begin
  AMemStream := TMemoryStream.Create;
  AStreamBase64 := TStringStream.Create;
  try
    imLoad.Picture.Bitmap.SaveToStream(AMemStream);
    AMemStream.Position := 0;
    EncodeStream(AMemStream, AStreamBase64);
    AStreamBase64.Position := 0;
    ABase64 := AStreamBase64.DataString;
  finally
    AStreamBase64.Free;
  end;

  DecodedBase64 := DecodeString(ABase64);
  ADecodedStream := TStringStream.Create(DecodedBase64);
  try
    ADecodedStream.Position := 0;
    imBase64.Picture.Bitmap.LoadFromStream(ADecodedStream);
  finally
    ADecodedStream.Free;
  end;

Esta ultima fue la que logro replicar la imagen exactamente a como estaba antes; curioso que los componentes Indy tengan alguna falla

Las pruebas las hice con formato BMP

PODRIAS POR FAVOR EXPLICARME UN POCO, QUE YA ME HICE BOLAS... por lo que entiendo hay decodifican la imagen par volverla un string... (estoy mal?), y yo lo que tengo es un archivo extenso donde tengo que decodificar para convertir a imagen, podrian ayudarme?

[tatifuentesvasq]

PODRIAS POR FAVOR EXPLICARME UN POCO, QUE YA ME HICE BOLAS... por lo que entiendo hay decodificas una imagen para replicarla... (estoy mal?), y yo lo que tengo es un archivo extenso .txt que debo decodificar para convertir a imagen, podrian ayudarme?

[Casimiro Noteví]

Empezado por tatifuentesvasq

...

Por favor, lee nuestra guia de estilo, gracias... y bienvenido a clubdelphi

[[escafandra]]

Empezado por tatifuentesvasq

PODRIAS POR FAVOR EXPLICARME UN POCO, QUE YA ME HICE BOLAS... por lo que entiendo hay decodificas una imagen para replicarla... (estoy mal?), y yo lo que tengo es un archivo extenso .txt que debo decodificar para convertir a imagen, podrian ayudarme?

Si tu archivo txt es encode64, puedes usar la función StrB64ToStream descrita en la respuesta 8


Saludos.