Location:
Search - Memo1 delphi
Search list
Description: 关于tts语音引擎的使用方法!很多软件具有英文发音和朗读功能，它们都使用了MSTTS（Microsoft Text To Speech）技术。微软遵照COM的标准，提供了一套Speech API来对MSTTS进行编程。要在程序中使用这套API，必须确保系统已经安装了MSTTS和Spchapi软件包。
Speech API可以作为类型库引用到Delphi中，方法是：打开Project选单下的Import Type Litrary，点击“Add”加入Windows\\Speech目录下的Vtxauto.tlb文件，在Delphi的Import目录中就会生成VTxtAuto—TLB.pas文件，其中定义了VTxtAuto—TLB单元，把它加到Uses成员中来。设计如图2所示的窗口，定义全局变量：
var VoTxt：IVTxtAuto
然后在Form的OnCreate事件中加入：
VoTxt：=CoVTxtAuto_.Create
VoTxt.Register(′′,′Speech Test′) {注册}
“Read”按钮代码为：
VoTxt.Speak(Memo1.Lines.Text,10) {朗读}
“Stop”按钮代码为：
VoTxt.StopSpeaking {停止朗读}
至此，应用程序已具有朗读功能，10表示使用普通语气。借住VoTxt的属性和方法，我们还可以控制阅读速度和语气，实现暂停、跳句等功能，Speech API编程就这么简单。
-TTS voice on the use of the engine! Many software with English pronunciation and reading aloud function, they have used MSTTS (Microsoft Text To Speech) technology. Microsoft COM comply with the standards and provide a set of Speech API to right MSTTS program. The procedure to use this API, we must ensure that the system has been installed and Spchapi MSTTS package. Speech API can be used as a type library to Delphi, is : Open Project menu under the Import Type Litrary, click on the "Add" to join Windows \\ directory under the Speech Vtxauto.tlb documents in the Delphi Import directory will generate VTxtAuto - TLB.pas document, which will just a VTxtAuto - TLB units, it added Uses members to China. Figure 2 shows the design of windows, the definition of global variables : var VoTx
Platform: |
Size: 7931 |
Author: 章称 |
Hits:
Description: 关于tts语音引擎的使用方法!很多软件具有英文发音和朗读功能，它们都使用了MSTTS（Microsoft Text To Speech）技术。微软遵照COM的标准，提供了一套Speech API来对MSTTS进行编程。要在程序中使用这套API，必须确保系统已经安装了MSTTS和Spchapi软件包。
Speech API可以作为类型库引用到Delphi中，方法是：打开Project选单下的Import Type Litrary，点击“Add”加入Windows\Speech目录下的Vtxauto.tlb文件，在Delphi的Import目录中就会生成VTxtAuto—TLB.pas文件，其中定义了VTxtAuto—TLB单元，把它加到Uses成员中来。设计如图2所示的窗口，定义全局变量：
var VoTxt：IVTxtAuto
然后在Form的OnCreate事件中加入：
VoTxt：=CoVTxtAuto_.Create
VoTxt.Register(′′,′Speech Test′) {注册}
“Read”按钮代码为：
VoTxt.Speak(Memo1.Lines.Text,10) {朗读}
“Stop”按钮代码为：
VoTxt.StopSpeaking {停止朗读}
至此，应用程序已具有朗读功能，10表示使用普通语气。借住VoTxt的属性和方法，我们还可以控制阅读速度和语气，实现暂停、跳句等功能，Speech API编程就这么简单。
-TTS voice on the use of the engine! Many software with English pronunciation and reading aloud function, they have used MSTTS (Microsoft Text To Speech) technology. Microsoft COM comply with the standards and provide a set of Speech API to right MSTTS program. The procedure to use this API, we must ensure that the system has been installed and Spchapi MSTTS package. Speech API can be used as a type library to Delphi, is : Open Project menu under the Import Type Litrary, click on the "Add" to join Windows \ directory under the Speech Vtxauto.tlb documents in the Delphi Import directory will generate VTxtAuto- TLB.pas document, which will just a VTxtAuto- TLB units, it added Uses members to China. Figure 2 shows the design of windows, the definition of global variables : var VoTx
Platform: |
Size: 7168 |
Author: 章称 |
Hits:
Description: unit comm
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
SPComm, StdCtrls, ExtCtrls
type
TFcomm = class(TForm)
Comm1: TComm
GroupBox1: TGroupBox
Memo1: TMemo
Memo2: TMemo
GroupBox2: TGroupBox
Button1: TButton
Btn_send: TButton
Button2: TButton
procedure Button1Click(Sender: TObject)
procedure Button2Click(Sender: TObject)
procedure Btn_sendClick(Sender: TObject)
procedure Comm1ReceiveData(Sender: TObject Buffer: Pointer
BufferLength: Word)
private
{ Private declarations }
public
{ Public declarations }
end
Platform: |
Size: 152576 |
Author: liu |
Hits:
Description: 一个由Delphi语言所写的简单备忘录。-a memo system using Delphi
Platform: |
Size: 412672 |
Author: huang,mou |
Hits:
Description: 动态设置Memo控件边框的大小，Delphi代码，改变Memo组件的边框空隙，程序通过获取Memo1的矩形边界，更改Rect边界值，重绘Memo1的矩形边界。其效果类似CSS中的Padding，也就是区块边缘与正文边距之间的空隙。本代码可动态改变左边距和上边距中的Padding大小，你可以亲自操作一下试试效果。-Dynamic setting the Memo control the size of the border, Delphi code, change the the Memo component of border gap, procedure to obtain Memo1 rectangular boundary changes Rect boundary value to redraw Memo1 rectangular boundary. Its effect is similar to the Padding in the CSS, which is the gap between the edge of the block and the body margin. This code can be changed dynamically distance and Padding size of the top margin, you can hands to try the effect to the left.
Platform: |
Size: 5120 |
Author: 阿飞 |
Hits:
Description: 实现语音
Can you dynamically change designer localization as well as preview windows ?
How can you transfer an array of variables from Delphi into FR ?
During compilation of the project, a message shows ?Class TfrxButtonControl not found .
How can you code dataset navigation connected to the report but not connected to any band in report script ?
How can you use report converter - Report Builder- in FR ?
I try to set a Memo frame in script. I write Memo1.Frame.Typ := [ftLeft, ftRight, ftTop, ftBottom]. But I receive an error. Why ?
How to write Report title in preview window title ?
Where is zmManyPages 杕ode in report preview window ?
I lost object inspector (data tree, standard tools panel) in my report designer.
How can you put the last record into master data on a new page ?
How can I use report converter - QuickReport to FastReport?-Can you dynamically change designer localization as well as preview windows ?
How can you transfer an array of variables from Delphi into FR ?
During compilation of the project, a message shows ?Class TfrxButtonControl not found .
How can you code dataset navigation connected to the report but not connected to any band in report script ?
How can you use report converter- Report Builder- in FR ?
I try to set a Memo frame in script. I write Memo1.Frame.Typ := [ftLeft, ftRight, ftTop, ftBottom]. But I receive an error. Why ?
How to write Report title in preview window title ?
Where is zmManyPages 杕ode in report preview window ?
I lost object inspector (data tree, standard tools panel) in my report designer.
How can you put the last record into master data on a new page ?
How can I use report converter- QuickReport to FastReport?
Platform: |
Size: 304128 |
Author: wujxiong0001 |
Hits: