Consulta como crear un socket para transferir por udp

[ecfisa]

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(&data, sizeof(data));
  ListBox1->Items->Add(data.a);
  ListBox1->Items->Add(data.b);
  ListBox1->Items->Add(data.c);
}

void __fastcall TForm1::FormClose(TObject *Sender, TCloseAction &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.a = 1111;
  data.b = 2222;
  data.c = 3333;

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

void __fastcall TForm1::FormClose(TObject *Sender, TCloseAction &Action)
{
  ClientSocket1->Close();
} 


Saludos

[c64]

Empezado por aguml

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 =).

[c64]

Encontre esta muy buena pagina para serializar los datos de la estructura a mandar.

https://rubentorresbonet.wordpress.c...chniques-in-c/

[c64]

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)

[ecfisa]

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

[c64]

Empezado por ecfisa

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

[[escafandra]]

He preparado un ejemplo simple con el componente TNMUDP. Lo he probado contra la IP Local 127.0.0.1 en tres copias de la misma aplicación configurando los puertos para que la pelotita salte de una a otra. El Timer está a 5 ms. Publico un pequeño vídeo.

Código PHP:

//---------------------------------------------------------------------------

#include <vcl.h>
#pragma hdrstop

#include "Unit1.h"
#include "Unit2.h"
#include <math.h>

//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma link "Unit2"
#pragma resource "*.dfm"
TForm1 *Form1;

struct TData{
  char HEADER[3];
  char SD;
  double Vx;
  double Vy;
  double X;
  double Y;
};


//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
  : TForm(Owner)
{
  Connect();
  Timer1->Enabled = false;
  Frame1->Visible = false;
  Frame1->DoubleBuffered = true;
}

//---------------------------------------------------------------------------
void __fastcall TForm1::Timer1Timer(TObject *Sender)
{
  double t = 0.01;
  double Vy = 9.8*t;

  Y += 1000*(Vy+Voy)*t;
  if(Y + Frame1->Height >= Panel1->Height){
    Y = Panel1->Height - Frame1->Height;
    Voy = -Voy*0.95;   // reducción Y
    Vox *= 0.98;      // reducción X
  }else
    Voy += Vy;

  X += Vox*t;
  Frame1->Top = Y;
  Frame1->Left = X;

  if(X + Frame1->Width >= Panel1->Width && IsPelota){
    TData Data;
    Data.Vx = Vox;
    Data.Vy = Voy;
    Data.X = X;
    Data.Y = Y;
    NMUDP1->SendBuffer((char*)&Data, sizeof(TData), sizeof(TData));
    IsPelota = false;
  }
  if(X >= Panel1->Width){
    Timer1->Enabled = false;
  }
}
//---------------------------------------------------------------------------


void __fastcall TForm1::Button2Click(TObject *Sender)
{
  Connect();
  IsPelota = true;
  Vox = 800;     // Velocidad inicial X
  Voy = 0;       // Velocidad inicial Y
  Y = 0;
  X = 0;
  Frame1->Top = 0;
  Frame1->Left = 0;
  Frame1->Visible = true;
  Timer1->Enabled = true;
}
//---------------------------------------------------------------------------

void __fastcall TForm1::NMUDP1DataReceived(TComponent *Sender,
      int NumberBytes, AnsiString FromIP, int Port)
{
  if(NumberBytes == sizeof(TData)){
    TData Data;
    NMUDP1->ReadBuffer((char*)&Data, sizeof(TData), NumberBytes);
    Vox = Data.Vx;
    Voy = Data.Vy;
    X = 0;
    Y = Data.Y;
    Frame1->Left = 0;
    Frame1->Top = Y;
    Frame1->Visible = true;
    Timer1->Enabled = true;
    IsPelota = true;
  }
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Connect()
{
  NMUDP1->RemoteHost = Edit1->Text;
  NMUDP1->RemotePort = StrToIntDef(Edit2->Text, 0);
  NMUDP1->LocalPort  = StrToIntDef(Edit3->Text, 0);
}

//---------------------------------------------------------------------------
void __fastcall TForm1::EditChange(TObject *Sender)
{
  Connect();
}
//--------------------------------------------------------------------------- 


https://youtu.be/dowjot2OILo