main.pas

一个类似REALPLAY的播放器的客户端,可以播放UNIX/LINUX下的文本文件的功能

unit main;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics,
  Controls, Forms, Dialogs, StdCtrls
type
  TMainFrm=class(TForm)
    MainMenu1: TMainMenu;
    File1: TMenuItem;
    Open1: TMenuItem;
    HistoryPlay: TMenuItem;
    N1: TMenuItem;
    Exit1: TMenuItem;
    Ctrl1: TMenuItem;
    Play1: TMenuItem;
    Stop1: TMenuItem;
    BookMark1: TMenuItem;
    Add1: TMenuItem;
    Show1: TMenuItem;
    Delete1: TMenuItem;
    Timer1: TTimer;
    RepImg: TImage;
    workImg: TImage;
    ScrMemo: TMemo;
    Bevel1: TBevel;
    SavePictureDialog1: TSavePictureDialog;
    Memo1: TMemo;
    S1: TMenuItem;
    RealPlay: TMenuItem;
    Pause1: TMenuItem;
    Replay1: TMenuItem;
    U1: TMenuItem;
    S2: TMenuItem;
    Step1: TMenuItem;
    P1: TMenuItem;
    H1: TMenuItem;
    N2: TMenuItem;
    N3: TMenuItem;
    Replay2: TMenuItem;
    ImgLogo: TImage;
    PanelC: TPanel;
    PanelTrack: TPanel;
    TrackBar1: TTrackBar;
    PanelDsc: TPanel;
    StaticText1: TStaticText;
    StaticText2: TStaticText;
    StaticText3: TStaticText;
    LblUser: TStaticText;
    LblTerm: TStaticText;
    LblTotalTime: TStaticText;
    StaticText4: TStaticText;
    LblLoginDateTime: TStaticText;
    StaticText5: TStaticText;
    LblFromIp: TStaticText;
    StaticText6: TStaticText;
    LblLogoutDateTime: TStaticText;
    StatusBar1: TStatusBar;
    Step2: TMenuItem;
    N4: TMenuItem;
    NLarge: TMenuItem;
    NMidium: TMenuItem;
    NSmall: TMenuItem;
    TimerCursor: TTimer;
    N5: TMenuItem;
    N6: TMenuItem;
    N7: TMenuItem;
    N8: TMenuItem;
    TimerAutoRun: TTimer;
    RichEdit1: TRichEdit;
    ActionList1: TActionList;
    FileOpen1: TFileOpen;
    PrintDialog1: TPrintDialog;
    TimerReal: TTimer;
    ImageList_OFF: TImageList;
    ImageList_ON: TImageList;
    PanelCtrl: TPanel;
    ToolBar2: TToolBar;
    BtnPlay: TToolButton;
    BtnPause: TToolButton;
    BtnStop: TToolButton;
    BtnNextBM: TToolButton;
    BtnLastBM: TToolButton;
    CmbBookM: TComboBox;
    ComboBox1: TComboBox;
    ToolButton2: TToolButton;
    ToolButton3: TToolButton;
    BtnSound: TToolButton;
    ToolButton4: TToolButton;
    ToolButton1: TToolButton;
    MnDispDsc: TMenuItem;
    procedure FormCreate(Sender : TObject);
    procedure workImgDblClick(Sender : TObject);
    procedure Timer1Timer(Sender : TObject);
    procedure ComboBox1Change(Sender : TObject);
    procedure TrackBar1Change(Sender : TObject);
    procedure CmbBookMChange(Sender : TObject);
    procedure Add1Click(Sender : TObject);
    procedure Show1Click(Sender : TObject);
    procedure Delete1Click(Sender : TObject);
    procedure Play1Click(Sender : TObject);
    procedure Stop1Click(Sender : TObject);
    procedure Exit1Click(Sender : TObject);
    procedure TimerTrackTimer(Sender : TObject);
    procedure S2Click(Sender : TObject);
    procedure U1Click(Sender : TObject);
    procedure FormClose(Sender : TObject);
    procedure Pause1Click(Sender : TObject);
    procedure Replay1Click(Sender : TObject);
    procedure HistoryPlayClick(Sender : TObject);
    procedure RealPlayClick(Sender : TObject);
    procedure Step1Click(Sender : TObject);
    procedure P1Click(Sender : TObject);
    procedure Step2Click(Sender : TObject);
    procedure NLargeClick(Sender : TObject);
    procedure NMidiumClick(Sender : TObject);
    procedure NSmallClick(Sender : TObject);
    procedure Replay2Click(Sender : TObject);
    procedure TimerCursorTimer(Sender : TObject);
    procedure N6Click(Sender : TObject);
    procedure N7Click(Sender : TObject);
    procedure N8Click(Sender : TObject);
    procedure TimerAutoRunTimer(Sender : TObject);
    procedure FileOpen1Accept(Sender : TObject);
    procedure FileOpen1BeforeExecute(Sender : TObject);
    procedure TimerRealTimer(Sender : TObject);
    procedure BtnNextBMClick(Sender : TObject);
    procedure BtnLastBMClick(Sender : TObject);
    procedure BtnSoundClick(Sender : TObject);
    procedure FormShow(Sender : TObject);
    procedure MnDispDscClick(Sender : TObject);
    procedure workImgClick(Sender : TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end ;

var
  MainFrm: TMainFrm;

{This file is generated by DeDe Ver 3.50.02 Copyright (c) 1999-2002 DaFixer}

implementation

{$R *.DFM}

procedure TMainFrm.FormCreate(Sender : TObject);
begin
(*
004CDF20   55                     push    ebp
004CDF21   8BEC                   mov     ebp, esp
004CDF23   B904000000             mov     ecx, $00000004
004CDF28   6A00                   push    $00
004CDF2A   6A00                   push    $00
004CDF2C   49                     dec     ecx
004CDF2D   75F9                   jnz     004CDF28
004CDF2F   51                     push    ecx
004CDF30   53                     push    ebx
004CDF31   8BD8                   mov     ebx, eax
004CDF33   33C0                   xor     eax, eax
004CDF35   55                     push    ebp

* Possible String Reference to: '閁_