[Delphi 2005] precitanie textu nefunguje

[palooo]

v clankoch na zive som nasiel tento kod, ktory umoznuje precitanie textu, vyzera to velmi jednoducho ale nechcelo to fungovat v Delphi 2005 poznate nejaku inu alternativu tohto kodu?

Kód: Vybrat vše

unit Unit1;

interface

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

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

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
  voice: OLEVariant;
begin
  voice := CreateOLEObject('SAPI.SpVoice');
  voice.Speak('Happy new year', 0);
end;

end.

// Howard - upraven titulek, prečti si pravidla sekce

[Trebus]

"Nechtelo to fungovat" znamena co? Ze to nejde zkompilovat nebo program jede, ale nic nedela? Nezda se mi, ze by OLE objekty byly nejak zavisle na verzi Delphi.

[m9p]

do uses pridaj ComObj a ide to uplne pekne. ked je podciarknuta funkcia vlnovkou, tak to znamena, ze bud si ju napisal chybne alebo ju compiler nepozna, cize treba doplnit do uses unit v ktorom sa dana funkcia nachadza.

+ v Delphi je velmi kvalitny help staci stlacit F1 a dat si vyhladat co ta zaujima.