박군의 사진, 일상, IT 이야기

Public Const BUFFERSIZE = 255
Public Const INTERNET_FLAG_PASSIVE = &H8000000
Public Const FTP_TRANSFER_TYPE_BINARY = &H2
Public Const FTP_TRANSFER_TYPE_ASCII = &H1
Public Const GENERIC_READ = &H80000000
Public Const GENERIC_WRITE = &H40000000
Public Const INTERNET_OPEN_TYPE_PRECONFIG = 0

Public Declare Function InternetConnect Lib "wininet.dll" Alias "InternetConnectA" (ByVal hInternetSession As Long, ByVal sServerName As String, ByVal nServerPort As Integer, ByVal sUsername As String, ByVal sPassword As String, ByVal lService As Long, ByVal lFlags As Long, ByVal lContext As Long) As Long
Public Declare Function InternetOpen Lib "wininet.dll" Alias "InternetOpenA" (ByVal sAgent As String, ByVal lAccessType As Long, ByVal sProxyName As String, ByVal sProxyBypass As String, ByVal lFlags As Long) As Long
Public Declare Function InternetCloseHandle Lib "wininet.dll" (ByVal hInet As Long) As Long
Public Declare Function FtpSetCurrentDirectory Lib "wininet.dll" Alias "FtpSetCurrentDirectoryA" (ByVal hFtpSession As Long, ByVal lpszDirectory As String) As Boolean
Public Declare Function FtpOpenFile Lib "wininet.dll" Alias "FtpOpenFileA" (ByVal hFtpSession As Long, ByVal sBuff As String, ByVal Access As Long, ByVal Flags As Long, ByVal Context As Long) As Long
Public Declare Function InternetReadFile Lib "wininet.dll" (ByVal hFile As Long, ByRef sBuffer As Byte, ByVal lNumBytesToRead As Long, dwNumberOfBytesRead As Long) As Integer
Public Declare Function InternetWriteFile Lib "wininet.dll" (ByVal hFile As Long, ByRef sBuffer As Byte, ByVal lNumBytesToWrite As Long, dwNumberOfBytesWritten As Long) As Integer

Public hOpen As Long
Public hConnection As Long
Public hFile As Long
Public dwType As Long
Public dwSeman As Long

 ' FTP서버 접속
Public Function FtpOpen(strIP As String, strPort As String, strUser As String, strPassword As String) As Boolean
  
    '기존에 이미 접속되어 있으면 기존 접속 종료
    If hConnection <> 0 Then InternetCloseHandle hConnection
  
    '접속에대한 핸들링값 얻음
    hOpen = InternetOpen("FTP Module", INTERNET_OPEN_TYPE_PRECONFIG, vbNullString, vbNullString, 0)
  
    '접속시도
    hConnection = InternetConnect(hOpen, strIP, strPort, strUser, strPassword, 1, INTERNET_FLAG_PASSIVE, 0)
  
    '==== 접속이 되었다면 기본적인 값을 설정해준다.
    If hConnection <> 0 Then
        FtpOpen = True
        dwType = FTP_TRANSFER_TYPE_BINARY
        dwSeman = INTERNET_FLAG_PASSIVE
    End If
  
End Function

'파일 업로드
Public Function FTPUpload(strLocal As String, strRemote As String, objTarget As Object) As Boolean
  
    Dim Data(BUFFERSIZE - 1) As Byte
    Dim Written As Long
    Dim lonSize As Long
    Dim Sum As Long
    Dim lBlock As Long
   
    Sum = 0
    lBlock = 0
   
    FTPUpload = False
   
    '프로그레스바 폼 호출
    objTarget.Show
   
    '로컬파일이나 원격파일 파라미터가 공백인지 체크
    If strLocal <> "" And strRemote <> "" Then
   
        hFile = FtpOpenFile(hConnection, strRemote, GENERIC_WRITE, dwType, 0)
   
        If hFile = 0 Then Exit Function
   
        Open strLocal For Binary Access Read As #1
   
        lonSize = FileLen(strLocal)
        objTarget.PBar.Max = lonSize
   
   
        For lBlock = 1 To lonSize \ BUFFERSIZE
       
            Get #1, , Data
       
            If (InternetWriteFile(hFile, Data(0), BUFFERSIZE, Written) = 0) Then Exit Function
       
            DoEvents
       
            Sum = Sum + BUFFERSIZE
            objTarget.PBar.Value = Sum
            DoEvents
       
        Next
       
        Get #1, , Data
   
        If (InternetWriteFile(hFile, Data(0), lonSize Mod BUFFERSIZE, Written) = 0) Then Exit Function
   
        Sum = Sum + (lonSize Mod BUFFERSIZE)
        lonSize = Sum
   
        Close #1
       
        InternetCloseHandle (hFile)
        FTPUpload = True
   
    End If
 
