\u597d\u5427\uff0c\u58f0\u660e\u4e00\u4e0b\uff0c\u672c\u6587\u9700\u8981\u4fee\u6539RVMedia \u672c\u8eab\u7684\u6e90\u7801\uff0cRVMedia 4.0.2 \u672c\u8eab\u662f\u4e0d\u652f\u6301\u8fd9\u4e00\u529f\u80fd\u7684\uff0c\u6240\u4ee5\uff0c\u5982\u679c\u4f60\u60f3\u8981\u652f\u6301\u8fd9\u4e00\u529f\u80fd\uff0c\u9700\u8981\u5bf9 RVMedia \u6253\u8865\u4e01\u3002\u56e0\u4e3a\u4e0d\u60f3\u5bf9RVMedia \u8fdb\u884c\u5927\u624b\u672f\uff0c\u6240\u4ee5\u6539\u7684\u5185\u5bb9\u5c3d\u91cf\u5c11\uff0c\u5269\u4e0b\u7684\u4e8b\u60c5\u7531\u989d\u5916\u7684\u4e1c\u897f\u6765\u89e3\u51b3\uff1a<\/p>\n
1\u3001\u6253\u5f00 MRVTypes.pas\uff0c\u4e3a RVMedia \u6253\u7b2c 1 \u5904\u8865\u4e01\uff1a<\/p>\n
1.1\u3001\u627e\u5230\u00a0TCustomRVMicrophone\uff0c\u5728\u5176\u524d\u9762\u5b9a\u4e49\u4e00\u4e2a\u4e8b\u4ef6\u7c7b\u578b\uff1a<\/p>\n
TRVWaveBufferReadyEvent = procedure(Sender: TObject; AData: PByte;ALen: Integer) of object;<\/pre>\n\u8fd9\u4e2a\u4e8b\u4ef6\u7c7b\u578b\uff0c\u7528\u4e8e\u5c06\u6355\u83b7\u5230\u7684 WAV \u6570\u636e\u4f20\u7ed9\u4e8b\u4ef6\u7684\u54cd\u5e94\u51fd\u6570\u4e2d\u3002<\/p>\n
1.2\u3001\u4e3a TCustomRVMicrophone \u589e\u52a0\u4e00\u4e2a\u4e8b\u4ef6\uff0c\u53ca\u89e6\u53d1\u4e8b\u4ef6\u7684\u63a5\u53e3\u51fd\u6570 BufferReady\uff1a<\/p>\n
protected\r\n FOnBufferReady: TRVWaveBufferReadyEvent;\r\n procedure BufferReady(ABuf: PByte; ASize: Integer);\r\npublished\r\n property OnBufferReady: TRVWaveBufferReadyEvent read FOnBufferReady write FOnBufferReady;<\/pre>\n1.3\u3001\u5728 BufferReady \u51fd\u6570\u4e2d\u6dfb\u52a0\u4e0b\u9762\u7684\u4ee3\u7801\uff1a<\/p>\n
procedure TCustomRVMicrophone.BufferReady(ABuf: PByte; ASize: Integer);\r\nbegin\r\n if Assigned(FOnBufferReady) then\r\n FOnBufferReady(Self, ABuf, ASize);\r\nend;<\/pre>\n3\u3001\u5b9e\u73b0\u4e0b\u9762\u7684\u7c7b\uff0c\u7528\u4e8e\u5b8c\u6210\u5f55\u5236\u97f3\u9891\u6570\u636e\u5230 WAV \u6587\u4ef6\u7684\u5c01\u88c5\u3002<\/p>\n
uses ...,MRVWinMicrophone, MRVMicrophone, MRVWavFile;\r\ntype\r\n TRVWaveRecorder = class\r\n private\r\n FWaveHeader: TWaveHeader;\r\n FDataHeader: TDataHeader;\r\n FWaveStream: TFileStream;\r\n FWaveFile: String;\r\n FMicrophone: TCustomRVMicrophone;\r\n procedure DoBufferReady(ASender: TObject; ABuf: PByte; ALen: Integer);\r\n function GetDuration: Integer;\r\n function GetWaveFile: String;\r\n procedure SetMicrophone(const Value: TCustomRVMicrophone);\r\n procedure SetWaveFile(const Value: String);\r\n procedure PrepareWaveFile;\r\n public\r\n constructor Create; overload;\r\n destructor Destroy; override;\r\n procedure Start;\r\n procedure Stop;\r\n property Microphone: TCustomRVMicrophone read FMicrophone\r\n write SetMicrophone;\r\n property WaveFile: String read FWaveFile write SetWaveFile;\r\n property Duration: Integer read GetDuration;\r\n end;\r\n\r\n{ TRVWaveRecorder }\r\n\r\nconstructor TRVWaveRecorder.Create;\r\nbegin\r\n\r\nend;\r\n\r\ndestructor TRVWaveRecorder.Destroy;\r\nbegin\r\n Stop;\r\n if Assigned(FMicrophone) then\r\n FMicrophone.OnBufferReady := nil;\r\n inherited;\r\nend;\r\n\r\nprocedure TRVWaveRecorder.DoBufferReady(ASender: TObject; ABuf: PByte;\r\n ALen: Integer);\r\nbegin\r\n if Assigned(FWaveStream) then\r\n begin\r\n Inc(FDataHeader.DataLen, ALen);\r\n FWaveStream.WriteBuffer(ABuf^, ALen);\r\n end;\r\nend;\r\n\r\nfunction TRVWaveRecorder.GetDuration: Integer;\r\nbegin\r\n if FWaveHeader.BytesPerSec <> 0 then\r\n Result := FDataHeader.DataLen div FWaveHeader.BytesPerSec\r\n else\r\n Result := 0;\r\nend;\r\n\r\nfunction TRVWaveRecorder.GetWaveFile: String;\r\nbegin\r\n if Assigned(FWaveStream) then\r\n Result := FWaveStream.Filename\r\n else\r\n SetLength(Result, 0);\r\nend;\r\n\r\nprocedure TRVWaveRecorder.PrepareWaveFile;\r\nbegin\r\n if not Assigned(FWaveStream) then\r\n FWaveStream := TFileStream.Create(FWaveFile, fmCreate)\r\n else if FWaveStream.Filename <> FWaveFile then\r\n begin\r\n FreeAndNil(FWaveStream);\r\n FWaveStream := TFileStream.Create(FWaveFile, fmCreate);\r\n end;\r\n FWaveStream.Size := 0;\r\n with FWaveHeader do\r\n begin\r\n idRiff := 'RIFF';\r\n RiffLen := 38;\r\n idWave := 'WAVE';\r\n idFmt := 'fmt ';\r\n InfoLen := 16;\r\n WaveType := 1;\r\n Ch := 1;\r\n case Microphone.SamplesPerSec of\r\n rvsps8000:\r\n Freq := 8000;\r\n rvsps11025:\r\n Freq := 11025;\r\n rvsps22050:\r\n Freq := 22050;\r\n rvsps44100:\r\n Freq := 44100;\r\n end;\r\n case Microphone.BitsPerSample of\r\n rvbps8:\r\n Bits := 8;\r\n rvbps16:\r\n Bits := 16;\r\n end;\r\n BytesPerSec := Freq * Bits div 8;\r\n align := Bits div 8;\r\n end;\r\n FWaveStream.WriteBuffer(FWaveHeader, SizeOf(TWaveHeader));\r\n FDataHeader.idData := 'data';\r\n FDataHeader.DataLen := 0;\r\n FWaveStream.WriteBuffer(FDataHeader, SizeOf(FDataHeader));\r\nend;\r\n\r\nprocedure TRVWaveRecorder.SetMicrophone(const Value: TCustomRVMicrophone);\r\nbegin\r\n if FMicrophone <> Value then\r\n begin\r\n if Assigned(FMicrophone) then\r\n FMicrophone.OnBufferReady := nil;\r\n FMicrophone := Value;\r\n if Assigned(FMicrophone) then\r\n begin\r\n FMicrophone.OnBufferReady := DoBufferReady;\r\n if FMicrophone.Active then\r\n PrepareWaveFile;\r\n end;\r\n end;\r\nend;\r\n\r\nprocedure TRVWaveRecorder.SetWaveFile(const Value: String);\r\nvar\r\n ARecording: Boolean;\r\nbegin\r\n if Value <> WaveFile then\r\n begin\r\n if Assigned(FMicrophone) then\r\n begin\r\n ARecording := Microphone.Active;\r\n Microphone.Active := False;\r\n end\r\n else\r\n ARecording := False;\r\n if Assigned(FWaveStream) then\r\n FreeAndNil(FWaveStream);\r\n FWaveFile := Value;\r\n if ARecording then\r\n Start;\r\n end;\r\nend;\r\n\r\nprocedure TRVWaveRecorder.Start;\r\nbegin\r\n if Assigned(Microphone) then\r\n begin\r\n PrepareWaveFile;\r\n Microphone.Active := True;\r\n end;\r\nend;\r\n\r\nprocedure TRVWaveRecorder.Stop;\r\nbegin\r\n if Assigned(Microphone) then\r\n begin\r\n Microphone.Active := False;\r\n FWaveStream.Position := 0;\r\n FWaveHeader.RiffLen := FWaveStream.Size - 8;\r\n FWaveStream.WriteBuffer(FWaveHeader, SizeOf(FWaveHeader));\r\n FWaveStream.WriteBuffer(FDataHeader, SizeOf(FDataHeader));\r\n FreeAndNil(FWaveStream);\r\n end;\r\nend;<\/pre>\n2\u3001\u6253\u5f00\u00a0MRVWinMicrophone.pas \u6587\u4ef6\uff0c\u6253\u7b2c 2 \u5904\u8865\u4e01\uff1a<\/p>\n
2.1\u3001\u627e\u5230\u00a0RecorderCallBack \u51fd\u6570\uff1b<\/p>\n
2.2\u3001\u627e\u5230 with \u540e\u9762\u7684\u8bed\u53e5\uff0c\u52a0\u5165\u5bf9 BufferReady \u7684\u8c03\u7528\uff1a<\/p>\n
...\r\nwith Microphone do\r\n begin\r\n if not Active then\r\n exit;\r\n Microphone.BufferReady(PByte(FWaveHdr.lpData),FWaveHdr.dwBufferLength);\/\/<<<\u52a0\u5165\u8fd9\u4e00\u884c\r\n<\/pre>\n3\u3001OK\uff0c\u73b0\u5728\u4e00\u5207\u5df2\u7ecf\u5c31\u7eea\uff0c\u53ef\u4ee5\u521b\u5efa\u4e00\u4e2a TRVWaveRecorder \u7684\u5b9e\u4f8b\uff0c\u7136\u540e\u5f55\u5236\u97f3\u9891\u4e86\u3002<\/p>\n
FWaveRecorder := TRVWaveRecorder.Create;\r\nFWaveRecorder.Microphone := mpSource;\r\n\/\/\u5f00\u59cb\u5f55\u5236\u89c6\u9891\r\nFWaveRecorder.WaveFile:=APath + TempFileName + '.wav';\r\nFWaveRecorder.Start;\r\n...\r\n\/\/\u505c\u6b62\u5f55\u5236\u89c6\u9891\r\nFWaveRecorder.Stop;<\/pre>\n\u8fd9\u6837\uff0c\u97f3\u9891\u80fd\u591f\u6355\u83b7\uff0c\u89c6\u9891\u4e5f\u80fd\u591f\u6293\u53d6\uff0c\u6700\u7ec8\u4e5f\u5c31\u80fd\u5f62\u6210\u97f3\u9891\u548c\u89c6\u9891\u6df7\u5408\u7684mp4\u7b49\u683c\u5f0f\u4e86\uff0c\u5177\u4f53\u8fd9\u91cc\u5c31\u4e0d\u518d\u9610\u8ff0\u4e86\u3002<\/p>\n
<\/p>\n","protected":false},"excerpt":{"rendered":"
\u597d\u5427\uff0c\u58f0\u660e\u4e00\u4e0b\uff0c\u672c\u6587\u9700\u8981\u4fee\u6539RVMedi […]<\/p>\n","protected":false},"author":1,"featured_media":0,"comment_status":"open","ping_status":"open","sticky":false,"template":"","format":"standard","meta":{"site-sidebar-layout":"default","site-content-layout":"","ast-site-content-layout":"default","site-content-style":"default","site-sidebar-style":"default","ast-global-header-display":"","ast-banner-title-visibility":"","ast-main-header-display":"","ast-hfb-above-header-display":"","ast-hfb-below-header-display":"","ast-hfb-mobile-header-display":"","site-post-title":"","ast-breadcrumbs-content":"","ast-featured-img":"","footer-sml-layout":"","ast-disable-related-posts":"","theme-transparent-header-meta":"","adv-header-id-meta":"","stick-header-meta":"","header-above-stick-meta":"","header-main-stick-meta":"","header-below-stick-meta":"","astra-migrate-meta-layouts":"default","ast-page-background-enabled":"default","ast-page-background-meta":{"desktop":{"background-color":"var(--ast-global-color-4)","background-image":"","background-repeat":"repeat","background-position":"center center","background-size":"auto","background-attachment":"scroll","background-type":"","background-media":"","overlay-type":"","overlay-color":"","overlay-opacity":"","overlay-gradient":""},"tablet":{"background-color":"","background-image":"","background-repeat":"repeat","background-position":"center center","background-size":"auto","background-attachment":"scroll","background-type":"","background-media":"","overlay-type":"","overlay-color":"","overlay-opacity":"","overlay-gradient":""},"mobile":{"background-color":"","background-image":"","background-repeat":"repeat","background-position":"center center","background-size":"auto","background-attachment":"scroll","background-type":"","background-media":"","overlay-type":"","overlay-color":"","overlay-opacity":"","overlay-gradient":""}},"ast-content-background-meta":{"desktop":{"background-color":"var(--ast-global-color-5)","background-image":"","background-repeat":"repeat","background-position":"center center","background-size":"auto","background-attachment":"scroll","background-type":"","background-media":"","overlay-type":"","overlay-color":"","overlay-opacity":"","overlay-gradient":""},"tablet":{"background-color":"var(--ast-global-color-5)","background-image":"","background-repeat":"repeat","background-position":"center center","background-size":"auto","background-attachment":"scroll","background-type":"","background-media":"","overlay-type":"","overlay-color":"","overlay-opacity":"","overlay-gradient":""},"mobile":{"background-color":"var(--ast-global-color-5)","background-image":"","background-repeat":"repeat","background-position":"center center","background-size":"auto","background-attachment":"scroll","background-type":"","background-media":"","overlay-type":"","overlay-color":"","overlay-opacity":"","overlay-gradient":""}},"footnotes":""},"categories":[8,21],"tags":[504,530,529],"class_list":["post-3380","post","type-post","status-publish","format-standard","hentry","category-delphi","category-misc","tag-rvmedia","tag-wav","tag-529"],"views":3021,"_links":{"self":[{"href":"https:\/\/blog.qdac.cc\/index.php?rest_route=\/wp\/v2\/posts\/3380","targetHints":{"allow":["GET"]}}],"collection":[{"href":"https:\/\/blog.qdac.cc\/index.php?rest_route=\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/blog.qdac.cc\/index.php?rest_route=\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/blog.qdac.cc\/index.php?rest_route=\/wp\/v2\/users\/1"}],"replies":[{"embeddable":true,"href":"https:\/\/blog.qdac.cc\/index.php?rest_route=%2Fwp%2Fv2%2Fcomments&post=3380"}],"version-history":[{"count":3,"href":"https:\/\/blog.qdac.cc\/index.php?rest_route=\/wp\/v2\/posts\/3380\/revisions"}],"predecessor-version":[{"id":3383,"href":"https:\/\/blog.qdac.cc\/index.php?rest_route=\/wp\/v2\/posts\/3380\/revisions\/3383"}],"wp:attachment":[{"href":"https:\/\/blog.qdac.cc\/index.php?rest_route=%2Fwp%2Fv2%2Fmedia&parent=3380"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/blog.qdac.cc\/index.php?rest_route=%2Fwp%2Fv2%2Fcategories&post=3380"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/blog.qdac.cc\/index.php?rest_route=%2Fwp%2Fv2%2Ftags&post=3380"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}