home *** CD-ROM | disk | FTP | other *** search
/ Delphi Anthology / aDELPHI.iso / Runimage / Delphi50 / Demos / Internet / Chat / chat.dpr next >
Text File  |  1999-08-11  |  616b  |  20 lines
  1. { This demo illustrates a simple chat program using the Client and Server socket
  2.   components.  With this demo you can send text between two computers.   This
  3.   program must be running on both computers at the same time for a connection
  4.   to be made.  Once connected you can exchange text by typing into the memo and
  5.   pressing the Enter key which will send the last line of text in the memo to
  6.   the other machine.  }
  7. program Chat;
  8.  
  9. uses
  10.   Forms,
  11.   main in 'main.pas' {ChatForm};
  12.  
  13. {$R *.RES}
  14.  
  15. begin
  16.   Application.Initialize;
  17.   Application.CreateForm(TChatForm, ChatForm);
  18.   Application.Run;
  19. end.
  20.