Ver Mensaje Individual
  #1  
Antiguo 13-10-2015
breadagast breadagast is offline
Miembro
 
Registrado: nov 2006
Posts: 10
Reputación: 0
breadagast Va por buen camino
Stream read error cuando asigno un valor a TTetheringAppProfile.Resources

Tengo este código:

Código:
procedure TService1.AssignResource(var strlist: TStringList; Resource: string);
var stream: TStringStream;
begin
  stream := TStringStream.Create;
  strlist.SaveToStream(stream);
  TetheringAppProfile2.Resources.FindByName(Resource).Value := stream;
end;
Este código funciona perfectamente en Delphi XE8, pero al migrar la aplicación a Delphi X Seatle me lanza el error:

Stream read error

cuando se ejecuta la linea:

Código:
TetheringAppProfile2.Resources.FindByName(Resource).Value := stream;
Por si tiene algo que ver, el código se ejecuta en un servicio de Windows.
Alguna idea??
Responder Con Cita