TCustomMemoryStream para MySQL
 

Estoy tratando de utilizar un servidor MySQL en una red local y quiero que un servidor central administre todas las consultas. Uso el componente Direct MySQL, que almacena los resultados en un TMySQLResult. Bien, pues mi problema llega cuando quiero transmitir este archivo al cliente de origen. Mi idea era cargar el TMySQLResult en un TStream, TFileStream o TMemoryStream, para enviarlo via Indy con la funcion SendStream. Alguien me puede decir como cargar la variable TMySQLResult en una variable TStream? Seria más eficaz crear una TCustomMemoryStream que cargue el resultado? Como lo podria hacer?

No discutiré tu método... aunque creo que podrias valerte del mismo delphi, que tiene varias opciones para aplicaciones de multiples capas (Corba, DCom, sockets), y con ClientDataSets.

Para enviar un componente cualquiera por un stream... habrá que ver de que clases hereda.

Si está heredado de TPersistent, ya cuenta con los métodos WriteToStrem/ReadFromStream, con lo que basta que crees un nuevo TMemoryStream y lo escribas en él.

Si no deriva de TPersistent... habria que tratar de entender la estructura (y funcionalidad) del objeto (nunca lo habia oido) para hacer un procedimiento que lo escriba a un stream.

Hasta luego.

;)