Delphi Programming Forum
C++Builder  |  Delphi  |  FireMonkey  |  C/C++  |  Free Pascal  |  Firebird
볼랜드포럼 BorlandForum
 경고! 게시물 작성자의 사전 허락없는 메일주소 추출행위 절대 금지
델파이 포럼
Q & A
FAQ
팁&트릭
강좌/문서
자료실
컴포넌트/라이브러리
FreePascal/Lazarus
볼랜드포럼 홈
헤드라인 뉴스
IT 뉴스
공지사항
자유게시판
해피 브레이크
공동 프로젝트
구인/구직
회원 장터
건의사항
운영진 게시판
회원 메뉴
북마크
델마당
볼랜드포럼 광고 모집

델파이 Q&A
Delphi Programming Q&A
[7943] [질문] 소켓과 TXMLDocument를 함께 사용시 에러
외발자전거 [sonkd] 903 읽음    2002-02-03 22:17
인디 소켓을 이용해서 XML을 전송했습니다.
그리고 그 XML을 TXMLDocument.XML에 넣었구요.
그리고 작업을 하려고 하면 에러가 납니다.
에러는 MSXML을 인스톨하지 않았다구 나오네요..

근데 이상한건 그냥 TXMLDocument를 폼에 올려 놓구 버튼 클릭시
속성들을 얻어오면 잘됩니다.

그래서 스레드로도 해 보구 버튼 클릭 이벤트를 발생 시켜
봤는데도 똑 같습니다.

아시는분 계시면 답변 부탁 드립니다.

XML문서와 소스 올립니다.

//버튼이 클릭되었을때 - 잘 돌아감
procedure TForm1.Button1Click(Sender: TObject);
var
  Node: IXMLNode;
  temp: string;
begin
  try
    XMLDocument := TXMLDocument.Create(Self);
    XMLDocument.XML.Clear;
    XMLDocument.XML.Add('<?xml version="1.0" ?>');
    XMLDocument.XML.Add('<power><service type="request" action="list">aa</service></power>');

    Memo1.Lines.AddStrings(XMLDocument.XML);
    try
      XMLDocument.Active := True;
      Node := XMLDocument.DocumentElement.ChildNodes.FindNode('service');
      temp := Node.Attributes['type'];
      Memo1.Lines.Add(temp);
    except
      Memo1.Lines.Add('error');
    end;
  finally
    XMLDocument.Free;
  end;
  Memo1.Lines.Add('complete2');
end;

//인디 소켓에서 - 에러남
procedure TForm1.IdTCPServer1Execute(AThread: TIdPeerThread);
var
  RcvTxt: string;
  Node: IXMLNode;
  temp: string;
begin
  RcvTxt := AThread.Connection.ReadLn;
  try
    XMLDocument := TXMLDocument.Create(Self);
    XMLDocument.XML.Clear;
    XMLDocument.XML.Add(RcvTxt);

    Memo1.Lines.AddStrings(XMLDocument1.XML);
    try
      XMLDocument.Active := True;
       ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^요기서 에러가.. -.-;;
      Node := XMLDocument.DocumentElement.ChildNodes.FindNode('service');
      temp := Node.Attributes['type'];
      Memo1.Lines.Add(temp);
    except
      Memo1.Lines.Add('error');
    end;
  finally
    XMLDocument.Active := False;
    XMLDocument.Free;
  end;
  Memo1.Lines.Add('complete2');
end;

+ -

관련 글 리스트
7943 [질문] 소켓과 TXMLDocument를 함께 사용시 에러 외발자전거 903 2002/02/03
7946     [자답] 소켓과 TXMLDocument를 함께 사용시 에러 외발자전거 1831 2002/02/04
Google
Copyright © 1999-2015, borlandforum.com. All right reserved.