INTEGRATION: CWS c16v002_SRC680 (1.14.134); FILE MERGED

2007/12/03 14:42:54 bc 1.14.134.1: #b6633533# Replaced deprecated service call

wizards/source/tools/UCB.xba

@@ -40,7 +40,7 @@ Dim sFileArray(StartUbound,1) as String
 	DirIndex = 0
 	sDirArray(iDirIndex) = AnchorDir
 	iDirCount = 1
-	oDocInfo = CreateUnoService("com.sun.star.document.DocumentProperties")
+	oDocInfo = CreateUnoService("com.sun.star.document.StandaloneDocumentInfo")
 	oUcbObject = createUnoService("com.sun.star.ucb.SimpleFileAccess")
 	If oUcbObject.Exists(AnchorDir) Then
 		Do
@@ -146,7 +146,7 @@ End Sub
 Function RetrieveDocTitle(oDocInfo as Object, sFileName as String) As String
 Dim sDocTitle as String
 	On Local Error Goto NOFILE
-	oDocInfo.Read(sFileName)
+	oDocInfo.loadFromUrl(sFileName)
 	sDocTitle = oDocInfo.Title
 	NOFILE:
 	If Err <> 0 Then
@@ -165,7 +165,7 @@ End Function
 ' from the Header of the document
 Function GetRealFileContent(oDocInfo as Object, FileName as String) As String
 	On Local Error Goto NOFILE
-	oDocInfo.Read(FileName)
+	oDocInfo.loadFromUrl(FileName)
 	GetRealFileContent = oDocInfo.MIMEType
 	NOFILE:
 	If Err <> 0 Then