lazarus-ccr/components/beepfp/example/BEEP_Client.lpr

49 lines
1.8 KiB
ObjectPascal

(*******************************************************************************
* BEEP_Client.lpr: Client test application for BeepFp
* Copyright (C) 2009, Wimpie Nortje <wimpienortje@gmail.com>
*
* This file is part of BeepFp.
*
* BeepFp is free software: you can redistribute it and/or modify it under the
* terms of the GNU Lesser General Public License as published by the Free
* Software Foundation, either version 3 of the License, or (at your option)
* any later version.
*
* BeepFp is distributed in the hope that it will be useful, but WITHOUT ANY
* WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS
* FOR A PARTICULAR PURPOSE. See the GNU Lesser General Public License for
* more details.
*
* You should have received a copy of the GNU Lesser General Public License
* along with BeepFp. If not, see <http://www.gnu.org/licenses/>.
*
* BeepFp is further covered by a special exception as described in the file
* COPYING.modifiedLGPL.txt which should have been included in the
* distribution. If not, see
* <http://svn.freepascal.org/svn/lazarus/trunk/COPYING.modifiedLGPL.txt>
*******************************************************************************
* This is an example of using TBeepClient class
******************************************************************************)
program BEEP_Client;
{$mode objfpc}{$H+}
uses
{$IFDEF UNIX}
cthreads,
{$ENDIF}
Interfaces, Forms, LResources, clientmain,
beepchannel, beepchannelpool, beepclient, beepconnection,
beepcontext, beepframe, beeplistener, beepobject, beeppeer,
beepprofile, beeputils;
{$IFDEF WINDOWS}{$R BEEP_Client.rc}{$ENDIF}
begin
{$I BEEP_Client.lrs}
Application.Initialize;
Application.CreateForm(TForm1, Form1);
Application.Run;
end.