| 'Create personalizer object and Session object |
| Dim pers As New PersonalizerRef.Personalizer()
|
| Dim sess As New SessionRef.Session()
|
| Dim SessionID As
String = "" |
| Try |
| SessionID = pers.CreateSession("LogonName", "Password") |
| 'Read file (file.wav) from disk |
| Dim fstream As
FileStream = File.OpenRead("file.wav") |
| Dim bytedata(fstream.Length) As
Byte |
| Dim readcnt As
Long = fstream.Read(bytedata,0,bytedata.Length) |
| fstream.Close() |
| 'Get Files Object |
| Dim objFiles As New FilesRef.Files()
|
| 'Get Files object ID |
| Dim FilesID As
String = sess.GetFiles(SessionID) |
| 'Create file |
| objFiles.CreateFile(FilesID, "filename.wav", "speak prompt", bytedata) |
| Dim FileName As
String |
| 'Get first filename |
| FileName=objFiles.GetFirstFile(FilesID) |
| While FileName <> "" |
| 'Print file name |
| Console.WriteLine("Found File=" & FileName) |
| FileName = objFiles.GetNextFile(FilesID) |
| End While |
| sess.Release(SessionID) |
| Catch e As Exception |
| 'Print exception message e.Message |
| sess.Release(SessionID) |
| End Try |