unit1.dfm

sample how to use TClientSocket & TServerSocket

object Form1: TForm1
  Left = 314
  Top = 214
  BorderStyle = bsDialog
  Caption = 'server'
  ClientHeight = 243
  ClientWidth = 256
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  Position = poDesktopCenter
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object Memo1: TMemo
    Left = 8
    Top = 8
    Width = 241
    Height = 129
    Lines.Strings = (
      'asumsi server menerima perintah: '
      '* (perintah not encrypt,string KAPITAL,3huruf)'
      '- NTP --> menjalankan notepad'
      '- MSG --> menampilkan pesan(showmessage)'
      '- CLS  --> close aplikasi(server)'
      ''
      'ket:'
      'PORT : 7070 --> port yg digunakan'
      'waktu aplikasi dijalankan,  server socket '
      'dijalankan..')
    TabOrder = 0
  end
  object Memo2: TMemo
    Left = 8
    Top = 144
    Width = 241
    Height = 89
    Lines.Strings = (
      'Logging')
    ScrollBars = ssVertical
    TabOrder = 1
  end
  object ss: TServerSocket
    Active = False
    Port = 7070
    ServerType = stNonBlocking
    OnClientConnect = ssClientConnect
    OnClientDisconnect = ssClientDisconnect
    OnClientRead = ssClientRead
    Left = 192
    Top = 72
  end
end