A라는 PC에서 '어떤 행위'(DB에 INSERT)가 발생하면    B,C,D,E,F..... 등   n개의 PC에  '어떤 행위'가 발생했다는 메세지를 날리고 싶습니다.

소켓쪽을 살펴봤는데...1:1 밖에 안되는것 같아서...
아주 간단하게 기본적인것만 써서 해봤는데....영....답이 안나오네요

통신쪽은 쌩 초짜라서.......  어떤식으로 작성해야하나요?

사용버젼은 3.0 입니다 -_-  회사가...가난해요...ㅎㅎ

멀티 쓰레드를 사용하라고 하시는데...그쪽도 잘모르고.....아래 코드같이 하는경우에도 멀티 쓰레드를 쓰면
1:n으로 가능한건가요?

------------아래는 서버코드입니다.-------------

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  ScktComp, StdCtrls, ExtCtrls, ComCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    Label1: TLabel;
    ClientSocket: TClientSocket;
    Button2: TButton;
    procedure Button1Click(Sender: TObject);

    procedure ClientSocketError(Sender: TObject; Socket: TCustomWinSocket;
      ErrorEvent: TErrorEvent; var ErrorCode: Integer);
    procedure ClientSocketConnect(Sender: TObject;
      Socket: TCustomWinSocket);
    procedure Button2Click(Sender: TObject);

  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.Button1Click(Sender: TObject);
begin
  if ClientSocket.Active then ClientSocket.Active := False;
        ClientSocket.Host := '클라이언트IP주소';          //<---------------------한개만 사용가능한것같음.
        ClientSocket.Active := True;
end;

procedure TForm1.ClientSocketError(Sender: TObject;
  Socket: TCustomWinSocket; ErrorEvent: TErrorEvent;
  var ErrorCode: Integer);
begin

  ErrorCode := 0;

end;

procedure TForm1.ClientSocketConnect(Sender: TObject;
  Socket: TCustomWinSocket);
begin
   label1.Caption := 'Connected';
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  ClientSocket.Socket.SendText('가나다라마바사');    // <------------------  보내줄 메세지
    ClientSocket.Socket.Close;
  label1.Caption := 'Disconnect!!';
end;

end.


------------아래는 클라이언트코드입니다.-------------
unit Unit2;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  ScktComp, StdCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    Memo1: TMemo;
    ServerSocket: TServerSocket;
    procedure ServerSocketClientDisconnect(Sender: TObject;
      Socket: TCustomWinSocket);
    procedure ServerSocketClientRead(Sender: TObject;
      Socket: TCustomWinSocket);
    procedure Button1Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.DFM}


procedure TForm1.ServerSocketClientDisconnect(Sender: TObject;
  Socket: TCustomWinSocket);
begin
   ServerSocket.Active := False;
end;

procedure TForm1.ServerSocketClientRead(Sender: TObject;
  Socket: TCustomWinSocket);
begin
   Memo1.Lines.Add(Socket.ReceiveText);
   ServerSocket.Close;
   ServerSocket.Open;
   ServerSocket.Active := True;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  ServerSocket.Close;
  Close;
end;

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  Action:= caFree;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
ServerSocket.Active := true;
end;

end.