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??