프로그래밍 노트

델파이 XML Data Binding으로 xml 파일 조작하기 소스를 열어둔 상태에서 Tool Palette를 보면 Delphi Projects | XML이 있다. 그 밑에 XML Data Binding이 있다. 그것을 클릭한다. 그러면 아래 윈도우가 표시되어지고 조작할 XML 파일을 선택하고 "Next" 버튼을 누른다. XML Data Binding Wizard 화면에서도 특별히 고치지 않고 "Next" 버튼을 누른다. 그러면 아래와 같이 새로운 pas파일이 생성되면서 조금전에 선택한 XML 파일의 조작하기 쉽게 xml 파일이 바인딩된다. 그리고 이 바인딩된 xml 파일을 사용하고자 하는 곳에 추가된 unit명과 xmldom, XMLIntf, XMLDoc을 uses에 추가해야 된다. xml Data B..

델파이에서 프로그램이 있는 패스(디렉토리) 얻기 procedure TForm1.FormCreate(Sender: TObject); var CurrentPath : array [0..256] of char; begin // 프로그램이 있는 현재의 디렉토리 정보 얻기 GetCurrentDirectory(sizeof(CurrentPath), CurrentPath); Form1.Caption := CurrentPath; end;

델파이에서 XMLDocument 컴포넌트를 사용해서 XML 파일 불러 TreeView에 표시하는 소스 ■ XML 파일 불러오기 // XML 파일 읽어오기 procedure TForm1.Button2Click(Sender: TObject); Var xdSoft : TXMLDocument; begin OpenDialog1.Filter := 'Xml file|*.xml'; if OpenDialog1.Execute then begin // XML Document 만들기 xdSoft := TXMLDocument.Create(Application); // XML Document 불러오기 xdSoft.LoadFromFile(OpenDialog1.FileName); xdSoft.Active := True; // Tre..

델파이에서 XMLDocument 컴포넌트로 XML파일을 읽고 쓰는 방법은 말로 설명하기는 좀 어렵고 그냥 소스를 보는 것이 알기 쉬울 것같다. 먼저 uses에 XMLDoc, XMLIntf을 추가한다. ■ XML 파일 쓰기 // XML 파일 만들고 쓰기 procedure TForm1.Button1Click(Sender: TObject); Var xdSoft : TXMLDocument; xnRoot : IXMLNode; xnChild : IXMLNode; xnGrandchild : IXMLNode; begin // XML Document 만들기 xdSoft := TXMLDocument.Create(Application); xdSoft.Active := True; xdSoft.Encoding:= 'euc-kr..

델파이에서 엑셀 파일에 선그리기 procedure TForm1.Button1Click(Sender: TObject); var Excel: OleVariant; WorkBook: OleVariant; WorkSheet: OleVariant; i : integer; Const xlNone = -4142; xlDiagonalDown = 5; xlDiagonalUp = 6; xlEdgeLeft = 7; xlEdgeTop = 8; xlEdgeBottom = 9; xlEdgeRight = 10; xlContinuous = 1; xlThin = 2; xlThick = 4; xlAutomatic = -4105; begin Excel := CreateOleObject('Excel.Application'); Excel.V..

델파이에서 엑셀로 데이터 출력하는 간단한 예제 맨 위의 uses에는 "ComObj"를 추가 해야된다. procedure TForm1.Button1Click(Sender: TObject); var Excel: OleVariant; WorkBook: OleVariant; WorkSheet: OleVariant; i : integer; begin Excel := CreateOleObject('Excel.Application'); Excel.Visible := True; // 워크북 추가 Excel.WorkBooks.Add; WorkBook := Excel.ActiveWorkBook; // 워크시트 추가 Workbook.sheets.add; try // 작업할 워크시트 선택 WorkSheet := WorkBoo..

델파이에서 16진수로 Color 값 설정할 때 일반적인 칼라 색 순서와 델파이에서 칼라 값의 설정이 좀 틀리다. 일반적으로 16진수 칼라값이라고 하면 빨강 녹색 파랑이 오는데 델파이에서는 파랑 녹색 빨강이 온다. 그것도 모르고 첨에 델파이여서 색깔이 이상하게 나오는줄 알았다.

델파이를 첨 써보는지라 델파이에서 시리얼 통신을 하려면 어떻게 해야된나 오늘 하루 종일 열심히 해맸다. SourceForge.net에 델파이용 ComPort Library가 있어서 그것을 이용해서 간단한 시리얼 통신하는 프로그램을 만들어 보려했지만 델파이 초짜다 보니 무엇을 어떻게 해야되는지도 한참 해멨다. http://sourceforge.net/projects/comport/ 먼저 위 사이트에 가서 Download를 선택하면 지금은 ComPort Library 3.1(cport-3.10.zip)을 다운 로드 받을 수 있다. 다운로드 받은 압축파일을 풀면 여러개의 파일이 나온다. 여기서 sources.zip 파일과 examples.zip 파일을 다시 푼다. 새로 작업할 폴더를 하나 만든다. 새 폴더에 ..

■ 문자를 ASCII 코드(16진수)로 변환 sIn:String; sWork:String; sIn := 'TEST'; sWork := IntToHex(Ord(sIn[1]), 2); ■ ASCII 코드(16진수)를 문자로 변환 sIn:String; sWork:String; sIn := '37'; sWork := Char(StrToInt('$' + sIn)); 알고나면 쉬운데 알기까지가 시간이 걸리는 것같다. -.-;;

델파이에서 쓰는 Format의 간단한 사용례 ■ Format 함수 정의 class function Format ( Const StrFormat : string; Const Args : array of const ) : string; ■ StrFormat 정의 형식 %[Index:][-][표시할 자리수][.0을 채울 자리수]Type ■ 타입 종류 d = 정수 e = 지수표시 f = 소수점 두번째 자리 이후 반올림 g = 입력된 대로 표시 m = 통화 n = 수치 쉼표 표시(소수점 두번째 자리 이후 반올림) p = 포인터 s = 문자열 u = 부호없는 정수 x = 16진수 ■ 포멧 형식 관련 사용례 sMsg:String; sMsg := ''; sMsg := sMsg + #13#10 + Format(' = '..