Ver Mensaje Individual
  #1  
Antiguo 19-02-2010
Avatar de Gimli
Gimli Gimli is offline
Miembro
 
Registrado: may 2008
Ubicación: Castilla La Mancha
Posts: 40
Reputación: 0
Gimli Va por buen camino
Arrow String To TMemoryStream

Necesito pasar un String que contiene una imagen de una firma digitalizada a un TmemoryStream para poder cargarlo dentro de una imagen

El codigo que tengo es el siguiente y no funciona...

Código Delphi [-]
 
 corriente := TMemoryStream.Create;
 corriente.SetSize(length(firma));

//aqui he probado estas cuatro cosas, y ninguna funciona 
(solo una cada vez, claro esta...)
 corriente.write(PChar(FIRMA)^, length(FIRMA));
 corriente.read(PChar(FIRMA)^, length(FIRMA));
 corriente.write(FIRMA[1], length(FIRMA));
 corriente.read(FIRMA[1], length(FIRMA));
  
 corriente.Seek(0, soFromBeginning);

 imagen.Bitmap.LoadFromStream(corriente); // no carga nada
 imagen.Bitmap.SaveToFile('temp.jpg'); // crea un archivo de 1kb con un puntito

¿Que tengo mal?, ¿como es el modo correcto de hacerlo?
Responder Con Cita