End Function

2.1 GridView에 정렬 기능 추가를 위해 다음과 같이 설정

        <asp:GridView ID="grdResult" runat="server" AllowSorting="True" 
              OnSorting="grdResult_Sorting" PageSize="30"></asp:GridView>

         - AllowSorting : 정렬 기능을 허용할지 설정(True, False)
         - OnSorting : 정렬 기능을 처리할 이벤트 함수

    2.2 OnSorting 이벤트에 대한 함수 정의

         protected void grdResult_Sorting(object sender, GridViewSortEventArgs e)
         {
              string sortExpression = e.SortExpression;

              // GridView 헤더 클릭할 때마다 정렬 방향 설정
              if (GridViewSortDirection == SortDirection.Ascending)
              {
                   GridViewSortDirection = SortDirection.Descending;
                   SortGridView(sortExpression, "DESC");   // 현재 클릭한 헤더 정보와 정렬 방향(DESC) 정보를
                                                                             // Sorting 처리 함수에 전달
              }
             else
             {
                   GridViewSortDirection = SortDirection.Ascending;
                   SortGridView(sortExpression, "ASC");    // 현재 클릭한 헤더 정보와 정렬 방향(ASC) 정보를
                                                                            // Sorting 처리 함수에 전달
             }
         }

         // 정렬 방향 설정
         private SortDirection GridViewSortDirection
        {
             get
             {
                   if (ViewState["sortDirection"] == null)
                         ViewState["sortDirection"] = SortDirection.Ascending;

                   return (SortDirection)ViewState["sortDirection"];
              }
 
              set { ViewState["sortDirection"] = value; }

        }

        // GridView 정렬 적용
        private void SortGridView(string sortExpression, string direction)
       {
            DataTable dt = GetDataSet().Tables[0];
            DataView dv = new DataView(dt);
            dv.Sort = sortExpression + " " + direction;
            grdResult.DataSource = dv;
            grdResult.DataBind();
        }

