Ver Mensaje Individual
  #4  
Antiguo 28-09-2007
modulay modulay is offline
Miembro
 
Registrado: feb 2006
Posts: 46
Reputación: 0
modulay Va por buen camino
Gracias amigos.
El volcado directo sobre el string no me funciona...al representar el contenido de dicho string,a veces muestra los valores ascii en hexadecimal,a veces muestra la cadena "true" ,a veces no muestra nada...

El volcado sobre el memo mediante el método LoadfromStream anda perfecto,asi que dado que necesitaba impepinablemente la trama en un string he volcado primero sobre el memo y después he accedido a éste y he copiado su contenido sobre el string.Así anda bien.

Código Delphi [-]

memoaux : TMemo;
clcd1linea1: TRasterlab;

procedure TForm1.procesasysex (const sysexbufferaux: TMemoryStream);
var
           cadena : string;
begin
           sysexbufferaux.Position := 0;
           memoaux.Clear;
           memoaux.Lines.LoadFromStream(sysexbufferaux);
           setlength(cadena,sysexbufferaux.size);
           cadena := Copy(memoaux.Lines.Strings[0],0, sysexbufferaux.size);
           clcd1linea1.Text := cadena;
end;

Saludo
Responder Con Cita