반응형 Delphi84 [개발/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] 키를 눌러 반복문 종료하기 [개발/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. [개발/delphi] 컨트롤 사이를 움직이는 방향키 [개발/delphi] 컨트롤 사이를 움직이는 방향키 Edit 컨트롤에서 UP, DOWN키는 사용되지 않는다. 필드 사이를 이동할 때도. KeyPreview 프로퍼티를 이용하여 OnKeyDown 이벤트에서 코드로 조작할 수 있다. ~~~~~~~~~~~~~~~~~~~~~~~~~ procedure TForm1.FormKeyDown( Sender : TObject; var Key: Word; Shift : TShiftState ) ; var Direction : Integer; begin Direction := -1; case Key of VK_DOWN, VK_RETURN : Direction := 0; {Next} VK_UP : Direction := 1; {Previous} end; if Direction .. 2012. 1. 11. [개발/delphi] 전체화면 만들기 [개발/delphi] 전체화면 만들기 Main form의 BorderStyle를 bsNone으로 설정한다. SPI_GETWORKAREA 값을 얻기 위해 SystemParametersInfo 메세지를 윈도우즈 실제 크기로 설정하기 위하여 SetBounds를 사용한다. procedure TSomeForm.FormShow(Sender: TObject) ; var r : TRect; begin Borderstyle := bsNone; SystemParametersInfo (SPI_GETWORKAREA, 0, @r,0) ; SetBounds (r.Left, r.Top, r.Right-r.Left, r.Bottom-r.Top) ; end; 2012. 1. 11. [개발/delphi] 파일크기/디스크할당크기 구하는 여러가지 방법 [개발/delphi] 파일크기/디스크할당크기 구하는 여러가지 방법 procedure TForm1.FileListBox1Click(Sender: TObject); var _DirFileName:String; FileInfo:integer; SizeLow, SizeHigh:Dword; FSectorsPerCluster, FBytesPerSector, FNumberOfFreeClusters, FTotalNumberOfClusters:DWord; FH : THandle; FI : TByHandleFileInformation; begin _DirFileName := FileListBox1.FileName; FileInfo := FileOpen(ExTractfilename(_DirFileName), fmOpenRe.. 2012. 1. 7. 이전 1 ··· 6 7 8 9 10 11 12 ··· 14 다음 반응형