3.1 GridView에 편집/삭제 기능을 추가하기 위해 aspx 소스에서 다음과 같이 설정

        <asp:GridView ID="gridDetail" runat="server" AutoGenerateColumns="false"                   
             OnRowDeleting="gridDetail_RowDeleting" OnRowEditing="gridDetail_RowEditing"
             OnRowUpdating="gridDetail_RowUpdating" OnRowCancelingEdit="gridDetail_RowCancelingEdit">
          <Columns>
             <asp:TemplateField HeaderText="ITEM">
                <EditItemTemplate>
                   <asp:TextBox ID="txtItem" runat="server" Text='<%# Eval("data") %>' Width="150px">          
                   </asp:TextBox>
                </EditItemTemplate>
                <ItemTemplate>
                    <asp:Label ID="lblItem" runat="server" Text='<%# Eval("data") %>'></asp:Label>
                </ItemTemplate>
            </asp:TemplateField>
            <asp:TemplateField HeaderText="편집">
                <EditItemTemplate>
                    <asp:ImageButton ID="imgBtnUpdate" runat="server" CausesValidation="True" CommandName="Update" ImageUrl="/img/btn/update.gif"></asp:ImageButton>
                    <asp:ImageButton ID="imgBtnCancel" runat="server" CausesValidation="False" CommandName="Cancel" ImageUrl="/img/btn/btn_can.gif"></asp:ImageButton>
                </EditItemTemplate>
                <ItemTemplate>
                    <asp:ImageButton ID="imgBtnEdit" runat="server" CausesValidation="False" CommandName="Edit" ImageUrl="/img/btn/btn_mod.gif"></asp:ImageButton>
                    <asp:ImageButton ID="imgBtnDelete" runat="server" CausesValidation="False" CommandName="Delete" ImageUrl="/img/btn/delete.gif"></asp:ImageButton>
                </ItemTemplate>
                <ItemStyle Width="160px" />
            </asp:TemplateField>
         </Columns>
    </asp:GridView>

     - TemplateField : 사용자 정의 필드
     - EditItemTeamplate : 편집 상태일 때 보여줄 필드
     - ItemTemplate : 편집 상태가 아닌 일반 화면일 때 보여주는 필드
     - OnRowDeleting : GridView에 선택 행 삭제할 때 발생하는 이벤트
     - OnRowEditing : GridView에서 편집 버튼을 클릭했을 때 발생하는 이벤트
     - OnRowUpdating : GridView에서 Update 버튼을 클릭했을 때 발생하는 이벤트
     - OnRowCancelingEdit : GridView에서 편집 취소 버튼을 클릭했을 때 발생하는 이벤트

 3.2 3.1에 정의한 각 이벤트에 대한 이벤트를 aspx.cs 소스에 정의

      // GridView 편집 전환
      protected void gridDetail_RowEditing(object sender, GridViewEditEventArgs e)
      {
          gridDetail.EditIndex = e.NewEditIndex;   // 현재 편집을 선택한 행의 Index 설정

          gridDetail.DataSource = GetDataSet();   // DataSet 객체 얻어와서 GridView 객체에 설정
          gridDetail.DataBind();                         // GridView를 다시 재바인딩
      }

      // GridView 데이터 수정
      protected void gridDetail_RowUpdating(object sender, GridViewUpdateEventArgs e)
     {
          int idx = e.RowIndex;     // 현재 수정버튼을 클릭한 행의 Index를 얻어옴

          // 다음과 같이 GridView의 해당 Index에 대한 데이터를 얻어옴
          String data = ((TextBox)gridDetail.Rows[idx].FindControl("data")).Text;

          // DB에 저장하는 코드 부분을 이곳에 정의

          gridDetail.EditIndex = -1;        // 처리 후 -1로 설정하는 이유는 저장 처리 후 다시 일반화면으로
                                                    // 전환하기 위함.
          gridDetail.DataSource = GetDataSet();   // DataSet 객체 얻어와서 GridView 객체에 설정
         gridDetail.DataBind();                         // GridView를 다시 재바인딩
      }

      // GridView 수정 취소
      protected void gridDetail_RowCancelingEdit(object sender, GridViewCancelEditEventArgs e)
      {
          gridDetail.EditIndex = -1;        // -1로 설정하는 이유는 일반화면으로 전환하기 위함.

          gridDetail.DataSource = GetDataSet();   // DataSet 객체 얻어와서 GridView 객체에 설정
         gridDetail.DataBind();                         // GridView를 다시 재바인딩
      }

      // GridView Row 삭제 이벤트
      protected void gridDetail_RowDeleting(object sender, GridViewDeleteEventArgs e)
      {
         int idx = e.RowIndex;     // 현재 삭제 버튼을 클릭한 행의 Index를 얻어옴

         // 다음과 같이 GridView의 해당 Index에 대한 데이터를 얻어옴
         String data = ((TextBox)gridDetail.Rows[idx].FindControl("data")).Text;

         // DB에서 삭제하는 코드 부분을 이곳에 정의

         gridDetail.EditIndex = -1;        // 처리 후 -1로 설정하는 이유는 저장 처리 후 다시 일반화면으로
                                                   // 전환하기 위함.
         gridDetail.DataSource = GetDataSet();   // DataSet 객체 얻어와서 GridView 객체에 설정
         gridDetail.DataBind();                         // GridView를 다시 재바인딩
     }

