자유롭게 질의 및 응답을 할 수 있는 게시판입니다. 개발자 여러분의 답변이 큰 도움이 됩니다. 

• 제품설치/등록 오류 문의: 설치/등록 Q&A 이용 (제품 구매 고객 한정)

• 전체
• Delphi
• C++ Builder
• RadPHP
• Firemonkey
• Interbase
• 도서

Delphi XML 호출해서 사용하는 프로그램인데 윈도우플랫폼에서는 잘되는데 안드로이드 플랫폼에서 오류남

2017.11.17 14:35

SHWOO 조회 수:512

본 게시판은 개발자들이 자유롭게 질문과 답변을 공유하는 게시판입니다.
* 따라서 최대한 정중하게 질문을 올려 주세요.
* 질문을 상세히 작성해 주실 수록 좋은 답변이 올라 옵니다.
* 바쁜 와중에도 답변을 주시는 분들께 감사 댓글 필수
-----------------------------------------------------------------------------------------------

 

미들웨어로 XML을 받아서 델파이 10.1 베를린 에서 구현

 

  코드 입력후 검색버튼 클릭하면 코드명 표시해주는 프로그램 입니다.

     코드: 105146

     코드명:  [삭제]드립서버300ML[어라운지]EA   

 

1. 윈도우 플랫폼에서 프로그램 실행을 하고 

   코드: 105146 입력 => 검색버튼 클릭

   "[삭제]드립서버300ML[어라운지]EA"  로 정상적으로 표시되는데

 

   플랫폼을 안드로이드로 변경하고

   스마트폰에서 프로그램실행해서 검색버튼을 클릭하면 <그림2>와 같이 오류가 나는데 여러방법을 사용해봐도 

   해결이 안되어서 문의드립니다.

    

 

<그림1> 플랫폼 윈도우에서 실행 

 

 

<그림2> 플랫폼: 안드로이드에서 실행하고 검색버튼을 클릭하면 오류남

 

 

 

------- source ---------------

 

procedure TForm1.Button1Click(Sender: TObject);

var

  L_IPGO_CNF, gLOGIN_CHEK,Maeil_URL : String;

 

  XMLBodyNode, XMLDataNode, XMLListNode, XMLRowNode, XMLColumnNode: IXMLNode;

  Node: IXMLNode;

 

  PutData : TStringStream;

  DResult : TStringStream;

  Indy    : TIdHTTP;

 

  ii, iCnt : integer;

  Key_Name, Key_Value : String;

  L_RETN_VLUE : String;

 

  XMLRqst     : String; // 170921

  IdCookieManager: TIdCookieManager; // 170921

