| | '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 |