Les comento que cree un servidor para generación de documentos PDF a partir de archivos excel y .DAT, el caso es que al final de todo el proyecto necesito que me setee el autor del documento.
Recorriendo un poco encontre este metodo, pero no lo reconoce...Y no encuentro el metodo desde .NET para setear el autor al finalizar la creación del archivo.
Código:
Copio el codigo completo de la funcion...Hashtable.Add("Author", "Usuario")
stamp.setMoreInfo(info)
Código PHP:
Private Function DrawPDF(ByVal tagName As String, ByVal dleft As Long, ByVal dtop As Long, _
ByVal dwidth As Long, ByVal dheight As Long, _
ByVal iPageNumber As Integer, _
ByVal iCountPages As Integer, _
ByVal Filename As String, ByVal FileTpl As String, ByVal FileBackup As String, _
ByVal ParamArray list() As String) As Boolean
Try
Dim strText As String = ""
Dim outp As FileStream
Dim reader As PdfReader
Dim RangePag As String
'On Error Resume Next
If Not IO.File.Exists(FileBackup) Then
File.Copy(Filename, FileBackup) 'Trabaja sobre un backup del archivo.
End If
reader = New PdfReader(FileBackup) 'Lento.
RangePag = iPageNumber & "-" & iCountPages
outp = New FileStream(FileTpl, FileMode.Create, FileAccess.Write)
Dim stamp = New PdfStamper(reader, outp)
Dim field = PdfFormField.CreateTextField(stamp.Writer, False, False, 50)
'Dim Hashtable As New Hashtable()
field.SetWidget(New iTextSharp.text.Rectangle(dleft, dtop, dwidth, dheight), PdfAnnotation.APPEARANCE_NORMAL) 'field.SetWidget(new iTextSharp.text.Rectangle(69, 695, 120, 710), PdfAnnotation.APPEARANCE_NORMAL); //HIGHLIGHT_INVERT
'.............................................xi, yi, xf, yf
'.............................................left, top, width, height
'field.SetFieldFlags(PdfAnnotation.FLAGS_PRINT) 'FLAGS_PRINT //Visible but doesnt print
field.Flags = PdfAnnotation.FLAGS_PRINT '//use this for "Visible"
field.FieldName = Mid(tagName, 2, tagName.Length - 2)
field.Name = tagName 'Pruebas
field.UserName = tagName 'Pruebas
'Intento de setar no funciona..
'Hashtable.Add("Author", "Usuario")
stamp.setMoreInfo(info)
stamp.AddAnnotation(field, iPageNumber)
stamp.Close()
outp.Close()
reader.Close()
stamp = Nothing : outp = Nothing : reader = Nothing
File.Delete(FileBackup)
File.Copy(FileTpl, FileBackup)
Catch ex As Exception
Debug.Print(Err.Description)
If ObjXml.ObjConfig(11).param.ToUpper = "TRUE" Then SysEvent.registerEvent("ERROR [DrawPDF]:" & Err.Description & "-" & ex.Message, 2, Err.Number)
Err.Clear()
End Try
End Function
Si alguien me puede regalar un link y indicarme que propiedad buscar....
