RTF to text - error

[DotNetGnat]

Guys, i am trying to use the below code...

create function dbo.RTF2TXT(@in varchar(8000)) RETURNS  varchar(8000) AS 
BEGIN

DECLARE @object int
DECLARE @hr int
DECLARE @out varchar(8000)

-- Create an object that points to the SQL Server
EXEC @hr = sp_OACreate 'RICHTEXT.RichtextCtrl', @object OUT
EXEC @hr = sp_OASetProperty @object, 'TextRTF', @in
EXEC @hr = sp_OAGetProperty @object, 'Text', @out OUT
EXEC @hr = sp_OADestroy @object
return @out

END
GO

select dbo.RTF2TXT('{\rtf1\ansi\ansicpg1252\uc1 aaa}')

and i am getting "Class not licensed to use error"...

any suggestions...

-DNG

 

[SajidAttar]

for me function returned Null instead of aaa.


Regards,


"There are no secrets to success. It is the result of preparation, hard work, and learning from failure." -- Colin Powell

 

[Lekar]

For me the function returns aaa!!

Maybe it is a problem of the ocx on ur computer.

 

[DotNetGnat]

yes i needed to register RichTxt.ocx and i also needed to install VB on my machine to get it to work...

thanks guys...

-DNG