Programming Archives - 25 중 15 번째 페이지

File Upload 제작시에 파일 사이즈 3M 제한 풀기

<?xml version="1.0" encoding="utf-8"?>
<configuration>
    <system.webServer>
        <security>
            <requestFiltering>
                <requestLimits maxAllowedContentLength="104857600" />
            </requestFiltering>
        </security>
    </system.webServer>
</configuration>

<?xml version="1.0" encoding="utf-8"?>

<system.webServer>

</requestFiltering>

</security>

</system.webServer>

</configuration>

public static IWebHostBuilder CreateWebHostBuilder(string[] args) =>
    WebHost.CreateDefaultBuilder(args)
    .UseStartup<Startup>()
    .UseKestrel(options =>
    {
        options.Limits.MaxRequestBodySize = 52428800; //50MB
    });
}

public static IWebHostBuilder CreateWebHostBuilder(string[] args) =>

WebHost.CreateDefaultBuilder(args)

.UseStartup<Startup>()

.UseKestrel(options =>

{

options.Limits.MaxRequestBodySize = 52428800; //50MB

});

}

[HttpPost]
[RequestSizeLimit(40000000)]
public async Task<IActionResult> UploadFiles(IFormFile file)
{
   //TODO: Save file
}

[HttpPost]

[RequestSizeLimit(40000000)]

public async Task<IActionResult> UploadFiles(IFormFile file)

{

//TODO: Save file

}

위의 두 방법 보다는 file upload 하는 딱 그 함수만 제약을 거는것이 더 안전할것처럼 보인다.

CHtmlView의 C++에서 생성한 JScript를 모든 Frame에 대해 Inject하여 실행하기

출처] http://greenfishblog.tistory.com/46

CHtmlView(CDHtmlDialog, CHtmlDialog)등에서 HTML을 로드하여 실행하게 됩니다. 혹시 이런 생각을 해보신적 있는지요?

기존 HTML 소스에 동적으로 JScript를 추가하고, 그 함수를 호출받고 싶다… 단, 추가할 JScript 소스는 C++에서 명시적으로 정의한다.

즉, 동일한 URL에 대해 기존의 일반 웹 브라우저와 조금 다른 웹(즉, 뭐.. 화면 상단에 강제적인 버튼 추과와 그 처리등등…)을 표현하고 싶다. 즉, C++에서 DocumentComplete Timing때, […]

outlook내 icloud내 연락처의 표시방법 변경

Sub 표시방법변경()
    
    Dim objOL       As Outlook.Application
    Dim objNS       As Outlook.NameSpace
    Dim objContact  As Outlook.ContactItem
    Dim objItems    As Outlook.Items
    Dim objContactsFolder As Outlook.MAPIFolder
    Dim objICloudFolder As Outlook.MAPIFolder
    Dim obj         As Object
    Dim strFirstName As String
    Dim strLastName As String
    Dim strName     As String
    
    On Error Resume Next
    
    Set objOL = CreateObject("Outlook.Application")
    Set objNS = objOL.GetNamespace("MAPI")
    Set objICloudFolder = objNS.Folders("iCloud")
    Set objICloudContacts = objICloudFolder.Folders("연락처")
    Set objItems = objICloudContacts.Items
    
    For Each obj In objItems
        If obj.Class = olContact Then
            Set objContact = obj
            
            With objContact
                strFirstName = .FirstName
                strLastName = .LastName
                
                If (.FirstName <> "" And .LastName <> "") Then
                    .FullName = .LastName + .FirstName
                End If
                
                If (strLastName = "" And strFirstName = "") Then
                    strName = .CompanyName
                Else
                    strName = strLastName + strFirstName
                End If
                
                If (.JobTitle <> "인턴") Then
                    .FileAs = strName + IIf(.JobTitle <> "" And .FirstName <> "", " " + .JobTitle + "님", " 님")
                Else
                    .FileAs = strName + " 님"
                End If
                
                If (.Email1Address <> "" And strName <> "") Then
                    .Email1DisplayName = .FileAs
                End If
                
                If (.Email2Address <> "" And strName <> "") Then
                    .Email2DisplayName = .FileAs
                End If
                
                If (.Email3Address <> "" And strName <> "") Then
                    .Email3DisplayName = .FileAs
                End If
                
                .Save
            End With
        End If
        
        Err.Clear
    Next
    
    Set objOL = Nothing
    Set objNS = Nothing
    Set obj = Nothing
    Set objContact = Nothing
    Set objItems = Nothing
    Set objICloudFolder = Nothing
    Set objICloudContacts = Nothing
    
End Sub

Sub 표시방법변경()

Dim objOL As Outlook.Application

Dim objNS As Outlook.NameSpace

Dim objContact As Outlook.ContactItem

Dim objItems As Outlook.Items

Dim objContactsFolder As Outlook.MAPIFolder

Dim objICloudFolder As Outlook.MAPIFolder

Dim obj As Object

Dim strFirstName As String

Dim strLastName As String

Dim strName As String

On Error Resume Next

Set objOL = CreateObject("Outlook.Application")

Set objNS = objOL.GetNamespace("MAPI")

Set objICloudFolder = objNS.Folders("iCloud")

Set objICloudContacts = objICloudFolder.Folders("연락처")

Set objItems = objICloudContacts.Items

For Each obj In objItems

If obj.Class = olContact Then

Set objContact = obj

With objContact

strFirstName = .FirstName

strLastName = .LastName

If (.FirstName <> "" And .LastName <> "") Then

.FullName = .LastName + .FirstName

End If

If (strLastName = "" And strFirstName = "") Then

strName = .CompanyName

Else

strName = strLastName + strFirstName

End If

If (.JobTitle <> "인턴") Then

.FileAs = strName + IIf(.JobTitle <> "" And .FirstName <> "", " " + .JobTitle + "님", " 님")

Else

.FileAs = strName + " 님"

End If

If (.Email1Address <> "" And strName <> "") Then

.Email1DisplayName = .FileAs

End If

If (.Email2Address <> "" And strName <> "") Then

.Email2DisplayName = .FileAs

End If

If (.Email3Address <> "" And strName <> "") Then

.Email3DisplayName = .FileAs

End If

.Save

End With

End If

Err.Clear

Set objOL = Nothing

Set objNS = Nothing

Set obj = Nothing

Set objContact = Nothing

Set objItems = Nothing

Set objICloudFolder = Nothing

Set objICloudContacts = Nothing

End Sub

anydragon

참고자료

최신 글

보관함

File Upload 제작시에 파일 사이즈 3M 제한 풀기

CHtmlView의 C++에서 생성한 JScript를 모든 Frame에 대해 Inject하여 실행하기

outlook내 icloud내 연락처의 표시방법 변경

태그

링크

메타