webcamUnit.pas
上传用户：gdszzsp
上传日期：2007-01-08
资源大小：621k
文件大小：51k
- unit webcamUnit;
- interface
- uses
- Windows, Messages, SysUtils, Classes, Graphics,
- Controls, Forms, Dialogs, StdCtrls, ExtCtrls, ScktComp;
- type
- Twebcam=class(TForm)
- CaptionLabel: TLabel;
- CloseButton: TFlatSpeedButton;
- Shape1: TShape;
- Image1: TImage;
- button1: TOutlookBtn;
- button2: TOutlookBtn;
- Label1: TLabel;
- RxSpinEdit: TRxSpinEdit;
- websock: TClientSocket;
- doit: TTimer;
- procedure button1Click(Sender: TObject);
- procedure CaptionLabelMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X: Integer; Y: Integer);
- procedure CaptionLabelMouseMove(Sender: TObject; Shift: TShiftState; X: Integer; Y: Integer);
- procedure CaptionLabelMouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X: Integer; Y: Integer);
- procedure CloseButtonClick(Sender: TObject);
- procedure doitTimer(Sender: TObject);
- procedure FormCreate(Sender: TObject);
- procedure FormPaint(Sender: TObject);
- procedure FormResize(Sender: TObject);
- procedure FormShow(Sender: TObject);
- procedure RxSpinEditChange(Sender: TObject);{?}
- procedure websockConnect(Sender: TObject; Socket: TCustomWinSocket);
- procedure websockRead(Sender: TObject; Socket: TCustomWinSocket);
- private
- { Private declarations }
- public
- { Public declarations }
- end ;
- var
- webcam: Twebcam;
- {This file is generated by DeDe v2.34 (c) 1999 by DaFixer}
- implementation
- {$R *.DFM}
- procedure Twebcam.button1Click(Sender: TObject);
- begin
- {
- 004DE698 53 push ebx
- 004DE699 8BD8 mov ebx, eax
- 004DE69B 83BBF402000000 cmp dword ptr [ebx+$02F4], +$00
- 004DE6A2 7509 jnz 004DE6AD
- 004DE6A4 8BC3 mov eax, ebx
- 004DE6A6 E831FEFFFF call 004DE4DC
- 004DE6AB EB07 jmp 004DE6B4
- 004DE6AD 8BC3 mov eax, ebx
- 004DE6AF E848FFFFFF call 004DE5FC
- 004DE6B4 8B83F4020000 mov eax, [ebx+$02F4]
- 004DE6BA 83F801 cmp eax, +$01
- 004DE6BD 1BC0 sbb eax, eax
- 004DE6BF F7D8 neg eax
- 004DE6C1 F6D8 neg al
- 004DE6C3 1BC0 sbb eax, eax
- 004DE6C5 8983F4020000 mov [ebx+$02F4], eax
- 004DE6CB 5B pop ebx
- 004DE6CC C3 ret
- }
- end ;
- procedure Twebcam.CaptionLabelMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X: Integer; Y: Integer);
- begin
- {
- 004DE3F0 55 push ebp
- 004DE3F1 8BEC mov ebp, esp
- 004DE3F3 53 push ebx
- 004DE3F4 8BD8 mov ebx, eax
- 004DE3F6 8B83C4020000 mov eax, [ebx+$02C4]
- 004DE3FC 8B4024 mov eax, [eax+$24]
- 004DE3FF E8D8E0F5FF call 0043C4DC
- 004DE404 50 push eax
- * Reference to: SHBrowseForFolderA.SetCapture
- |
- 004DE405 E86E94F2FF call 00407878
- 004DE40A C783F4020000FFFFFFFF mov dword ptr [ebx+$02F4], $FFFFFFFF
- 004DE414 8B450C mov eax, [ebp+$0C]
- 004DE417 8983EC020000 mov [ebx+$02EC], eax
- 004DE41D 8B4508 mov eax, [ebp+$08]
- 004DE420 8983F0020000 mov [ebx+$02F0], eax
- 004DE426 5B pop ebx
- 004DE427 5D pop ebp
- 004DE428 C20C ret $0C
- }
- end ;
- procedure Twebcam.CaptionLabelMouseMove(Sender: TObject; Shift: TShiftState; X: Integer; Y: Integer);
- begin
- {
- 004DE42C 55 push ebp
- 004DE42D 8BEC mov ebp, esp
- 004DE42F 53 push ebx
- 004DE430 56 push esi
- 004DE431 8BD8 mov ebx, eax
- 004DE433 83BBF402000000 cmp dword ptr [ebx+$02F4], +$00
- 004DE43A 7433 jz 004DE46F
- 004DE43C 8B83C4020000 mov eax, [ebx+$02C4]
- 004DE442 8B7024 mov esi, [eax+$24]
- 004DE445 8B83EC020000 mov eax, [ebx+$02EC]
- 004DE44B 2B450C sub eax, dword ptr [ebp+$0C]
- 004DE44E 8B5630 mov edx, [esi+$30]
- 004DE451 2BD0 sub edx, eax
- 004DE453 8BC6 mov eax, esi
- 004DE455 E8527AF5FF call 00435EAC
- 004DE45A 8B83F0020000 mov eax, [ebx+$02F0]
- 004DE460 2B4508 sub eax, dword ptr [ebp+$08]
- 004DE463 8B5634 mov edx, [esi+$34]
- 004DE466 2BD0 sub edx, eax
- 004DE468 8BC6 mov eax, esi
- 004DE46A E8617AF5FF call 00435ED0
- 004DE46F 5E pop esi
- 004DE470 5B pop ebx
- 004DE471 5D pop ebp
- 004DE472 C208 ret $08
- }
- end ;
- procedure Twebcam.CaptionLabelMouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X: Integer; Y: Integer);
- begin
- {
- 004DE478 55 push ebp
- 004DE479 8BEC mov ebp, esp
- 004DE47B 53 push ebx
- 004DE47C 56 push esi
- 004DE47D 8BD8 mov ebx, eax
- 004DE47F 83BBF402000000 cmp dword ptr [ebx+$02F4], +$00
- 004DE486 7440 jz 004DE4C8
- 004DE488 8B83C4020000 mov eax, [ebx+$02C4]
- 004DE48E 8B7024 mov esi, [eax+$24]
- * Reference to: SHBrowseForFolderA.ReleaseCapture
- |
- 004DE491 E89293F2FF call 00407828
- 004DE496 33C0 xor eax, eax
- 004DE498 8983F4020000 mov [ebx+$02F4], eax
- 004DE49E 8B83EC020000 mov eax, [ebx+$02EC]
- 004DE4A4 2B450C sub eax, dword ptr [ebp+$0C]
- 004DE4A7 8B5630 mov edx, [esi+$30]
- 004DE4AA 2BD0 sub edx, eax
- 004DE4AC 8BC6 mov eax, esi
- 004DE4AE E8F979F5FF call 00435EAC
- 004DE4B3 8B83F0020000 mov eax, [ebx+$02F0]
- 004DE4B9 2B4508 sub eax, dword ptr [ebp+$08]
- 004DE4BC 8B5634 mov edx, [esi+$34]
- 004DE4BF 2BD0 sub edx, eax
- 004DE4C1 8BC6 mov eax, esi
- 004DE4C3 E8087AF5FF call 00435ED0
- 004DE4C8 5E pop esi
- 004DE4C9 5B pop ebx
- 004DE4CA 5D pop ebp
- 004DE4CB C20C ret $0C
- }
- end ;
- procedure Twebcam.CloseButtonClick(Sender: TObject);
- begin
- {
- 004DE3DC 53 push ebx
- 004DE3DD 8BD8 mov ebx, eax
- 004DE3DF 8BC3 mov eax, ebx
- 004DE3E1 E816020000 call 004DE5FC
- 004DE3E6 8BC3 mov eax, ebx
- 004DE3E8 E88F16F7FF call 0044FA7C
- 004DE3ED 5B pop ebx
- 004DE3EE C3 ret
- }
- end ;
- procedure Twebcam.doitTimer(Sender: TObject);
- begin
- {
- 004DEB14 55 push ebp
- 004DEB15 8BEC mov ebp, esp
- 004DEB17 6A00 push $00
- 004DEB19 6A00 push $00
- 004DEB1B 53 push ebx
- 004DEB1C 8BD8 mov ebx, eax
- 004DEB1E 33C0 xor eax, eax
- 004DEB20 55 push ebp
- * Possible String Reference to: "槿J
English
