uformaddpeer.pas

   1 unit uFormAddPeer;
   2
   3 {$mode objfpc}{$H+}
   4
   5 interface
   6
   7 uses
   8   Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls;
   9
  10 type
  11
  12   { TFormAddPeer }
  13
  14   TFormAddPeer = class(TForm)
  15     Button3: TButton;
  16     Edit1: TEdit;
  17     GroupBox1: TGroupBox;
  18     Label1: TLabel;
  19     procedure Button3Click(Sender: TObject);
  20   private
  21     { private declarations }
  22   public
  23     { public declarations }
  24   end;
  25
  26 var
  27   FormAddPeer: TFormAddPeer;
  28
  29 implementation
  30
  31 Uses uMainForm,CtrlIface,NetAddr;
  32
  33 {$R *.lfm}
  34
  35 { TFormAddPeer }
  36
  37 procedure TFormAddPeer.Button3Click(Sender: TObject);
  38 var a:netaddr.t;
  39  begin
  40   try
  41   a:=Edit1.Text;
  42   MainForm.Daemon.WriteByte(ccAddPeer);
  43   MainForm.Daemon.WriteBuffer(a,sizeof(a));
  44   Self.Hide;
  45   except
  46    on e:eConvertError do ShowMessage('Wrong format '+e.message);
  47   end;
  48 end;
  49
  50 end.
  51