Hi all.
I'm looking for the genius of all genius's!
I have wrtitten an DLL in VB to access a MS Word installation on a server to use its thesaurus components.
Why i hear you ask, well becuase the client insists it is needed!
Well, i have it working on my test server, and i also have it working locally. but it will just not work on the live server!
I get
DLLfile error '8001010a'
Automation error The message filter indicated that the application is busy.
/whatnow/thesaurus.asp, line 40
I have looked this up, and the only answers i find are to do with anti virus software, yet there are none installed. It just does not want to work!
The DLL Code:
Public Function SetWordForMeaning(Word)
'On Error Resume Next
Dim objMsWord As Word.Application
Set objMsWord = CreateObject("Word.Application"
objMsWord.Visible = True
objMsWord.WordBasic.FileNew 'open a doc
objMsWord.Visible = False 'hide the doc
Dim synInfo As SynonymInfo
Set synInfo = objMsWord.SynonymInfo(Word)
synList = synInfo.MeaningList
p_aryWords = synList
Set synInfo = Nothing
objMsWord.Quit
For Position = 0 To 1000
Next
Set objMsWord = Nothing
If UBound(p_aryWords) = 0 Then
EOF = True
Else
EOF = False
End If
Position = 1
intCount = UBound(p_aryWords)
End Function
Public Function GetCurrentMeaning()
GetCurrentMeaning = p_aryWords(Position)
End Function
Public Function MoveNext()
Position = Position + 1
If Position > intCount Then
EOF = True
End If
End Function
Thne ASP code:
Dim objMeaning
Set objMeaning = server.CreateObject("Kaleidoweb8.Thesaurus"
objMeaning.SetWordForMeaning ( request.Form( "word" ) )
Response.Write objMeaning.EOF
If objMeaning.EOF = True then
Response.Write "<tr><td>There are no words that match your criteria</td></tr>"
else
Response.Write "Similar Words..."
Do While Not objMeaning.EOF = True
Response.Write objMeaning.GetCurrentMeaning
objMeaning.MoveNext
Loop
end if
Anyone any clues?
Thanks
John
I'm looking for the genius of all genius's!
I have wrtitten an DLL in VB to access a MS Word installation on a server to use its thesaurus components.
Why i hear you ask, well becuase the client insists it is needed!
Well, i have it working on my test server, and i also have it working locally. but it will just not work on the live server!
I get
DLLfile error '8001010a'
Automation error The message filter indicated that the application is busy.
/whatnow/thesaurus.asp, line 40
I have looked this up, and the only answers i find are to do with anti virus software, yet there are none installed. It just does not want to work!
The DLL Code:
Public Function SetWordForMeaning(Word)
'On Error Resume Next
Dim objMsWord As Word.Application
Set objMsWord = CreateObject("Word.Application"
objMsWord.Visible = True
objMsWord.WordBasic.FileNew 'open a doc
objMsWord.Visible = False 'hide the doc
Dim synInfo As SynonymInfo
Set synInfo = objMsWord.SynonymInfo(Word)
synList = synInfo.MeaningList
p_aryWords = synList
Set synInfo = Nothing
objMsWord.Quit
For Position = 0 To 1000
Next
Set objMsWord = Nothing
If UBound(p_aryWords) = 0 Then
EOF = True
Else
EOF = False
End If
Position = 1
intCount = UBound(p_aryWords)
End Function
Public Function GetCurrentMeaning()
GetCurrentMeaning = p_aryWords(Position)
End Function
Public Function MoveNext()
Position = Position + 1
If Position > intCount Then
EOF = True
End If
End Function
Thne ASP code:
Dim objMeaning
Set objMeaning = server.CreateObject("Kaleidoweb8.Thesaurus"
objMeaning.SetWordForMeaning ( request.Form( "word" ) )
Response.Write objMeaning.EOF
If objMeaning.EOF = True then
Response.Write "<tr><td>There are no words that match your criteria</td></tr>"
else
Response.Write "Similar Words..."
Do While Not objMeaning.EOF = True
Response.Write objMeaning.GetCurrentMeaning
objMeaning.MoveNext
Loop
end if
Anyone any clues?
Thanks
John