<?xml version="1.0" encoding="utf-8"?>
<mx:WindowedApplication xmlns:mx="http://www.adobe.com/2006/mxml" layout="absolute" creationComplete="selectCity()" fontFamily="Arial" fontSize="11" width="100%" height="100%" viewSourceURL="srcview/index.html">
    <mx:Script>
        <![CDATA[
            import mx.rpc.events.FaultEvent;
            import mx.rpc.events.ResultEvent;
            import mx.utils.ArrayUtil;
            import mx.collections.ArrayCollection;
            import mx.controls.Alert;
            import mx.rpc.http.HTTPService;
            
            private function selectCity():void {
                var curCity:String = cbCity.selectedItem.data;
                
                var svHTTP:HTTPService = new HTTPService();
                
                svHTTP.url = "http://www.google.co.kr/ig/api?weather=" + curCity;
                
                svHTTP.addEventListener(ResultEvent.RESULT, resultHandler);
                svHTTP.addEventListener(FaultEvent.FAULT, faultHandler);
                svHTTP.send();
            }
            
            public function resultHandler(event:ResultEvent):void {
                var resultAC:ArrayCollection = (event.result.xml_api_reply.weather is ArrayCollection) ?
                            event.result.xml_api_reply.weather as ArrayCollection :
                            new ArrayCollection(ArrayUtil.toArray(event.result.xml_api_reply.weather));
                            
                if(resultAC.getItemAt(0).problem_cause != null) {
                    Alert.show(resultAC.getItemAt(0).problem_cause.data);
                    
                    curInfo.text = "";
                    curIcon.load(null);
                } else {
                    // 현재 날씨 정보
                    currentWeatherInfo(resultAC.getItemAt(0));
                    
                    // 오늘 날씨 정보
                    todayDispWeatherInfo(resultAC.getItemAt(0));
                    
                    // 다음 날씨 정보
                    next1DispWeatherInfo(resultAC.getItemAt(0));
                    
                    // 이틀 째 날씨 정보
                    next2DispWeatherInfo(resultAC.getItemAt(0));
                    
                    // 삼일째 날씨 정보 Display
                    next3DispWeatherInfo(resultAC.getItemAt(0));
                }
            }
            
            // 현재 날씨 정보 Display
            private function currentWeatherInfo(params:Object):void {
                var txtValue:String = "";
                
                txtValue = txtValue + "현재 : " + params.current_conditions.condition.data;
                txtValue = txtValue + ", " + params.current_conditions.temp_c.data + "℃";
                txtValue = txtValue + ", " + params.current_conditions.humidity.data;
                txtValue = txtValue + ", " + params.current_conditions.wind_condition.data;
                
                curInfo.text = txtValue;
                curIcon.load("http://www.google.co.kr/ig" + params.current_conditions.icon.data);
            }
            
            // 오늘 날씨 정보 Display
            private function todayDispWeatherInfo(params:Object):void {
                lbToday.text = params.forecast_conditions[0].day_of_week.data;
                
                todayIcon.load("http://www.google.co.kr/ig" + params.forecast_conditions[0].icon.data);
                todayIcon.toolTip = params.forecast_conditions[0].condition.data;
                
                lbTodayTemp.text = params.forecast_conditions[0].low.data + "℃ | " + params.forecast_conditions[0].high.data + "℃";
            }
            
            // 다음 날씨 정보 Display
            private function next1DispWeatherInfo(params:Object):void {
                lbNext1.text = params.forecast_conditions[1].day_of_week.data;
                
                next1Icon.load("http://www.google.co.kr/ig" + params.forecast_conditions[1].icon.data);
                next1Icon.toolTip = params.forecast_conditions[1].condition.data;
                
                lbNext1Temp.text = params.forecast_conditions[1].low.data + "℃ | " + params.forecast_conditions[1].high.data + "℃";
            }
            
            // 이틀째 날씨 정보 Display
            private function next2DispWeatherInfo(params:Object):void {
                lbNext2.text = params.forecast_conditions[2].day_of_week.data;
                
                next2Icon.load("http://www.google.co.kr/ig" + params.forecast_conditions[2].icon.data);
                next2Icon.toolTip = params.forecast_conditions[2].condition.data;
                
                lbNext2Temp.text = params.forecast_conditions[2].low.data + "℃ | " + params.forecast_conditions[2].high.data + "℃";
            }
            
            // 삼일째 날씨 정보 Display
            private function next3DispWeatherInfo(params:Object):void {
                lbNext3.text = params.forecast_conditions[3].day_of_week.data;
                
                next3Icon.load("http://www.google.co.kr/ig" + params.forecast_conditions[3].icon.data);
                next3Icon.toolTip = params.forecast_conditions[3].condition.data;
                
                lbNext3Temp.text = params.forecast_conditions[3].low.data + "℃ | " + params.forecast_conditions[3].high.data + "℃";
            }
            
            public function faultHandler(event:FaultEvent):void {
                Alert.show(event.fault.message);
            }
        ]]>
    </mx:Script>
    <mx:Model id="cityData">
        <Cities>
            <City label="서울" data="Seoul"/>
            <City label="대구" data="Daegu"/>
            <City label="부산" data="Busan"/>
            <City label="광주" data="GwangJu"/>
            <City label="대전" data="Daejeon"/>
            <City label="전주" data="Jeonju"/>
            <City label="원주" data="Wonju"/>
            <City label="청주" data="Chungju"/>
            <City label="포항" data="Pohang"/>
            <City label="성남" data="Songnam"/>
            <City label="수원" data="Suwon"/>
            <City label="상주" data="Sangju"/>
            <City label="김해" data="Gimhae"/>
            <City label="인천" data="Incheon"/>
            <City label="울산" data="Ulsan"/>
            <City label="창원" data="Changwon"/>
            <City label="천안" data="Cheonan"/>
            <City label="안양" data="Anyang"/>
            <City label="안산" data="Ansan"/>
            <City label="춘천" data="Chuncheon"/>
            <City label="제주" data="Jeju"/>
            <City label="여수" data="Yeosu"/>
            <City label="안동" data="Andong"/>
            <City label="양산" data="Yangsan"/>
            <City label="태안" data="Taean"/>
            <City label="진주" data="Jinju"/>
            <City label="진해" data="Chinhae"/>
            <City label="의정부" data="Uijongbu"/>
            <City label="평택" data="Pyongtaek"/>
            <City label="오산" data="Osan"/>
            <City label="순천" data="Sunchon"/>
            <City label="당진" data="Dangjin"/>
            <City label="마산" data="Masan"/>
            <City label="군산" data="Gunsan"/>
            <City label="목포" data="Mokpo"/>
            <City label="동해" data="Tonghae"/>
            <City label="구미" data="Gumi"/>
            <City label="삼척" data="Samchok"/>
        </Cities>
    </mx:Model>
    <mx:ArrayCollection id="myAC" source="{ArrayUtil.toArray(cityData.City)}"/>
    <mx:ComboBox x="10" y="10" width="81" enabled="true" id="cbCity" dataProvider="{myAC}" change="selectCity()"></mx:ComboBox>
    <mx:Button x="99" y="11" label="Refresh Weather Info" id="btnRefresh" enabled="true" click="selectCity()"/>
    <mx:TextInput x="10" y="42" width="283" id="curInfo" editable="false" enabled="true"/>
    <mx:VBox x="10" y="85" height="107" width="67">
        <mx:Label width="100%" enabled="true" textAlign="center" id="lbToday"/>
        <mx:Image id="todayIcon" verticalAlign="middle" horizontalAlign="center" width="66"/>
        <mx:Label width="100%" textAlign="center" id="lbTodayTemp"/>
    </mx:VBox>
    <mx:Image x="301" y="34" id="curIcon"/>
    <mx:VBox x="85" y="85" height="107" width="67">
        <mx:Label id="lbNext1" enabled="true" width="100%" textAlign="center"/>
        <mx:Image id="next1Icon" width="66" horizontalAlign="center" verticalAlign="middle"/>
        <mx:Label id="lbNext1Temp" width="100%" textAlign="center"/>
    </mx:VBox>
    <mx:VBox height="107" width="67" x="160" y="85">
        <mx:Label id="lbNext2" enabled="true" width="100%" textAlign="center"/>
        <mx:Image id="next2Icon" width="66" horizontalAlign="center" verticalAlign="middle"/>
        <mx:Label id="lbNext2Temp" width="100%" textAlign="center"/>
    </mx:VBox>
    <mx:VBox height="107" width="67" x="235" y="85">
        <mx:Label id="lbNext3" enabled="true" width="100%" textAlign="center"/>
        <mx:Image id="next3Icon" width="66" horizontalAlign="center" verticalAlign="middle"/>
        <mx:Label id="lbNext3Temp" width="100%" textAlign="center"/>
    </mx:VBox>
</mx:WindowedApplication>