home *** CD-ROM | disk | FTP | other *** search
/ PC Plus SuperCD (UK) 2000 March / pcp161b.iso / full / delphi / RUNIMAGE / DELPHI30 / DEMOS / INTERNET / TCP / DCHAT.DPR next >
Encoding:
Text File  |  1997-08-04  |  571 b   |  19 lines
  1. { This demo illustrates a simple chat program using the TCP component.  With
  2.   this demo you can send text between two computers.   This program must be
  3.   running on both computers at the same time for a connection to be made.  Once
  4.   connected you can exchange text by typing into the memo and pressing the Enter
  5.   key which will send the last line of text in the memo.  }
  6. program DChat;
  7.  
  8. uses
  9.   Forms,
  10.   main in 'main.pas' {ChatForm};
  11.  
  12. {$R *.RES}
  13.  
  14. begin
  15.   Application.Initialize;
  16.   Application.CreateForm(TChatForm, ChatForm);
  17.   Application.Run;
  18. end.
  19.