pict.pas

本程序是用Delphi设计的多媒体合成程序,简单易懂

unit pict;

interface

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

type
  TForm1 = class(TForm)
    Image1: TImage;
    RichEdit1: TRichEdit;
    Exit: TBitBtn;
    Panel1: TPanel;
    Label1: TLabel;
    MediaPlayer1: TMediaPlayer;
    Timer1: TTimer;

    procedure Timer1Timer(Sender: TObject);
    procedure FormActivate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  i:integer=1;

implementation

{$R *.DFM}

procedure TForm1.Timer1Timer(Sender: TObject);
begin
    i:=i+1;
    MediaPlayer1.Stop;

    if i>5 then
       Timer1.Free
    else
    begin
      image1.Picture.LoadFromFile('img\image'+inttostr(i)+'.bmp');
      RichEdit1.clear;
      RichEdit1.Lines.LoadFromFile('txt\text'+inttostr(i)+'.txt');

      MediaPlayer1.FileName:='wav\wave'+inttostr(i)+'.wav';
      MediaPlayer1.Open;
      MediaPlayer1.Play;
    end;
end;

procedure TForm1.FormActivate(Sender: TObject);
begin
     MediaPlayer1.Play;
end;

end.