begin

  XMLRqst := '<root company="belvew"/>'; // 170921

  Maeil_URL  := 'http://url-ip/DelphiCommand';

 

  if ED_ITM_CD.Text = '' then

  begin

    ED_ITM_NM.Text := '';

    Exit;

  end;

 

  PutData := TStringStream.Create();

  DResult := TStringStream.Create(XMLRqst, TEncoding.UTF8); // UTF8

 

  Indy := TIdHttp.Create;

  Indy.CookieManager   := idCookieManager;

  Indy.ReadTimeout     := 60000;{ IdTimeoutInfinite; }    // 170921

  Indy.ConnectTimeout  := 60000;                          // 170921

  Indy.HandleRedirects := True;                           // 170921

  Indy.Compressor := TIdCompressorZLib.Create(Indy);      // 170921

 

  Try

    Memo1.Lines.text := 'SELECT NVL(ITM_CD,' + '''' + 'Z' + '''' + ')' + ' ITM_CD' +

    ' ,NVL(ITM_NM,' + '''' + 'Z' + ''''+ ')' + ' ITM_NM' +

    ' FROM A_ITM_TEST' +

    ' WHERE ITM_CD = ' + ''''+ ED_ITM_CD.Text + '''';

 

 

    // 각 인자들을 &로 연결시켜줍니다.

    Indy.Request.ContentType := 'application/x-www-form-urlencoded';

    gLOGIN_CHEK := '&user_idid=' + '12352' + '&sabn_pswd=' + '11';

    PutData.WriteString('command=DelphiQueryCommand' + gLOGIN_CHEK +'&query=' + HTTPEncode(Memo1.Text));

    // POST시킵니다. 리턴된 결과 XML은 DResult에 저장됩니다.

    Indy.Post(Maeil_URL,PutData,DResult);

 

    XMLDoc.LoadFromStream(DResult); //===> 이부분에서 오류납니다.

 

    XMLDoc.Active:=True;

    XMLBodyNode:= XMLDoc.ChildNodes.FindNode('result');

    XMLDataNode:= XMLBodyNode.ChildNodes.FindNode('status_detail');

    XMLListNode:= XMLDataNode.ChildNodes.FindNode('list');

 

 

    for ii := 0 to XMLBodyNode.ChildNodes.Count - 1 do

    begin

      Memo1.Lines.Add('i');

      if XMLBodyNode.ChildNodes.Nodes[ii].NodeName = 'status'  then

      begin

        if XMLBodyNode.ChildNodes.Nodes[ii].NodeValue = 'OK' then

        begin

            //처리로직

          if XMLListNode.ChildNodes.Count > 0 then

          begin

            XMLRowNode:= XMLListNode.ChildNodes.FindNode('row');

 

            repeat

 

              begin

                XMLColumnNode:= XMLRowNode.ChildNodes.FindNode('column');

 

                repeat

                  Key_Name := '';

                  Key_Value := '';

 

                  Key_Name := XMLColumnNode.AttributeNodes.Get(0).NodeValue;

                  Key_Value := XMLColumnNode.ChildNodes[0].NodeValue;

 

                  if UpperCase(Key_Name) = 'ITM_CD' then

                  begin

                    if Key_Value = 'Z' then ED_ITM_CD.Text := ''

                    else ED_ITM_CD_1.Text := Key_Value;

                  end

                  else

                  if UpperCase(Key_Name) = 'ITM_NM' then

                  begin

                    if Key_Value = 'Z' then ED_ITM_NM.Text := ''

                    else ED_ITM_NM.Text := Key_Value;

                  end;

 

                  XMLColumnNode := XMLColumnNode.NextSibling;

 

                until XMLColumnNode = nil;

              end;

 

              XMLRowNode := XMLRowNode.NextSibling;

 

            until XMLRowNode = nil;

          end

          else

          begin

          end;

        end

        else

        if XMLBodyNode.ChildNodes.Nodes[ii].NodeValue = 'LOGIN_FAIL' then   // LOGIN_FAIL시 다시 로그인

        begin

          ShowMessage('서버와의 접속이 끊겼습니다. 다시 로그인 하세요');

        end

        else

        if XMLBodyNode.ChildNodes.Nodes[ii].NodeValue = 'ERROR' then

        begin

          ShowMessage(XMLBodyNode.ChildNodes.Nodes[0].NodeValue);

        end;

      end;

    end;

 

  finally

    // 메모리에서 해제

    PutData.Free;

    DResult.Free;

    Indy.Free;

  end;

end;

 

이 게시물을

• Twitter
• Me2day
• Facebook
• Delicious

목록

댓글 5

• 

  험프리

  2017.11.20 11:18

  위 코드만 봐서는 원인파악이 어렵습니다.(그림도 표시되지 않습니다.)

   

  우선, 디버깅 과정을 통해 원인을 확인하시는게 좋습니다.

  예를 들면, 

  1) DResult에 정확한 XML 포맷의 문자열이 수신됐는가?

  2) XMLDoc, DResult 등 컴포넌트가 잘 생성되고 초기화 됐는가?

   

  등등을 안드로이드 환경에서 디버그 모드로 확인해 보시기 바랍니다.

  디버그 모드에서 오류 발생 시 오류의 내용을 IDE에서 조금 더 자세히 확인할 수 있습니다.

   

  오류 내용에 따라 조치 및 추가 문의 주시기 바랍니다.

  댓글

• SHWOO

  2017.11.28 14:41

  한글이 아닌 영숫자 결과값이 나올경우는 정상적으로 조회가 되는데 한글이 있는경우에 위와 같은 오류가 납니다.

  안드로이드에서 한글변환이 안되는것 같은데 어떻게 처리를 해야 할까요?

  DResult := TStringStream.Create(XMLRqst, TEncoding.UTF8); // UTF8 

  댓글

• 아크나톤

  2017.11.28 19:17

  델파이 잘 모르지만....

   

  XMLDoc.LoadFromStream(DResult);  

  위의 문장을

  XMLDoc.LoadFromStream(DResult, TEncoding.GetEncoding(949)); 로 한번 해보시죠.

   

  댓글

• SHWOO

  2017.11.29 10:07

  XMLDoc.LoadFromStream(DResult, TEncoding.GetEncoding(949));  변경하고 실행하면 컴파일시 E2010 Incompatible types: "TXMLEncodingType' and 'TEncoding' 오류납니다.

   

  댓글

