Re: [twsocket] UDP Newbie...

[zayin]

Hello,

>Please post your code.

CodeGearT DelphiR 2007 for Win32R R2 Version 11.0.2902.10471

ICS 5.25

TWSocket I set

Addr 192.168.245.2
Port 47808
Proto udp

Var
 outBuffer:array[0..128] of byte;

In a button click:

outBuffer[0]:=$01;
outBuffer[1]:=$02;

WSocket1.Listen;
WSocket1.Send(@outBuffer,2);

Ciao,

Mark



Complete unit:

unit Main;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, WSocket, ComCtrls, StdCtrls, ExtCtrls, WSocketS;

type
  TForm1 = class(TForm)
    Button1: TButton;
    WSocket1: TWSocket;
    procedure Button1Click(Sender: TObject);
  private
   outBuffer:array[0..128] of byte;
  public
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}


procedure TForm1.Button1Click(Sender: TObject);
begin

 outBuffer[0]:=$01;
 outBuffer[1]:=$02;

 WSocket1.Listen;
 WSocket1.Send(@outBuffer,2);
end;


end.

-- 
To unsubscribe or change your settings for TWSocket mailing list
please goto http://lists.elists.org/cgi-bin/mailman/listinfo/twsocket
Visit our website at http://www.overbyte.be