Ver Mensaje Individual
  #4  
Antiguo 25-02-2010
Avatar de Red_Leon
Red_Leon Red_Leon is offline
Miembro
 
Registrado: oct 2007
Ubicación: Castilla la Mancha
Posts: 27
Reputación: 0
Red_Leon Va por buen camino
Prueba esto y nos cuentas

Código Delphi [-]
var
  cadena:String;
  stream:TMemoryStream;
  valor,i: Integer;
begin
  {Inicializacion de variables}
  stream:=TMemoryStream.Create;
  cadena:= {Tu forma de obtener la cadena}
  i:=1;
  while i <= length(stringHex) do
  begin
    valor:=Ord(cadena[i]);
    {Se escribe el valor del caracter ya que es una cadena de Bytes en vez de de caracteres realmente};
    stream.Write(valor,1);
    Inc(i);
  end;
  stream.Position:=0;
  {Carga este Stream en tu componente}

Yo tengo imagenes en un xml y de cadena las paso a TImagen y este codigo me funciona perfectamente.

Última edición por Red_Leon fecha: 25-02-2010 a las 16:18:53.
Responder Con Cita