Ver Mensaje Individual
  #6  
Antiguo 14-03-2014
Avatar de jscubillos5
jscubillos5 jscubillos5 is offline
Miembro
NULL
 
Registrado: jul 2013
Ubicación: Bogotá
Posts: 44
Reputación: 0
jscubillos5 Va por buen camino
Talking

Hola comunidad ya encontré la solución a mi problema, tuve que crear una función adicional que pasa de texto a imagen, esta función me retorna un TStream:

Código Delphi [-]
function TForm1.DeTextoaCorriente(Texto: String): TStream;
begin
  try
    // Se le asigna a la variable result el valor del texto ingresado, llamando al TString.Create.
    Result:= TStringStream.Create(Texto);
  except
    on E: Exception do
    begin
      // En caso de error
      raise Exception.Create(e.Message);
    end;
  end;
end;

Ya en la imagen en el boton agregue solo estas lineas:

Código Delphi [-]
Corriente:= DeTextoaCorriente(CorrienteEntexto);
        ImageControlUPrincipalTransformada.Bitmap.LoadFromStream(Corriente);
__________________
De ante mano gracias por tomarse el tiempo de leer este Hilo.

-------------------------------
Juan Sebastián Cubillos Gonzalez
Desarrollador de soluciones informáticas.
Bogotá, Colombia.
Encuentra me en: http://www.linkedin.com/pub/juan-seb...lez/66/1b8/150
Responder Con Cita