bookm.pas

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

unit bookm;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics,
  Controls, Forms, Dialogs, StdCtrls
type
  TBookFrm=class(TForm)
    PageControl1: TPageControl;
    TabSheetAdd: TTabSheet;
    TabSheetDel: TTabSheet;
    TabSheetUpLoad: TTabSheet;
    StrGridDel: TStringGrid;
    StrGridUp: TStringGrid;
    EditName: TEdit;
    Label1: TLabel;
    BtnAdd: TBitBtn;
    BtnAddQ: TBitBtn;
    BtnDel: TBitBtn;
    BtnDelQ: TBitBtn;
    Label2: TLabel;
    LblAttr: TLabel;
    BtnQryQ: TBitBtn;
    BtnUpLoad: TBitBtn;
    TabSheetQry: TTabSheet;
    StrGridQry: TStringGrid;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    TcpClient1: TTcpClient;
    IdTCPClient1: TIdTCPClient;
    procedure BtnAddClick(Sender : TObject);
    procedure BtnAddQClick(Sender : TObject);
    procedure BtnDelClick(Sender : TObject);
    procedure TabSheetDelShow(Sender : TObject);
    procedure TabSheetUpLoadShow(Sender : TObject);
    procedure TabSheetAddShow(Sender : TObject);
    procedure BtnDelQClick(Sender : TObject);
    procedure BtnQryQClick(Sender : TObject);
    procedure FormCreate(Sender : TObject);
    procedure TabSheetQryShow(Sender : TObject);
    procedure BtnUpLoadClick(Sender : TObject);
    procedure TcpClient1Connect(Sender : TObject);
    procedure FormShow(Sender : TObject);
    procedure _PROC_004C9535(Sender : TObject);
    procedure _PROC_004C9990(Sender : TObject);
    procedure _PROC_004C9C3F(Sender : TObject);
    procedure _PROC_004C9CF7(Sender : TObject);
    procedure _PROC_004C9D15(Sender : TObject);
    procedure _PROC_004CA035(Sender : TObject);
    procedure _PROC_004CA064(Sender : TObject);
    procedure _PROC_004CA06C(Sender : TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end ;

var
  BookFrm: TBookFrm;

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

implementation

{$R *.DFM}

procedure TBookFrm.BtnAddClick(Sender : TObject);
begin
(*
004C9464   55                     push    ebp
004C9465   8BEC                   mov     ebp, esp
004C9467   33C9                   xor     ecx, ecx
004C9469   51                     push    ecx
004C946A   51                     push    ecx
004C946B   51                     push    ecx
004C946C   51                     push    ecx
004C946D   53                     push    ebx
004C946E   8BD8                   mov     ebx, eax
004C9470   33C0                   xor     eax, eax
004C9472   55                     push    ebp

* Possible String Reference to: '橘