lector de texto SAPI.SpVoice

[Neftali [Germán.Estévez]]

Ejecuta paso a paso y al llegar a esa línea revisa que todo esté asignado correctamente.
Normalmente estos errores son por acceder a un elemento que apunta a nil.

[koiji]

Revise el codigo varias veces y no encontre ningun error simplemente al compilar me manda el error " Access violatio at address 004BA755 in module 'Project3.exe'. Read of address 00000000. " el codigo completo de lo que estoy haciendo es este talves puede ser porque estar utilizando delphi 2010 porque vi que esta compilado en delphi2007

Código Delphi [-]

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, OleServer, SpeechLib_TLB, ActiveX, ComObj, ComCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    Memo1: TMemo;
    cbVoices: TComboBox;
    lstEngineInfo: TListBox;
    Button2: TButton;
    reText: TEdit;
    SpVoice: TSpVoice;
    tbRate: TTrackBar;
    lblRate: TLabel;
    tbVolume: TTrackBar;
    lblVolume: TLabel;
    lstProgress: TProgressBar;
    procedure Button1Click(Sender: TObject);
    procedure cbVoicesChange(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var BeenPaused : Boolean;
begin
  if not BeenPaused then
    SpVoice.Speak(reText.Text, SVSFlagsAsync)
  else
  begin
    SpVoice.Resume;
    BeenPaused := False
  end
end;

procedure TForm1.cbVoicesChange(Sender: TObject);
var
  SOToken: ISpeechObjectToken;
begin
  with lstEngineInfo.Items do
  begin
    Clear;
    SOToken := ISpeechObjectToken(Pointer(
      cbVoices.Items.Objects[cbVoices.ItemIndex]));
    SpVoice.Voice := SOToken;
    Add(Format('Name: %s', [SOToken.GetAttribute('Name')]));
    Add(Format('Vendor: %s', [SOToken.GetAttribute('Vendor')]));
    Add(Format('Age: %s', [SOToken.GetAttribute('Age')]));
    Add(Format('Gender: %s', [SOToken.GetAttribute('Gender')]));
    Add(Format('Language: %s', [SOToken.GetAttribute('Language')]));
    Add(Format('Reg key: %s', [SOToken.Id]));
  end
end;

procedure TForm1.FormCreate(Sender: TObject);
var
  I: Integer;
  SOToken: ISpeechObjectToken;
  SOTokens: ISpeechObjectTokens;
begin
  SendMessage(lstProgress.Handle, LB_SETHORIZONTALEXTENT, Width, 0);
  //Ensure all events fire
  SpVoice.EventInterests := SVEAllEvents;
  //Log('About to enumerate voices');
  SOTokens := SpVoice.GetVoices('', '');
  for I := 0 to SOTokens.Count - 1 do
  begin
    //For each voice, store the descriptor in the TStrings list
    SOToken := SOTokens.Item(I);
    cbVoices.Items.AddObject(SOToken.GetDescription(0), TObject(SOToken));
    //Increment descriptor reference count to ensure it's not destroyed
    SOToken._AddRef;
  end;
  if cbVoices.Items.Count > 0 then
  begin
    cbVoices.ItemIndex := 0; //Select 1st voice
    cbVoices.OnChange(cbVoices); //& ensure OnChange triggers
  end;
  //Log('Enumerated voices');
  //Log('About to check attributes');
  tbRate.Position := SpVoice.Rate;
  lblRate.Caption := IntToStr(tbRate.Position);
  tbVolume.Position := SpVoice.Volume;
  lblVolume.Caption := IntToStr(tbVolume.Position);
  //Log('Checked attributes');
end;

procedure TForm1.FormDestroy(Sender: TObject);
var
  I: Integer;
begin
  //Release all the voice descriptors
  for I := 0 to cbVoices.Items.Count - 1 do
    ISpeechObjectToken(Pointer(cbVoices.Items.Objects[i]))._Release;
end;


end.

[Neftali [Germán.Estévez]]

Empezado por koiji

Revise el codigo varias veces y no encontre ningun error simplemente al compilar me manda el error " Access violatio at address 004BA755 in module 'Project3.exe'. Read of address 00000000. "

¿Al compilar o al ejecutar?

[koiji]

Empezado por Neftali

¿Al compilar o al ejecutar?

al compilar y al ejecutar cualquiera de los 2 eso es muy raro porque error de codigo no visualizo tengo instalado el componente speech

1.- al compilar me manda a la linea de codigo

Código Delphi [-]
Add(Format('Name: %s', [SOToken.GetAttribute('Name')]));

2.- al ejecutar solo el error pero me muestra el listbox con las voces pero cuando selecciono alguno tambien me manda el mismo error en ejecución

[koiji]

Empezado por koiji

al compilar y al ejecutar cualquiera de los 2 eso es muy raro porque error de codigo no visualizo tengo instalado el componente speech

1.- al compilar me manda a la linea de codigo

Código Delphi [-]
Add(Format('Name: %s', [SOToken.GetAttribute('Name')]));

2.- al ejecutar solo el error pero me muestra el listbox con las voces pero cuando selecciono alguno tambien me manda el mismo error en ejecución

Neftali usted me podra colaborar con este error que no e podido solucionar de cambio de voces

Código Delphi [-]
Add(Format('Name: %s', [SOToken.GetAttribute('Name')]));

[Neftali [Germán.Estévez]]

Empezado por koiji

al compilar y al ejecutar cualquiera de los 2 eso es muy raro porque error de codigo no visualizo tengo instalado el componente speech

1.- al compilar me manda a la linea de codigo

Código Delphi [-]
Add(Format('Name: %s', [SOToken.GetAttribute('Name')]));

2.- al ejecutar solo el error pero me muestra el listbox con las voces pero cuando selecciono alguno tambien me manda el mismo error en ejecución

¿Qué error te devuelve al compilar?
No entiendo que puedas ejecutarlo si no consigues compilarlo. Debes estar ejecutando algo anterior.
Hay que centrarse en el punto 1.