본문 바로가기

Application179

xml 데이타 읽기 var XMLDOM : IXMLDOMDocument; NodeList : IXMLDOMNodeList; i : Integer; begin XMLDOM := CoDomDocument.Create; try //XMLDOM.loadXML(cstr); XMLDOM.load('d:\test.xml'); NodeList := XMLDOM.selectNodes('/ExecuteList/Execute[@name="Result"]'); for i := 0 to NodeList.length - 1 do // Memo1.Lines.Add((NodeList.item[i].attributes.item[0].nodevalue); // Memo1.Lines.Add('Description = ' + (NodeList.item[i] .. 2008. 8. 13.
웹사이트 로그인 처리 var idhttp : TIdHttp; aData : TStringList; ms : TMemoryStream; mime : TIdMultiPartFormDataStream; i : Integer; aURL : String; ResultStr : String; begin ResultStr := ''; aURL := 'http://id.naver.com/nidlogin.login'; idhttp := TIdHttp.Create; aData := TStringList.Create; ms := TMemoryStream.Create; mime := TIdMultiPartFormDataStream.Create; try // idhttp init idHttp.Host := URL; idHttp.Request.Ref.. 2008. 8. 13.
UTF-8을 WideString로 function UTF8ToWideString(SourceBuf:String): WideString; var DestBuf : WideString; PSourceBuf : PChar; OutLength : Integer; begin GetMem ( PSourceBuf, Length(SourceBuf) ); try StrPCopy( PSourceBuf, SourceBuf ); OutLength := MultiByteToWideChar(CP_UTF8, 0, PSourceBuf, -1, nil, 0); SetLength(DestBuf, OutLength); MultiByteToWideChar(CP_UTF8, 0, PSourceBuf, -1, PWideChar(DestBuf), OutLength); Result.. 2008. 8. 13.
HTML 소스 코드에서 텍스트 코드를 분리하기 procedure TForm1.btnPassingClick(Sender: TObject); var MyDocument: OleVariant; begin MyDocument := WebBrowser1.Document; // HTML 소스 보기 memTest.Lines.Add(MyDocument.Body.InnerHTML); // HTML 소스 // 일반 텍스트 보기 memTest.Lines.Add(MyDocument.Body.InnerText); // Text 소스 end; 위의 코드만으로는 Access Violation 에러가 발생합니다. 웹브라우저에 문서가 완전히 내려오기전에 접근을 하기 때문이구요. 문서에 접근 하기 전에 while WebBrowser1.ReadyState READYSTATE_COMP.. 2008. 8. 13.

티스토리툴바