Jannah Theme License is not validated, Go to the theme options page to validate the license, You need a single license for each domain name.
DelphiPemrograman

Aplikasi Text To Speech Delphi #114

Kereta api berjalan di atas rel

andrypein.net : Mengambil dari blog mas fajar di http://delphiscript.blogspot.com/ kayanya sederhana juga keren.

Lumayan lah kita bisa buat sopwer kecil2an yang bisa ngomong kaya si mikrosop Sam di control panel wkwkkwkw.

Aplikasi text to speech delphi ini akan menggantikan mikrosop sam (nyoba).

Ok lanjut kita tes di real coding nya saja.

text to speech delphi
ternyata eror, krna works du win xp

Bahannya sederhana ko kita hanya butuh 1 button dan 1 edit text ya da nyobain atuh namanya juga.

Langkah membuatnya kita tambahkan uses Comobj pada bagian uses nya, lalu tambahkan variabel global dengan tipe variant.

Untuk lebih lengkap rekan-rekan bisa lihat source di bawah ini :

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Comobj, StdCtrls;

type
  TForm1 = class(TForm)
    Edit1: TEdit;
    Button1: TButton;
    procedure FormCreate(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  spvoice : variant;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
  spvoice:=createoleobject('SAPI.spvoice');
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  spvoice.speak(edit1.Text);
end;

end.

jika di run maka aplikasi mu akan berbicara sesuai text.

Gas donlod gan apps text to speech delphi nya.

Download

*AFK

Related Articles

5 Comments

Tinggalkan Balasan

Alamat email Anda tidak akan dipublikasikan. Ruas yang wajib ditandai *

Back to top button