clsPDFFile.cls

VERSION 1.0 CLASS
BEGIN
  MultiUse = -1  'True
END
Attribute VB_Name = "clsPDFFile"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
' ==================================================================
' EJEMPLO DE IMPLEMENTACIÓN FUTURA
' ==================================================================
' Demuestra cómo clsFileManager puede gestionar diferentes tipos
' de archivos sin modificar su código
' ==================================================================

' ==================================================================
' USO DESDE clsFileManager
' ==================================================================
' Dim pdfFile As clsPDFFile
' Set pdfFile = New clsPDFFile
' pdfFile.BindTo "C:\Oportunidades\ABC\documento.pdf"
'
' ' FileManager lo trackea sin saber que es PDF
' mFileMgr.TrackFile pdfFile
' ==================================================================

'@Folder "2-Servicios.Archivos.Tipos de archivos"
'@Implements IFile
Option Explicit

Private p_filePath As String
Private p_fileInfo As Object                     ' Podría ser metadatos del PDF
Private p_ObjectKey As Double

' Implementación de IFile
Private Property Get IFile_ObjectKey() As Double
    IFile_ObjectKey = p_ObjectKey
End Property

Private Property Get IFile_Path() As String
    IFile_Path = p_filePath
End Property

Private Property Get IFile_Name() As String
    Dim fso As Object
    Set fso = CreateObject("Scripting.FileSystemObject")
    IFile_Name = fso.GetFileName(p_filePath)
End Property

' Propiedades públicas
Public Property Get ObjectKey() As Double
    ObjectKey = p_ObjectKey
End Property

Public Property Get Path() As String
    Path = p_filePath
End Property

Public Property Get Name() As String
    Name = IFile_Name
End Property

' Método específico de PDF
Public Sub BindTo(filePath As String)
    If p_ObjectKey <> 0 Then
        Err.Raise vbObjectError + 580, TypeName(Me), "Ya está asociado a un archivo."
    End If
    
    Dim fso As Object
    Set fso = CreateObject("Scripting.FileSystemObject")
    
    If Not fso.FileExists(filePath) Then
        Err.Raise vbObjectError + 581, TypeName(Me), "El archivo no existe."
    End If
    
    p_filePath = filePath
    ' Para archivos en disco, usar hash del path como ObjectKey
    p_ObjectKey = GetPathHashCode(filePath)
End Sub

' Helper para generar ObjectKey consistente desde path
Private Function GetPathHashCode(Path As String) As Double
    ' Implementación simple: sum de códigos ASCII
    Dim i As Long, hash As Double
    For i = 1 To Len(Path)
        hash = hash + Asc(Mid(Path, i, 1)) * i
    Next i
    GetPathHashCode = hash
End Function

' Métodos específicos de PDF
Public Function ExtractText() As String
    ' Implementación futura: usar librería de PDF
End Function

Public Function GetPageCount() As Long
    ' Implementación futura
End Function