kkuzil.own@gmail.com

Posted
Filed under Development/Delphi

function GetWndHandleFromPID(dwPID: DWORD): HWND;
var
  h: HWND;
  dwCheckPID: DWORD;
begin
  Result := 0;
  h:= FindWindow(nil, nil);
  while h <> 0  do
  begin
    if GetParent(h) = 0 then
    begin // 최상위 핸들 체크 (컨트롤 무시)
      GetWindowThreadProcessId(h, @dwCheckPID);
      if dwCheckPID = dwPID then
      begin
        Result := h;
        exit;
      end;
    end;
    h:= GetWindow(h, GW_HWNDNEXT);
  end;
end;
2012/09/21 16:44 2012/09/21 16:44
Posted
Filed under Development/Delphi

  PEntry = ^TEntry;
  TEntry = packed record
    case Integer of
    0 : (Head: TEntryHead);
    1 : (Data: array [0..511] of AnsiChar);
  end;
이런 구조체가 있을때,
...
..

var
  e: TEntry;
begin
  ReadData(...., ...., @e);
end;

이 경우 포인터가 잘못 되었다는 메시지가 뜨면서 에러가 발생한다.
코드상.. 아무런 잘못도 없는거 같아서..
ReadData(...., ...., @e.Data[0]);

머 이렇게 해도 안되고..

그래도 계속 트라이 하는중에 알아냈다.

 TEntry = packed record

여기서 packed  빼 주니깐 된다는..

기본 바이트 정렬을 사용하지 않고 packed를 해주면
컴파일러가 내부 포인터를 어떻게 써야하는지 헷갈리나보다..

아무튼 다음에도 이런문제가 생기면 기억나도록 이렇게 기록함.
2012/07/31 16:00 2012/07/31 16:00
Posted
Filed under Development/Delphi

1. 우리나라 날짜 포맷
ShortDateFormat := 'YYYY-MM-DD';
DateSeparator   := '-';

2. 일본 날짜 포맷
ShortDateFormat := 'YYYY/MM/DD';
DateSeparator   := '/';


TimeSeparator := ':';
LongTimeFormat := 'hh:mm:ss';




function StrToDateTimeDef2(const S: string; const Default: TDateTime): TDateTime;
var
FormatSettings: TFormatSettings;
begin
FormatSettings.DateSeparator := '-';
FormatSettings.ShortDateFormat := 'yyyy-mm-dd';
FormatSettings.TimeSeparator := ':';
FormatSettings.LongTimeFormat := 'hh:mm:ss';

if not TryStrToDateTime(S, Result, FormatSettings) then
Result := Default;
end;
2012/05/21 11:17 2012/05/21 11:17
Posted
Filed under Development/Delphi
XE 이상 soft get 사이트에서 다운로드가 없어서 업데이트가 중단 된 줄 알았는데..
개발 사이트가 따로 존재했다...



Virtual Treeview is a Delphi treeview control built from ground up. Many years of development made it one of the most flexible and advanced tree controls available today. Virtual Treeview starts off with the claim to improve many aspects of existing solutions and introduces some new technologies and principles which were not available before.

Note: downloads are available from the project homepage at http://www.soft-gems.net


License: Google Code doesn't now support the display of multiple licenses. So only one is shown in the side bar. Virtual Treeview is published under a double license: MPL 1.1 and GPL 2.0.

http://code.google.com/p/virtual-treeview/



svn 주소는 아래와 같다.

# Non-members may check out a read-only working copy anonymously over HTTP.
svn checkout http://virtual-treeview.googlecode.com/svn/trunk/ virtual-treeview-read-only
2012/05/18 10:53 2012/05/18 10:53