Web bileşenin özelliklerin aspx kodu olarak yazan sınıf

CodeProject

Imports System.Web
Imports System.Web.UI
   Public Class ControlDesignerParser
        Public Shared Function ParseControl(ByVal argControl As System.Web.UI.Control, ByVal prefix As String) As String
            Dim _t As System.Type = argControl.GetType
            Dim xNas As System.Xml.Linq.XNamespace = XNamespace.Get("http://www.adasoft.com.tr/yilmaz")
            Dim xNam As XName = XName.Get(_t.Name, xNas.NamespaceName)
            Dim ele As System.Xml.Linq.XElement = New System.Xml.Linq.XElement(xNam, "")
            Dim att As XAttribute = New XAttribute(XNamespace.Xmlns + prefix, xNas.NamespaceName)
            ele.Add(att)
            ParseInnerProps(ele, _t, argControl)
            Return ele.ToString.Replace(att.ToString, "")
        End Function
        Private Shared Sub ParseInnerProps(ByRef root As System.Xml.Linq.XElement, ByRef _t As System.Type, ByVal argObject As Object)
            For Each pi As System.Reflection.PropertyInfo In _t.GetProperties
                Dim ca2() As System.Attribute = pi.GetCustomAttributes(GetType(System.Web.UI.PersistenceModeAttribute), True)
                Dim isInner As Boolean = False
                Dim ca As System.Attribute() = pi.GetCustomAttributes(GetType(System.ComponentModel.DefaultValueAttribute), True)
                If ca.Length = 1 Then
                    If ca2.Length = 1 Then
                        isInner = True
                    Else
                        Dim oval As Object = DirectCast(ca(0), System.ComponentModel.DefaultValueAttribute).Value
                        Dim val As Object = pi.GetValue(argObject, Nothing)
                        If Not oval Is Nothing AndAlso Not Object.Equals(oval, val) Then
                            root.SetAttributeValue(pi.Name, pi.GetValue(argObject, Nothing).ToString)
                        End If
                    End If
                Else
                    If ca2.Length = 1 Then
                        isInner = True
                    End If
                End If
                If isInner Then
                    If ca2.Length = 1 Then
                        Dim mode As System.Web.UI.PersistenceMode = DirectCast(ca2(0), System.Web.UI.PersistenceModeAttribute).Mode
                        If mode = PersistenceMode.InnerDefaultProperty Or mode = PersistenceMode.InnerProperty Then
                            Dim x2 As System.Xml.Linq.XElement = New System.Xml.Linq.XElement(pi.Name)
                            ParseInnerProps(x2, pi.PropertyType, pi.GetValue(argObject, Nothing))
                            root.Add(x2)
                        End If
                    End If
                End If
            Next
        End Sub

    End Class

Full Text Catalog PDF arama

CodeProject

• Önce
  http://www.adobe.com/support/downloads/detail.jsp?ftpID=2611 adresindeki PDF IFilter kurulur.
  


• SQL servisi yeniden başlatılır


• Unsigned binaries'in kullanımına izin verilen SQL Kodu çalıştırılır:
  
  exec sp_fulltext_service 'verify_signature',0;


• FTC için sistem bileşenleri yüklenir:
  
  exec sp_fulltext_service 'load_os_resources',1;


• PDF 'in listelendiği kontrol edilir:
  
  exec sp_help_fulltext_system_components 'all';
  

Filmlerin Sonundaki Kısaltmalar

Birçok filmlerde kişilerin sonunda A.C.E.,A.S.C. gibi kısaltmalar bulunuyor.
Merak ettim bu kısaltmalar nedir/ne değildir diye..
Ufak bir araştırma ile

• A.S.C = American Society of Cinematographers


• A.C.E. = American Cinema Editors

sonuçları çıktı..