삽질하는 프로그래머 통통만두의 판톼스틱한 삽질기

탐색기 같은 곳에서 파일을 Drag&Drop 하여 폼에 올리고 싶은 경우에는 아래와 같이 하면 된다. // uses 절에 ShellAPI 를 추가하고, FormCreate 같은 곳에 아래와 같은 코드를 추가한다. DragAcceptFiles(Handle, True); // 그리고 적당한 곳에 파일이 Drag&Drop 되었을 때 받을 이벤트를 추가한다. procedure WMDropFiles(var Msg: TMessage); message WM_DROPFILES; 위와 같은 작업이 반드시 선행되어져야 한다. procedure TForm1.WMDropFiles(var Msg: TMessage); var DropCnt : Integer; hDropFile : THandle; FileName : array[0..

올해 3월부터 시간이 날 때마다 조금씩 개발해서 어느정도 완성단계에 이르렀다. 현재는 쪽지, 파일전송, 대화까지 가능하며, 웹브라우저나 프로그램을 즐겨찾기로 등록해서 사용이 가능하다. 아직 공개할만큼의 완성단계는 아니지만, 어느정도.. 지인들끼리 사용하면서 버그 잡아내고 개선하고 있다. 완성된다해도 그 다음 어떻게 해야할지 모르겠지만 ㅋㅋ 서버와 클라이언트중에 클라이언트 캡쳐화면이다. 서버 프로그램에서 조직도, 직급, 사용가 추가 등등을 할 수 있으며, 접속자 현황도 나타낸다. 만들어놓고 그냥 썩히는거 아닌가 모르겠네 ㅎㅎ 누가 영업 해주실분~~ ㅋㅋ

var BMP : TBitmap; StoredUnits : TQRUnit; begin frmWT4107B0.Prepare; StoredUnits := frmWT4107B0.Units; frmWT4107B0.Units := Pixels; try for i := 1 to frmWT4107B0.QRPrinter.PageCount do begin BMP := TBitmap.Create; BMP.Width := Round(frmWT4107B0.Page.Width); BMP.Height := Round(frmWT4107B0.Page.Length); frmWT4107B0.QRPrinter.PageNumber := i; BMP.Canvas.Draw(0, 0, frmWT4107B0.QRPrinter.Page); BMP...

집에서의 개발환경은 아래와 같다. 데스크탑 : 윈도우7 64bit 프로페셔널 K, 델파이 2007, 델파이 2010 노트북 : 윈도우 XP 프로페셔널 SP3, 델파이 2007 그간 디버깅 할 때 아무런 문제가 없었는데 사무실 컴퓨터를 새걸로 바꿨다. 정확히 말하면 바꿔주셨다 ㅋㅋㅋ 환경은 윈도우 XP 홈에디션 + 델파이 2007 이다. 헌데 어느순간부터인지.. 첨부터 그랬는지는 모르겠지만, 자꾸 디버깅할 때 컴퓨터가 먹통이 되어버려서 전원을 껏다 켜야 했다. 아.. 정말 짜증난다. -_-; 이대로 도저히 안되겠다 싶어 검색을 해봤는데 역시나 방법이 있었다. "고급 텍스트 서비스 사용 안함" 에 체크를 해주고 적용을 한다. 하지만.. 저렇게 하면 정작 델파이에서 한글이 안먹힌다는;;; 어쨋든 저렇게 해서 ..

저는 동양생명에 보험을 총 4개 들고 있습니다. 총각때 2개 들었고, 애기보험을 2개 들었습니다. 1개는 변액보험, 1개는 태아보험... 태아보험 들게 된 계기가 출산을 앞두고 들어야 되겠다는 생각은 있었는데 마침 그 때 보험 설계사에게 전화가 왔어요. 이런저런 얘기를 나누다가 태아보험을 한 개 들어야겠다고 말을 했죠. 그랬더니 다음 날 바로 찾아와서 설명을 듣고 덥석 보험을 신청했죠. 그 후로 1년쯤 지났네요. 애기 때문에 여러 사이트나 카페도 둘러보고 정보를 얻는데, 보험을 가입하면 유모나나 카시트 등등.. 하다 못해 치약 받은 사람도 있더군요. 하지만.. 저는 아무 것도 받지 못했습니다. 설계사한테 물어볼까 말까 하다가.. 안 물어보면 후회될 것 같아서 물어봤습니다. "다른 사람들은 태아보험 가입하..

2010년 12월즈음에 SK 컴즈 경력직 채용이 났다. 미리 말하는거지만 나는 델파이 개발자다. 처음부터 델파이로 시작한 건 아니지만... 아무튼 채용공고에 특별한 개발언어조건이 없었다. 혹시나해서 이전 채용공고를 찾아봤다. C/C++, JAVA 어쩌고 저쩌고.. 조건이 있는데 유독 2010년 하반기 경력직 공개채용에서만 저런 조건이 안보이더라. 사업을 확장하고 이것저것 손이 많이 필요하니 이쪽분야도 뽑는구나.. 하고 생각하고 지원을 하기로 했다. 몇 일에 걸쳐 자기소개서도 쓰고 포트폴리오도 캡쳐 잘하고 정리 잘해서 지원을 했다. 어라.. 서류전형 합격이네? 오.. 역시 개발언어는 상관이 없었구만. 정말 좋아하면서 인성검사 준비를 했습니다. 이런저런 사이트, 카페, 블로그 찾아다니면서 유형 알아보고 책들..

