Application179 delphi 7 에서 TServerSocket 사용하기 This code explains the basic us of the TClientSocket and TServerSocket components of Delphi. If you can't find these components you need to add the dclsockets package to the IDE. To do this go to Component | Install Packages | Add (/bin/dclsockets70.bpl). It is a basic Chat application. 2008. 8. 13. Regstry 등록하기 먼저 TRegistry 라는 Class가 있습니다. Var Reg : TRegistry; 라고 선언을 해주고 나서... 그 담에.. Reg := TRegistry.Create; 로 생성해 주면 사용할 준비는 완료.. 실행에서 regedit 해 보시면 몇개 보이는 것들이.. rootkey 입니다.. 여기서 어떤 rootkey쪽으로 갈것이냐를 먼저 정해줘야죠... reg.Rootkey := HKEY_CURRENT_USER; 요렇게 해주면 HKEY_CURRENT_USER 밑의 갈래에서 이루어지죠.. reg.OpenKey('\SOFTWARE\',TRUE) ( true 는 \software\라는 것이 존재 하지 않을 경우 만들어서 연 다는 것이죠 ^^) 해주면 \SOFTWARE\이 열리는 것이죠 ^^... 그러면.. 2008. 8. 13. 델파이 관련 몇가지 Tip [TMemo Component] 현재 라인번호 알아내기 메모에서 현재 Caret이 위치하고 있는 줄이 몇 번째 줄인지를 리턴한다. Label1.Caption := IntToStr(GetCurrLine(Memo1)); function GetCurrLine(Memo : TMemo) : integer; begin Result := Memo.Perform(EM_LINEFROMCHAR, Memo.SelStart, 0); end; [TMemo Component] 현재 컬럼번호 알아내기 메모에서 현재 Caret이 위치하고 있는 줄에서 몇 번째 컬럼인지를 리턴한다. Label1.Caption := IntToStr(GetCurrCul(Memo1)); function GetCurrCul(Memo : TMemo)) : in.. 2008. 8. 13. keyboard, mouse 버퍼 clear //Keyboard Buffer를 Clear한다. procedure EmptyKeyQueue; var Msg: TMsg; begin while PeekMessage(Msg, 0, WM_KEYFIRST, WM_KEYLAST, PM_REMOVE or PM_NOYIELD) do; end; //Mouse Buffer를 Clear한다. procedure EmptyMouseQueue; var Msg: TMsg; begin while PeekMessage(Msg, 0, WM_MOUSEFIRST, WM_MOUSELAST, PM_REMOVE or PM_NOYIELD) do; end; 2008. 8. 13. 이전 1 ··· 25 26 27 28 29 30 31 ··· 45 다음