• silkroad99

  2017.12.01 09:22

    url 주소를 HTTPEncode 변환후에

    아래와 같은 방식으로 처리하면 됩니다.

   

  var

    .....

    .....

   

    StrXml: string;

    UserQuery, URL_Address : String;

   

  begin

    Maeil_URL  := UTF8Encode('http://www.xxx.xxx.xx');

   

    if ED_ITM_CD.Text = '' then

    begin

      ED_ITM_NM.Text := '';

      Exit;

    end;

   

    Try

      UserQuery := 'SELECT * FROM ........';

   

      IdHTTP1.Request.ContentType := 'application/x-www-form-urlencoded;';

      IdHTTP1.Request.ContentEncoding := 'utf-8';

      gLOGIN_CHEK := '&user_idid=' + '12352' + '&sabn_pswd=' + '11';

   

      URL_Address := '';

      URL_Address := URL_Address + 'command=DelphiQueryCommand' + gLOGIN_CHEK +'&query=' + HTTPEncode(UserQuery);

   

      Memo1.Lines.Add(Maeil_URL + URL_Address);

   

      IdHTTP1.CookieManager   := idCookieManager; 

      IdHTTP1.ReadTimeout     := 0;

      IdHTTP1.ConnectTimeout  := 0;

      IdHTTP1.HandleRedirects := True;

      IdHTTP1.Compressor := TIdCompressorZLib.Create(IdHTTP1);

   

   

     try

        StrXml := IdHTTP1.Get(Maeil_URL + URL_Address);

      except

        on E: Exception do

        begin

          ShowMessage ('Error: ' + E.Message);

          Exit;

        end;

      end;

   

     XMLDoc.LoadFromXML(StrXml);

   

   

    처리로직

    ........

    ........

    ........

    ........

    ........

    ........

   

  end;

  추천:1 댓글

목록

번호	제목	글쓴이	날짜	조회 수
공지	[프로그래밍 강의] 2021.6~2021.12	관리자	2015.01.22	15766
공지	유용한 관련 사이트	관리자2	2014.03.20	54580
공지	본 게시판은 개발자 여러분들의 질문과 답변을 공유하는 공간입니다.	관리자	2012.01.10	97985
2759	스트링그리드 문자 정렬 문제 [4]	똘귀아빠	2020.02.03	976
2758	한글깨짐 문제 ( 한글 폴더 선택시) .	그아이네	2020.02.07	373
2757	델파이 10.3 TCardPanel 버그 신고 [2]	이치고	2020.02.07	234
2756	RemObject 사용시 파일 업로드 삭제 방법? [1]	가나다	2020.02.06	153
2755	[안드로이드][64bit배포][C++ Builder] 안드로이드 배포 관련 문의 입니다. [3]	vastia	2020.02.03	357
2754	델파이 6과 10.3.3 Rio 를 한 컴퓨터에서 실행할 수 있나요? [1]	노력하는삶	2020.02.06	251
2753	델파이10.2에서 MariaDB10버전은 연결이 안되는 건가요 [2]	육식육식	2020.02.05	862
2752	기존 MDI프로극램에 데몬프로그램 기능을 추가하고 싶습니다 [4]	헨씀히포	2020.02.03	224
2751	개발자 기술자료의 동영상 링크가 안되는게 너무 많습니다. [2]	노력하는삶	2020.02.05	115
2750	FireDAC MS SQL Table 접속 문의 [1]	아들만셋	2020.02.03	1211
2749	Form의 BorderStyle 정의시점?에 대한 차이점 질문입니다. [5]	Danny	2020.01.22	220
2748	MDI Child Dll [2]	라시드	2015.10.26	351
2747	StringGrid에 출력되는 Data(제목등)이 이중(잔상?)으로 나오는데 해결책을 구합니다. [4]	AllwaysHappy	2017.11.01	13851
2746	델파이 10.3.3 Rio 에서 fastreport 가 어디 있나요? [1]	노력하는삶	2020.02.04	159
2745	Windows 64-bit로 빌드 후 실행 시 오류가 납니다. [1]	비앤케이	2020.02.03	231
2744	델파이 컴파일 후 실행 오류 관련 [2]	똘귀아빠	2020.01.31	231
2743	[현대화 세미나] 윈도우, 우분투, 안드로이드, iOS, OSX 간 효과적인 마이그레이션 방법이 궁금합니다.	험프리	2020.01.31	294
2742	[현대화 세미나] 리눅스 환경에서 데이터스냅 배포 방법이 궁금합니다.	험프리	2020.01.31	237
2741	원격서버(호스팅서버)에 데이터스냅 미들웨어 배포하는 방법	운직	2020.01.31	100
2740	DB접속에 문제가 있어 여쭈어 봅니다. [5]	루키	2019.08.07	596

첫 페이지 22 23 24 25 26 27 28 29 30 31 끝 페이지

쓰기

검색

제목+내용제목내용댓글이름닉네임태그 검색

태그