퀵리포트는 지속적으로 사용하던 것이 아니라 매 번 할 때마다 헷갈리거나 까먹는다 -_-; 그래서 찾아보던 것 중 정말 괜찮은 사이트를 발견했다. 아래의 출처에서 확인하시라~~ 출처 : http://www.delphiunion.com/dwp/QR/qreport.htm

이번 여름을 나기위해서 이마트에서 선풍기 한 대를 장만했습니다. 집에와서 뜯어보니 이게 웬일인가요.. 이미 누간가가 이마트몰에서 주문했다가 반품한 제품이군요. 어떻게 알았냐구요? 이마트몰로 주문하면 주문한 내용이 A4에 출력되서 같이 나가는데요.. 그 종이가 같이 들어있더군요. 종이위에는 "회수" 라고 누군가가 쓴 글씨가 있구요. 선풍기를 구입한 날 바로 설치를 못하고 다음 날 퇴근하고 하게 되었습니다. 제품에 이상도 없고 해서 그냥 쓸려고 했으나.. 선풍기를 볼 때마다 성질이 팍팍 솟아오르더라구요. 그래서 이마트 홈페이지 고객센터에 글을 남겼습니다. 상황이 이렇게 되었는데, 어떠한 형태로의 보상을 원한다구요. 네.. 사실 이렇게 하면 포인트라도 좀 얻을 수 있을까봐 -_-; 기대를 듬뿍 했습니다. 얼마..

블로그 스킨을 변경해버렸더니 기존에 적용해놨던 syntaxhighlight 가 날라가 버렸다 ㅋㅋㅋㅋ syntaxhighlight 버전이 오래전것이라서 바꿀까 하다가 귀찮아서 놔두고 있었는데 이참에 잘됐다 -_-; 이 참에 포스팅으로 남겨서 다음에 스킨을 변경해도 어리버리안까고 적용할 수 있게 해야겠다. 먼저 아래의 파일을 다운받는다. 압축을 풀고 이 중에서 scripts, styles 폴더를 [스킨-HTML/CSS 편집] 에 파일업로드를 해버린다. 그 다음에 HTML/CSS 편집창으로 와서 아랫도리에 다음과 같은 코드를 추가한다. 이러면 적용 끝났다. 사용법은

procedure Tfrm_Main.proSetInstallInfo; var Reg : TRegistry; begin Reg := TRegistry.Create; try try Reg.RootKey := HKEY_LOCAL_MACHINE; Reg.OpenKey('Software\Microsoft\Windows\CurrentVersion\Uninstall\hPop', True); Reg.WriteString('Displayname', 'hPop'); Reg.WriteString('UninstallString', '"' + ExtractFileDir(hPopExe) + '\hPopUnInstall.exe' + '"'); except // end; finally FreeAndNil(Reg); end; end;..

그리 많은 시간은 아니지만 이 문제로 인해 상당한 시간을 투자해서 찾아보았는데, 정공법으로 속 시원한 해결방법이 없었다. 뭐 디지털 서명을 하고 게시자를 명확히 하면 어떨지 모르겠지만(테스트는 안해봄).. 아래와 같은 방법으로 해결을 봤다. ShellExecute(Handle, 'open', 'cmd.exe', PChar('/C schtasks /create /sc onlogon /tn "hPop" /tr "' + hPopExe + '"'), nil, 0); 작업스케쥴러에 윈도우에 로그인할 때 실행시키는 스크립트를 실행하는 것이다. 자세한 것은 schtasks /? 해서 확인바라며 cmd.exe 의 파라미터에 /C 로 시작하는 것은, 저 스크립트를 실행 후 종료한다. 이것 역시 cmd /? 로 확인할 수..

출처 : http://loved.pe.kr/836

uses QRExport procedure TForm1.Button2Click(Sender: TObject); var EP : TQRHTMLDocumentFilter; begin EP := TQRHTMLDocumentFilter.Create('d:\test.html'); try Form2.QuickRep1.ExportToFilter(EP); finally FreeAndNil(EP); end; end; Others : HTML : TQRHTMLDocumentFilter ASCII : TQRAsciiExportFilter CSV : TQRCSVFilter Pro : RTF : TQRRTFExportFilter WMF : TQRWMFExportFilter Excel : TQRXLSFilter 출처 : http..

1. 네이버 카페에 올라오는 글에 대해 찾을 문자열을 지정하면 제목과 내용에 해당 글이 포함된 글이 등록되었을 경우, 알려주는 프로그램입니다. 2. 간단하게 네이버 아이디, 패스워드, 카페이름, 찾을문자열만 입력하시면 자동으로 찾아줍니다. 3. 네이버 카페면 무조건 오케이! 4. 물건 사고 파실때나 원하는 정보를 남들보다 더 빨리, 노가다 없이 확인하고 싶으신분들에게 추천. 5. 지정한 단어가 포함되었을 경우, 지정한 아이디가 글을 등록했을 경우 팝업, 사운드, SMS로 알려줍니다. http://www.programbay.co.kr/ally/reseller_sns.pb?para=ACEK20110523-2518__marsland__msg

정말 추억돋는 프로그램이다 ㅋㅋㅋㅋ 이전것이라 찾기도 힘들었는데 겨우 찾아서 보관용으로 올려둔다. 아래것은 폰트~