?? videounit.pas
字號:
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
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -