반응형 Delphi, RadStudio82 [개발/delphi] 델파이 - Object Pascal 강좌 두 번째 강좌 : 이번에는 델파이의 근간을 이루고 있는 Object Pascal에 대해 알아보겠습니다! 출처: http://cafe.daum.net/delphi5Completed/5XK/3?docid=6zC|5XK|3|20000805083613&q=%B5%A8%C6%C4%C0%CC%20longword 2.1 기본 Data Type 일반적으로 어떤 언어든 기본적인 데이터 형은 비슷하다. 왜냐하면 같은 컴에서 돌아가니까... 델파이 4의 새로운 기능으로 세가지 Type이 나온다. 델파이4에서는 일반적인 Interger형(32bit Longint)으로 처리할 수 없는 너무 큰 정수값을 사용하고자 할 때 새롭게 Int64형을 사용할 수 있다. 그리고 StrToInt64와 StrToInt64, StrToInt64.. 2012. 1. 18. [개발/delphi] 인터넷 연결 목록을 추적하기 [개발/delphi] 인터넷 연결 목록을 추적하기 // d2007, JVCL 사용, TJvRas32 (PhoneBook VCL) const RAS_MaxEntryName = 256; RASBASE = 600; ERROR_BUFFER_TOO_SMALL = RASBASE + 3; ERROR_INVALID_SIZE = RASBASE + 32; type PRasEntryName = ^TRasEntryName; TRasEntryName = record dwSize: Longint; szEntryName: array [0..RAS_MaxEntryName] of Char; end; function RasEnumEntriesA(reserved: PChar; lpszPhonebook: PChar; lpRasEntryNa.. 2012. 1. 17. [개발/delphi] 델파이 zlib 를 이용한 파일압축 [개발/delphi] 델파이 zlib 를 이용한 파일압축 // TCompressionStream 사용법 출처: http://wearethebest.co.kr/zbxe/3081 파일의 압축을 예로 들면 대강 다음과 같습니다.. 1. 원본 파일 스트림을 생성한다. 2. 압축될 복사본 파일 스트림을 생성한다. 3. TCompressionStream 스트림 을 생성한다. 이 때 복사본 파일 스트림을 인자로 준다. 4. TCompressionStream에 원본 파일을 써 준다. 5. 생성한 스트림들을 해제한다. 압축된 파일을 읽을 때는 다음 순서가 되구요.. 1. 압축된 원본 파일 스트림 생성. 2. 압축이 풀릴 복사본 파일 스트림 생성. 3. TDecompressionStream을 생성. 이 때 압축된 원본 파.. 2012. 1. 17. [개발/delphi] 64bit OS 판별 [개발/delphi] 64bit OS 판별 // 64bit OS 판별 function Is64BitOS: Boolean; type TIsWow64Process = function(Handle:THandle; var IsWow64 : BOOL) : BOOL; stdcall; var hKernel32 : Integer; IsWow64Process : TIsWow64Process; IsWow64 : BOOL; begin // we can check if the operating system is 64-bit by checking whether // we are running under Wow64 (we are 32-bit code). We must check if this // function is imple.. 2012. 1. 13. [개발/delphi] 64bit 시스템 디렉토리 가져오기 [개발/delphi] 64bit 시스템 디렉토리 가져오기 // 64bit 시스템 디렉토리 가져오기 function GetSystemDir: string; var Buff: array[0..MAX_PATH] of Char; Len: Integer; begin Len := GetSystemWow64Directory(Buff, MAX_PATH); if Len > 0 then begin Result := Buff; if Buff[Len - 1] '\' then Result := Result + '\'; end else Result := ''; end; 2012. 1. 13. [개발/delphi] 키를 눌러 반복문 종료하기 [개발/delphi] 키를 눌러 반복문 종료하기 OnClick 이벤트에 글로벌 변수를 사용해서 처리할 수 있고 loop 안에서 키 상태값을 읽어서 처리할 수도 있다. var j : integer; begin for j:=0 to 9999999 do begin Label1.Caption := IntToStr(j) ; {.... loop main body here ...} Application.ProcessMessages; {ESC key stops the loop} if GetKeyState(VK_Escape) AND 128 = 128 then break; end; end; 2012. 1. 11. 이전 1 ··· 6 7 8 9 10 11 12 ··· 14 다음 반응형