Ver Mensaje Individual
  #3  
Antiguo 10-02-2016
Avatar de AgustinOrtu
[AgustinOrtu] AgustinOrtu is offline
Miembro Premium
 
Registrado: Aug 2013
Ubicación: Argentina
Posts: 1.858
Reputación: 10
AgustinOrtu Es un diamante en brutoAgustinOrtu Es un diamante en brutoAgustinOrtu Es un diamante en brutoAgustinOrtu Es un diamante en bruto
Esta es otra forma similar a la anterior, pero usando metodos estaticos (de clase)

Código Delphi [-]
procedure TForm2.btnToBase64Click(Sender: TObject);
var
  AStringStream: TStringStream;
  ABase64, DecodedBase64: string;
begin
  AStringStream := TStringStream.Create;
  try
    imLoad.Picture.Graphic.SaveToStream(AStringStream);
    AStringStream.Position := 0;
    ABase64 := TIdEncoderMIME.EncodeString(AStringStream.DataString);
  finally
    AStringStream.Free;
  end;

  DecodedBase64 := TIdDecoderMIME.DecodeString(ABase64);
  AStringStream := TStringStream.Create(DecodedBase64);
  try
    AStringStream.Position := 0;
    imBase64.Picture.Bitmap.LoadFromStream(AStringStream);
  finally
    AStringStream.Free;
  end;
end;
Responder Con Cita