realtime.pas

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

unit realtime;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics,
  Controls, Forms, Dialogs, StdCtrls
type
  TRealTimeFrm=class(TForm)
    BtnOk: TBitBtn;
    BtnCancel: TBitBtn;
    Label1: TLabel;
    DatePick: TDateTimePicker;
    Label2: TLabel;
    GroupBox1: TGroupBox;
    CBSaveToBK: TCheckBox;
    EditName: TEdit;
    Label4: TLabel;
    TimePick: TDateTimePicker;
    procedure BtnCancelClick(Sender : TObject);
    procedure CBSaveToBKClick(Sender : TObject);
    procedure FormShow(Sender : TObject);
    procedure BtnOkClick(Sender : TObject);
    procedure _PROC_004CADB9(Sender : TObject);
    procedure _PROC_004CADE8(Sender : TObject);
    procedure _PROC_004CADF0(Sender : TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end ;

var
  RealTimeFrm: TRealTimeFrm;

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

implementation

{$R *.DFM}

procedure TRealTimeFrm.BtnCancelClick(Sender : TObject);
begin
(*

* Reference to: Forms.TCustomForm.Close(TCustomForm);
|
004CA8DC   E85B28FBFF             call    0047D13C
004CA8E1   C3                     ret

*)
end;

procedure TRealTimeFrm.CBSaveToBKClick(Sender : TObject);
begin
(*
004CA8E4   53                     push    ebx
004CA8E5   8BD8                   mov     ebx, eax

* Reference to control TRealTimeFrm.CBSaveToBK : TCheckBox
|
004CA8E7   8B8310030000           mov     eax, [ebx+$0310]
004CA8ED   8B10                   mov     edx, [eax]

* Reference to method TCheckBox.GetChecked()
|
004CA8EF   FF92C8000000           call    dword ptr [edx+$00C8]
004CA8F5   3C01                   cmp     al, $01
004CA8F7   750F                   jnz     004CA908
004CA8F9   B201                   mov     dl, $01

* Reference to control TRealTimeFrm.EditName : TEdit
|
004CA8FB   8B8314030000           mov     eax, [ebx+$0314]
004CA901   8B08                   mov     ecx, [eax]

* Reference to method TEdit.SetEnabled(Boolean)
|
004CA903   FF5164                 call    dword ptr [ecx+$64]
004CA906   5B                     pop     ebx
004CA907   C3                     ret

004CA908   33D2                   xor     edx, edx
004CA90A   8B8314030000           mov     eax, [ebx+$0314]
004CA910   8B08                   mov     ecx, [eax]
004CA912   FF5164                 call    dword ptr [ecx+$64]
004CA915   5B                     pop     ebx
004CA916   C3                     ret

*)
end;

procedure TRealTimeFrm.FormShow(Sender : TObject);
begin
(*
004CA918   55                     push    ebp
004CA919   8BEC                   mov     ebp, esp
004CA91B   33C9                   xor     ecx, ecx
004CA91D   51                     push    ecx
004CA91E   51                     push    ecx
004CA91F   51                     push    ecx
004CA920   51                     push    ecx
004CA921   51                     push    ecx
004CA922   51                     push    ecx
004CA923   53                     push    ebx
004CA924   56                     push    esi
004CA925   57                     push    edi
004CA926   8BD8                   mov     ebx, eax
004CA928   33C0                   xor     eax, eax
004CA92A   55                     push    ebp

* Possible String Reference to: '閈栿