본문 바로가기

Application179

activex 쉽게 만들기 안녕하세요? 김영진입니다. 그동안 '도련' 이라는 아디로 활동하다 본명으로 활동하려 합니다. 그동안 ActiveX 를 만들면서 항상 느껴 왔던게 '실행' 과 '디버깅' 이었습니다. 코드 열심히 만들어서 한번 볼려고 하면 일반 Application 에서는 F9 만 누르면 되었었는데 ActiveXForm 은 Deploy 를 해야 하고, Browser 로 URL 을 치고 확인을 해야 하는 불편함이 었었죠. 또한 Debuging 도 힘들어서 Break Point 를 걸고 하는 작업이 불가능 했습니다. 나름대로 잘 만들었다 생각되지만 사실 어디서 메모리 누수가 일어나는지도 정확히 catch 할 수 없고.. 에러가 나면 Browser 가 죽어 버리는등 상황이 발생하기도 합니다. 1. 프로그램은 Application.. 2008. 8. 13.
파일 사이즈 MB, KB 형태로 나타나기 //파일 용량 구하기 function getFileSizeTostring(intFilesize : integer) : string; var dblTemp : double; strTemp : String; begin dblTemp := intFilesize / 1024; if dblTemp > 1000 then begin dblTemp := dblTemp / 1024; strTemp := FormatFloat('##0.#',dblTemp) + 'MB'; end else begin strTemp := FormatFloat('##0.#',dblTemp) + 'KB'; if strTemp = '0KB' then strTemp := inttostr(intFilesize) + 'Byte'; end; result :.. 2008. 8. 13.
현재 떠 있는 익스플로어 URL 이동 unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, SHlObj, ActiveX, SHDocVw, ComObj; type TForm1 = class(TForm) Button1: TButton; procedure Button1Click(Sender: TObject); procedure IENAV(URL: string); private { Private declarations } public { Public declarations } FWebBrowser : IWebBrowser2; end; var Form1: TForm1; implementat.. 2008. 8. 13.
문자열에서 특정 문자 갯수 알아오기 uses strutils; function countword(const source, wordstr : string; index : integer = 1):integer; var i, lensource : integer; begin result := 0; lensource := length(source); i := index; // 일정 인덱스 이후의 문자를 검색. while i0 then inc(result) else break; inc(i); end; end; 2008. 8. 13.

티스토리툴바