반응형 Delphi84 [개발/delphi] How can I pass PostData when I Navigate to a URL [개발/delphi] How can I pass PostData when I Navigate to a URL Q : How can I pass PostData when I Navigate to a URL? A : I call the below method with a URL destination, PostData in the format of 'animal=cat&color=brown' etc. and the TWebBrowser object that I want to load the URL inside of... procedure TDBModule.Navigate(stURL, stPostData: String; var wbWebBrowser: TWebBrowser); var vWebAddr, vPost.. 2012. 1. 25. [개발/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] 키를 눌러 반복문 종료하기 [개발/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 ··· 3 4 5 6 7 8 9 10 다음 반응형