Club Delphi  
    Paypal   FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Otros entornos y lenguajes > C++ Builder
Registrarse FAQ Miembros Calendario Guía de estilo Buscar Temas de Hoy Marcar Foros Como Leídos

Respuesta
 
Herramientas Buscar en Tema Desplegado
  #1  
Antiguo 02-10-2015
Avatar de aguml
aguml aguml is offline
Miembro
 
Registrado: may 2013
Posts: 885
Poder: 14
aguml Va por buen camino
1 byte para cada cosa? A lo mejor para tu caso te vale pero en el mundo real por ejemplo no podrías pasar una cadena mayor que 255 bytes porque la variable que indica la longitud no da para más. Yo usaría enteros sin signo para todos o casi todos y los metería en una estructura.
Responder Con Cita
  #2  
Antiguo 02-10-2015
Avatar de ecfisa
ecfisa ecfisa is offline
Moderador
 
Registrado: dic 2005
Ubicación: Tres Arroyos, Argentina
Posts: 10.508
Poder: 38
ecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to behold
Hola c64.

No especificas que componente están usando y en el video no pude apreciar cual es. Pero, como para darte una idea, te pongo un ejemplo muy simple de como enviar y recibir unos datos con los componentes TClientSocket y TServerSocket. Básicamente no puede ser muy diferente a lo que tienen que hacer.

Receptor (server):
Código PHP:
struct {
  
int a;
  
int b;
  
int c;
data;

void __fastcall TForm1::FormCreate(TObject *Sender)
{
  
ServerSocket1->Port 23// Puerto
  
ServerSocket1->Open();
}

void __fastcall TForm1::ServerSocket1ClientRead(TObject *Sender,
  
TCustomWinSocket *Socket)
{
  
Socket->ReceiveBuf(&datasizeof(data));
  
ListBox1->Items->Add(data.a);
  
ListBox1->Items->Add(data.b);
  
ListBox1->Items->Add(data.c);
}

void __fastcall TForm1::FormClose(TObject *SenderTCloseAction &Action)
{
  
ServerSocket1->Close();

Emisor (cliente):
Código PHP:
struct {
  
int a;
  
int b;
  
int c;
data;

void __fastcall TForm1::FormCreate(TObject *Sender)
{
  
ClientSocket1->Port =  23;  // Puerto
  
ClientSocket1->Host =  "192.168.0.62"//IP server
  
ClientSocket1->Open();
}

void __fastcall TForm1::btnSendClick(TObject *Sender)
{
  
// valores a enviar
  
data.1111;
  
data.2222;
  
data.3333;

  if (
ClientSocket1->Active)
    
ClientSocket1->Socket->SendBuf(&datasizeof(data));
}

void __fastcall TForm1::FormClose(TObject *SenderTCloseAction &Action)
{
  
ClientSocket1->Close();

Saludos
__________________
Daniel Didriksen

Guía de estilo - Uso de las etiquetas - La otra guía de estilo ....

Última edición por ecfisa fecha: 02-10-2015 a las 22:34:31.
Responder Con Cita
  #3  
Antiguo 03-10-2015
c64 c64 is offline
Miembro
NULL
 
Registrado: sep 2015
Posts: 11
Poder: 0
c64 Va por buen camino
Cita:
Empezado por aguml Ver Mensaje
1 byte para cada cosa? A lo mejor para tu caso te vale pero en el mundo real por ejemplo no podrías pasar una cadena mayor que 255 bytes porque la variable que indica la longitud no da para más. Yo usaría enteros sin signo para todos o casi todos y los metería en una estructura.
Quizas me le exprese mal la idea seria usar un buffer de 255bytes y esos mandarlos. los 5 primeros bytes son para header(3bytes)/id(1)/longitud de datos(1) el resto es data (250).





Adjunte que pide que usemos y un compañero me paso una mejor imagen.

Desde ya muchas gracias por sus respuestas =).

Última edición por Casimiro Noteví fecha: 03-10-2015 a las 11:17:28.
Responder Con Cita
  #4  
Antiguo 04-10-2015
c64 c64 is offline
Miembro
NULL
 
Registrado: sep 2015
Posts: 11
Poder: 0
c64 Va por buen camino
Encontre esta muy buena pagina para serializar los datos de la estructura a mandar.

https://rubentorresbonet.wordpress.c...chniques-in-c/
Responder Con Cita
  #5  
Antiguo 04-10-2015
c64 c64 is offline
Miembro
NULL
 
Registrado: sep 2015
Posts: 11
Poder: 0
c64 Va por buen camino
Lamentablemente estamos atorados con un parcial de estadistica pero ni bien salgamos de eso desarrollaremos el algoritmo. (disculpas por el doble post no me dejaba editar el anterior por el link)
Responder Con Cita
  #6  
Antiguo 04-10-2015
Avatar de ecfisa
ecfisa ecfisa is offline
Moderador
 
Registrado: dic 2005
Ubicación: Tres Arroyos, Argentina
Posts: 10.508
Poder: 38
ecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to behold
Hola c64.

Pero ¿ tu problema era con el uso de los componentes o con la serialización de los datos ?, había interpretado que con lo primero.

Saludos
__________________
Daniel Didriksen

Guía de estilo - Uso de las etiquetas - La otra guía de estilo ....
Responder Con Cita
  #7  
Antiguo 04-10-2015
c64 c64 is offline
Miembro
NULL
 
Registrado: sep 2015
Posts: 11
Poder: 0
c64 Va por buen camino
Cita:
Empezado por ecfisa Ver Mensaje
Hola c64.

Pero ¿ tu problema era con el uso de los componentes o con la serialización de los datos ?, había interpretado que con lo primero.

Saludos
Gracias por tu respuesta ecfisa, con respecto a tu pregunta con ambas cosas. Hay que armar la estructura para el paquete y luego serializarla para mandarla.

Para que te des una idea, estamos bastante verdes con algunos conceptos de programacion (estructuras, funciones y demas los estamos dando sobre la marcha) y cada ves que superamos algo, el profesor nos complica con otra cosa (lo cual esta bueno pero consume tiempo).

Consegui un audio de los que nos pidio asi guio mejor.

https://soundcloud.com/ariel-commodo...ar-en-foro-m4a
https://soundcloud.com/ariel-commodo...-en-foro-2-m4a
Responder Con Cita
Respuesta


Herramientas Buscar en Tema
Buscar en Tema:

Búsqueda Avanzada
Desplegado

Normas de Publicación
no Puedes crear nuevos temas
no Puedes responder a temas
no Puedes adjuntar archivos
no Puedes editar tus mensajes

El código vB está habilitado
Las caritas están habilitado
Código [IMG] está habilitado
Código HTML está deshabilitado
Saltar a Foro

Temas Similares
Tema Autor Foro Respuestas Último mensaje
Como hago para cargar el Socket Server como un servicio en cualquier windows ferdanjua Servers 1 07-09-2010 12:05:46
como hacer consulta para crear dos campos a partir de uno Rom@n SQL 2 24-12-2008 17:56:37
Crear componente de socket para cliente Belaix Internet 5 23-11-2008 15:20:01
como transferir tablas dbf en uso Rom@n Conexión con bases de datos 1 01-03-2008 23:51:59
Como transferir datos de un ADOquery a un Formulario maru1981 OOP 10 30-07-2007 02:52:02


La franja horaria es GMT +2. Ahora son las 22:25:10.


Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2026, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi
Copyright 1996-2007 Club Delphi