unit1.pas

网络试验程序

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Menus, ExtCtrls, OleCtrls, AgentObjects_TLB;

type
  TMainForm = class(TForm)
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    MainMenu1: TMainMenu;
    File1: TMenuItem;
    exit1: TMenuItem;
    Action1: TMenuItem;
    webbroser1: TMenuItem;
    mail1: TMenuItem;
    GoBackN1: TMenuItem;
    Help1: TMenuItem;
    helpfile1: TMenuItem;
    aboutme1: TMenuItem;
    StaticText1: TStaticText;
    GroupBox1: TGroupBox;
    Button4: TButton;
    Panel1: TPanel;
    Image1: TImage;
    Memo1: TMemo;
    Agent1: TAgent;
    procedure FormCreate(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure exit1Click(Sender: TObject);
    procedure FormMouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure webbroser1Click(Sender: TObject);
    procedure mail1Click(Sender: TObject);
    procedure GoBackN1Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
    procedure helpfile1Click(Sender: TObject);
    procedure aboutme1Click(Sender: TObject);
    procedure GroupBox1MouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure Memo1MouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure Panel1MouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  MainForm: TMainForm;

implementation

uses Unit2, Unit3, Unit4;

{$R *.dfm}

procedure TMainForm.FormCreate(Sender: TObject);
var startform: tstartform ;
    currtime: tsystemtime ;
    sec: word ;
    ochar:iagentctlcharacterex;

begin
    startform := tstartform.Create(self) ;
    startform.Show ;
    startform.Update ;

    getsystemtime(currtime) ;
    sec := currtime.wSecond + 5 ;
    startform.ProgressBar1.Max := sec ;
    startform.ProgressBar1.Min := currtime.wSecond ;
    while sec > currtime.wSecond do
    begin
      getsystemtime(currtime) ;
      startform.ProgressBar1.Position := currtime.wSecond ;
    end ;
    startform.Free ;

    try
randomize;
agent1.Characters.Load('merlin','merlin.acs');
ochar:=agent1.Characters.Character('merlin');
ochar.Height:=150;
ochar.Width:=100;
ochar.MoveTo(Random(600), RANDom(600),0);
ochar.Show(0);
//ochar.languageid=0x409 *语言种类，409代表美式英语，如果不定义该项，是不会发音的
oChar.Speak('Hello \emp\there!|Hey, \pau=600\all you boys and girls.|Greetings, and felicitations.','');
oChar.Speak('Welcome to DevCon, my friends.','');
WITH OCHAR do
begin
  PLAY('GREET');
  PLAY('RESTPOSE');
  SPEAK('HELLO!','');
  PLAY('ANNOUNCE');
  SPEAK('I AM MERLIN.','');
  PLAY('PLEASED');
  SPEAK('IT IS NICE TO MEET YOU!','');
  MOVETO(788,330,0);
  SPEAK('NOW,HERE IS A MAGIC TRICK.','') ;
  PLAY('DOMAGIC1');
  PLAY('DOMAGIC2');
  PLAY('PLEASED') ;
  PLAY('RESTPOSE');
  SPEAK('THANK YOU!','');
  PLAY('WAVE');
  SPEAK('GOODBYE','');
  PLAY('HIDE');
end;
//等待用户指令，创建一个application类型的应用程序
ochar.Commands.Add('file','create new project...','file',true,true);
ochar.Commands.Add('new','create new project...','new',true,true);
ochar.Commands.Add('application','create new project...','application',true,true);
except
on e:exception do
showmessage(e.Message);
end; 
end;

procedure TMainForm.Button1Click(Sender: TObject);
var
    str:string;

begin
    str:='WEB\Project2.exe';
    winexec(PChar(str), SW_SHOWNORMAL);
end;

procedure TMainForm.Button2Click(Sender: TObject);
begin
    form3.show ;
end;

procedure TMainForm.Button3Click(Sender: TObject);
var
    str:string;

begin
    str:='GBN\GBN.exe';
    winexec(PChar(str), SW_SHOWNORMAL);
end;

procedure TMainForm.exit1Click(Sender: TObject);
begin
    MainForm.Close ;
end;

procedure TMainForm.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
    StaticText1.Caption := '请选择您要查看的服务。' ;
end;

procedure TMainForm.webbroser1Click(Sender: TObject);
var
    str:string;
begin
    str:='WEB\Project2.exe';
    winexec(PChar(str), SW_SHOWNORMAL);
end;

procedure TMainForm.mail1Click(Sender: TObject);
begin
    form3.show ;
end;

procedure TMainForm.GoBackN1Click(Sender: TObject);
var
    str:string;
begin
    str:='WEB\Project2.exe';
    winexec(PChar(str), SW_SHOWNORMAL);
end;

procedure TMainForm.Button4Click(Sender: TObject);
begin
    mainform.Close ;
end;

procedure TMainForm.helpfile1Click(Sender: TObject);
begin
    Memo1.Lines.Add('Web应用系统') ;
    Memo1.Lines.Add('1.系统主要功能：') ;
    Memo1.Lines.Add('  小型浏览器') ;
    Memo1.Lines.Add('  邮件发送程序') ;
    Memo1.Lines.Add('  基于可靠信息传输服务Go_Back_N') ;
    Memo1.Lines.Add('') ;
    Memo1.Lines.Add('') ;
    Memo1.Lines.Add('2.开发人员：    吴斐') ;
    //Memo1.Lines.Add('3.开发原因：    认真对待学习。') ;
    //Memo1.Lines.Add('                不能让别人看低自己。') ;
    Memo1.Lines.Add('') ;
    Memo1.Lines.Add('3.系统当前时间：') ;
    Memo1.Lines.Add('  2005 年 11 月 18 日  ') ;
    Memo1.Lines.Add('  ' + Timetostr(time)) ;
end;

procedure TMainForm.aboutme1Click(Sender: TObject);
begin
    Form4.show ;
end;

procedure TMainForm.GroupBox1MouseMove(Sender: TObject; Shift: TShiftState;
  X, Y: Integer);
begin
    StaticText1.Caption := '点击上面三个按钮调用相应的程序，点击“退出”按钮退出系统。' ;
end;

procedure TMainForm.Memo1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
    StaticText1.Caption := '提示信息框。点击"Help"察看帮助文件' ;
end;


procedure TMainForm.Panel1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
    StaticText1.Caption := '请选择您要查看的服务。' ;
end;

end.