Subversion Repositories cheap_ethernet

unit main;

interface

uses

  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

  Dialogs, StdCtrls, IdUDPClient, IdBaseComponent, IdComponent, IdUDPBase,

  IdUDPServer, IdSocketHandle, Math, IdTCPServer, IdTCPConnection,

  IdTCPClient;

type

  TForm1 = class(TForm)

    IdUDPServer1: TIdUDPServer;

    Memo1: TMemo;

    IdUDPClient1: TIdUDPClient;

    Button1: TButton;

    Edit1: TEdit;

    Label1: TLabel;

    Button2: TButton;

    Button3: TButton;

    Button5: TButton;

    Button4: TButton;

    Button6: TButton;

    procedure IdUDPServer1UDPRead(Sender: TObject; AData: TStream;

      ABinding: TIdSocketHandle);

    procedure ButtonsClick(Sender: TObject);

    procedure FormShow(Sender: TObject);

  private

    { Private declarations }

  public

    { Public declarations }

  end;

var

  Form1: TForm1;

implementation

{$R *.dfm}

var

  cnt: Integer = 0;

const

  CmdDone             = 0;

  CmdStatus                     = 1;

  CmdLEDCtrl            = 2;

  CmdSetConfig  = 3;

  CmdSwChanged  = 4;

  CmdDataEcho           = 5;

procedure TForm1.IdUDPServer1UDPRead(Sender: TObject; AData: TStream;

  ABinding: TIdSocketHandle);

var

  S, T: String;

  i, l: Integer;

begin

  Memo1.Lines.Add(IntToStr (cnt) + ') Received ' + IntToStr (AData.Size) + ' bytes:');

  cnt := cnt + 1;

  l := min (AData.Size, 32);

  SetLength (S, l);

  AData.Read (S[1], l);

  T := '';

  for i := 0 to l - 1 do

    T := T + IntToHex (Ord (S[i + 1]), 2) + ' ';

  Memo1.Lines.Add (T + #13#10);

end;

procedure TForm1.FormShow(Sender: TObject);

begin

  IdUDPServer1.Active := True;

end;

procedure TForm1.ButtonsClick(Sender: TObject);

var

  S, T: String;

  i: Integer;

begin

  cnt := cnt + 1;

  IdUDPClient1.Host := Edit1.Text;

  case (TButton(Sender).Tag) of

    0: S := Chr(CmdLEDCtrl) + #1#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0;

    1: S := Chr(CmdLEDCtrl) + #0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0;

    2: S := Chr(CmdSetConfig) + #1#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0;

    3: S := Chr(CmdSetConfig) + #0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0;

    4: S := Chr(CmdStatus) + #0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0;

    5: S := Chr(CmdDataEcho) + #1#2#3#4#5#6#7#8#9#10#11#12#13#14#15#16#17;

  end;

  for i := 0 to Length (S) - 1 do

    T := T + IntToHex (Ord (S[i + 1]), 2) + ' ';

  Memo1.Lines.Add(IntToStr (cnt) + ') Sending ' + IntToStr (Length (S)) + ' bytes:');

  Memo1.Lines.Add (T);

  IdUDPClient1.Send (S);

end;

end.