Helpful to verify reports of your own downtime, or to double check a downed website you are trying to access.
One of a set of tools we are providing to everyone as a way of saying thank you for being a part of the community.
The codes below save output to wave file. I got it from http://www.experts-exchange.com/Programming/Languages/Pascal/Delphi/Q_20642945.html. procedure TForm1.Button1Click(Sender: TObject); var SpFileStream1: TSpFileStream; SpVoice1: TSpVoice; FileName : TFileName; begin Button1.Caption := 'Working'; SpFileStream1 := TSpFilestream.Create(nil); FileName := 'E:\Test1.wav'; SpFileStream1.open(FileName, SSFMCreateForWrite, false); SPVoice1 := TSpVoice.Create(nil); SpVoice1.AudioOutputStream := SPFileStream1.DefaultInterface; SpVoice1.Speak('this is a test', SVSFDefault); SPFileStream1.Close; SPVoice1.Free; SpFileStream1.Free; Button1.Caption := 'done'; end;