taolun.pas

这是一个非常好的教师和学生沟通用的电子教室!

unit TaoLun;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, Buttons,wsocket, XPMenu, ExtCtrls, TFlatPanelUnit,
  TFlatHintUnit, TFlatSpeedButtonUnit, Volumes, XP_Button, MMObj, MMWheel;

type
  TTaoLunf = class(TForm)
    Memo1: TMemo;
    Label1: TLabel;
    Label2: TLabel;
    TalkSocket: TWSocket;
    FlatPanel1: TFlatPanel;
    FlatPanel2: TFlatPanel;
    Memo2: TMemo;
    Memo3: TMemo;
    XPMenu1: TXPMenu;
    BitBtn1: TBitBtn;
    FlatHint1: TFlatHint;
    FlatSpeedButton1: TFlatSpeedButton;
    MMWheel1: TMMWheel;
    VolumeControl1: TVolumeControl;
    XP_Button1: TXP_Button;
    procedure BitBtn2Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure TalkSocketDataAvailable(Sender: TObject; Error: Word);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure Memo3KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure MMWheel1Change(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  TaoLunf: TTaoLunf;

implementation
  uses main;
{$R *.DFM}

procedure TTaoLunf.BitBtn2Click(Sender: TObject);
begin
  close;
end;

procedure TTaoLunf.FormShow(Sender: TObject);
begin
  memo2.Clear;
  memo3.Clear;
   TalkSocket.Proto := 'udp';
   TalkSocket.Addr := '0.0.0.0';
   TalkSocket.Port := '555';
   TalkSocket.Listen;
   memo3.SetFocus;
end;

procedure TTaoLunf.BitBtn1Click(Sender: TObject);
begin
  if memo3.Text='' then showmessage('请输入要发送的内容!')
 else
 begin
  TalkSocket.Close;
  TalkSocket.Proto := 'udp';
  TalkSocket.Addr := '255.255.255.255';
  TalkSocket.Port := '555';
  TalkSocket.LocalPort := '0';
  TalkSocket.Connect;
  Talksocket.SendStr(s_computername+':>'+ memo3.Lines.Text);

   TalkSocket.Close;
   TalkSocket.Proto := 'udp';
   TalkSocket.Addr := '0.0.0.0';
   TalkSocket.Port := '555';
   TalkSocket.Listen;

  memo2.Lines.Append(s_computername+':>'+ memo3.Lines.Text);
  memo3.Text:='';
  memo3.Lines.Clear;
  memo3.SetFocus;
{  for i := 0 to student_count - 1 do
  begin
    if (form1.ListView1.Items[i].imageindex <> 0) and (form1.listView1.Items[i].Selected = true) then
    begin
      wsh_socket[i].SendStr('/*csh*/:' + #13 + #10 + '讨论内容' +
      LocalHostName+':>'+ memo3.Lines.Text);
      sleep(1);
    end;
  end;    }
  end;

end;

procedure TTaoLunf.TalkSocketDataAvailable(Sender: TObject; Error: Word);
 var
  s_taolun:string;
begin
  s_taolun:=TalkSocket.ReceiveStr;
  memo2.Lines.Append(s_taolun);
end;

procedure TTaoLunf.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  talkSocket.Close;
  TalkSocket.Proto := 'udp';
  TalkSocket.Addr := '255.255.255.255';
  TalkSocket.Port := '555';
  TalkSocket.LocalPort := '0';
  TalkSocket.Connect;
  Talksocket.SendStr('/*csh*/:' + #13 + #10 + '关闭讨论');
  TalkSocket.Close;
  form1.N65Click(sender);
end;

procedure TTaoLunf.Memo3KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
 if (key = VK_RETURN) and (ssCtrl in Shift) then //发送文章
  BitBtn1Click(sender);  
end;

procedure TTaoLunf.MMWheel1Change(Sender: TObject);
begin
  volumecontrol1.waveVolume:=round(mmwheel1.value);
end;

end.