본문 바로가기

Delphi

Delphi/꿀팁 XML 파싱하기 - 2 var I, J: Integer; XMLDocument: IXMLDOMDocument; XMLNodeList: IXMLDOMNodeList; XMLChildNodeList: IXMLDOMNodeList; XMLTempNode: IXMLDOMNode; begin XMLDocument := CoDOMDocument.Create; XMLDocument.loadXML('XML Data..'); //Node 선택 XMLNodeList := XMLDocument.selectNodes('Node 선택..'); //선택한 Node의 리스트 for I := 0 to XMLNodeList.length - 1 do begin XMLChildNodeList := XMLNodeList.item[I].childNodes; //필..
Delphi/꿀팁 [TIdHttp] Exception 발생 시 Error 가져오기 Indy IdHttp 컴포넌트의 각종 Exception관련 내용은 IdStack, IdException에 정의되어 있습니다. uses .., IdStack, IdException; var sErrorMessage : string; begin try IdHttp1.Get('http://developist.tistory.com/'); except on E: EIdConnClosedGracefully do sErrorMessage := E.ErrorMessage; on E: EIdHTTPProtocolException do sErrorMessage := E.ErrorMessage; on E: EIdException do sErrorMessage := E.ErrorMessage; .. end; ShowMessa..
Delphi/꿀팁 TcxAlphaBitmap으로 이미지 회전시키기 var AlphaBitmap: TcxAlphaBitmap; begin cxImage1.Picture.LoadFromFile('이미지파일.jpg'); AlphaBitmap := TcxAlphaBitmap.CreateSize(cxImage1.Width, cxImage1.Height); try AlphaBitmap.Canvas.Draw(0, 0, cxImage1.Picture.Graphic); AlphaBitmap.Rotate(raPlus90); //시계방향으로 90도 회전 cxImage1.Picture.Graphic := AlphaBitmap; finally AlphaBitmap.Free; end; end;

티스토리툴바