Delphi y Sockets

[jmariano]

Empezado por david duarte

mira, en mi programa servidor, primero me pidio un nombre de clase y le puse "soquete", posteriormente puse un DataSetProvider(no se si tenga que ser ese) y una tabla, y los ligue y ya, no se si tenga que poner un serversocket o que?, en todos los ejemplos que he visto, dicen que pongas las tablas y el Provider y ya.

No seas malo, hechame la mano, me urge, o dime cual o en donde esta mi "h"error, Muchas gracias

Cómo te sientes hoy?

En el servidor tendrías que tener un módulo de datos remoto (TRemoteDataModule) con los componentes de acceso a datos (que dependerán de la tecnología que uses para conectarte a la base de datos: BDE, Interbase, dbExpress o ADO) y tantos componentes TDataSetProvider como DataSets tengas en el módulo (por supuesto, cada TDataSetProvider ha de estar enganchado a su correspondiente DataSet).

Una vez creado el servidor, ejecútalo para que el módulo de datos remoto (que, a fin de cuentas, se trata de un objeto COM) se registre en el registro de Windows (tambien se pueden crear estos modulos en .DLL)


En el lado del cliente (antes asegúrate de tener corriendo el Borland Server Socket en el servidor) añade un módulo de datos con un componente TSocketConnection, tantos ClientDataSet como DataSets hubieran en el servidor y, lo mismo, para el componente DataSource.

Por último, configura el componente SocketConnection para que se enganche al servidor (propiedad 'Address' o 'Host', si el servidor se encuentra en la misma máquina que el Cliente, entonces, puede especificar "localhost" en la propiedad 'Host') y al módulo de datos remoto (propiedad 'ServerName', al desplegar la propiedad te aparecerán todos los módulos de datos remotos registrados en Windows). Después, configura el ClientDataSet para que se enganche al SocketConnection (propiedad 'RemoteServer') y a un DataSet del servidor (propiedad 'ProviderName'). Eso es todo!

Saludos!

[david duarte]

OK. Muchas Gracias

Lo voy a implementar, y te digo como me fue.

Saludos!!!!!

Cómo te sientes hoy?

[david duarte]

mensaje de error

Invalid action received: 18

este error me sale cuando le doy clic para que me aparezca el nombre del servidor(Server Name).

Te comento ahora yo:

al añadir el modulo de datos remotos, a la CoClassName le puse soquete, Instancia Multiple instance, Threading Model Apartment.

tengo el servidor remoto, ahi añadi 2 tablas y dos TDatasetproviders (uno para cada tabla), DataSet1->tabla 1, Dataset2 - > tabla2. Activo las tablas. y ejecuto el servidor

En el lado del cliente, cree un nuevo proyecto, le añadi un datamodule, 2 clientdataset y un socketconnection.

Pero al momento que le doy clic en el ServerName, me sale ese error, habra algun problema???

Gracias.

Cómo te sientes hoy??

[jmariano]

En principio, parece que lo hiciste todo de forma correcta. Lo único que se me ocurre decirte es que, antes de que el Cliente conecte, te asegures de que el Borland Socket Server esté corriendo, y otra cosa: ¿Puedes poner a "True" la propiedad 'Connected' del SocketConnection?

[david duarte]

Hola!!!

No pude checar mi proyecto el fin de semana, pero aqui te pongo la respuesta.

No, no puedo, me marca lo siguiente:

Cannot Connect, socket1connection1 must contain a valis ServerName or ServerGUID.

Si le doy clic en ServerName me aparece el error 18, y si le pongo un nombre en ServerGUID me sale el siguiente error "Cadena clase no valida".

No entiendo porque, no me sale automaticamente el nombre del servidor, Tendre que registrarlo en el registro de win para que lo reconozca o que tendre que hacer??

Gracias.

Cómo te sientes hoy?

[jmariano]

He estado leyendo sobre este error en los grupos de noticia de Borland y comentarte que el problema puede deberse a dos motivos:

- Versión icorrecta del scktsrvr. Tienes que ejecutar la misma versión que viene con la versión de Delphi que estés utilizando para desarrollar tu aplicación (en tu caso, la v5).

- O que no tengas bien configurada tu tarjeta de red. Es necesario configurar una IP estática.

Así que comprueba ambos casos porque, la verdad, es que nunca me pasó y no se que mas decirte...

Saludos!

[david duarte]

ok, Muchas gracias.

ya me pude conectar y fue por lo que me dijiste, baje el socketserver de la pagina de borland y por lo que veo esa version es la mas nueva y yo estoy trabajando con delphi 5, corri el que viene con esa version y tadaaaa!!!! como magia me aparecio el nombre del servidor y la propiedad coneccted esta en true, ahora voy a hacer las pruebas de mandar alguna cosa al servidor.

Muchas gracias, no sabes como te lo agradezco.

Y en caso de que tengo alguna otra duda, espero que me puedas ayudar...
Thanx