Consulta como crear un socket para transferir por udp

[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

[c64]

Empezado por 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.

Muchas gracias escafandra sos un maestro, y gracias a todos los que respondieron. Estamos en epoca de parcial, ni bien pase el martes (parcial de estadistica) me pongo a mejorar esto, prometo hacer un buen codigo y postearlo aca (lamentablemente mi codigo no sera muy lindo que digamos, asi que tenganme piedad jaja).

Para el que les interese el tema de la pelota, aqui hay un muy buen codigo en java que trata de la misma (incluye un algoritmo para colisiones).

www3.ntu.edu.sg/home/ehchua/programming/java/J8a_GameIntro-BouncingBalls.html

[c64]

Volvi, queria avisarles que en poco subire parte del codigo. Estamos por entregar un trabajo final y esto quedo suspendido aunque ya quedo bastante avanzado falta depurarlo porque tira errores en la coordinacion de las maquinas (en el alive, para verificar si estan conectadas).