'2003/12'에 해당되는 글 3건

  1. 2003.12.17 유니코드 변환 코드 5
  2. 2003.12.14 파일의 버젼 정보 얻기 2
  3. 2003.12.14 DLL 호출 관련 정리(임시) 16

유니코드 변환 코드

Computer/Delphi 2003. 12. 17. 18:02
1. String -> WideChar[] 변환

개념 : MultiByteToWideChar API를 이용한다.

소스 :
    var
        data : String;
        someunicode : array of widechar;
        len : integer;
    begin
        data := '안녕하세요.';
        len := StrLen(PChar(data));
        MultiByteToWideChar(CP_ACP, 0, PChar(data), -1, @someunicode[0], len);
    end;


2. String <-> WIdeString
개념 : 델파이에서는 자동 형변환 되므로 신경 쓸 필요 없음

소스 :
델코 민성기 님 작성
http://www.delphikorea.com/board/zboard/view.php?id=qa&page=1&sn1=&divpage=1&sn=off&ss=on&sc=on&keyword=유니코드&select_arrange=headnum&desc=asc&no=20996

var

WStr : WideString;

SStr : String;



TempStr1, TempStr2 : String;

i : Integer;

begin

WStr := '얼러리꼴러리!';
SStr := WStr;
//이렇게 해도 결과 같음
//SStr :='얼레리꼴러리!';
//Wstr := WIdeString(SStr);


for i:= 1 to Length(WStr) do
begin
TempStr1 := TempStr1 + '$' + IntToHex(Ord(WStr[i]), 2);
if i <> Length(WStr) then TempStr1 := TempStr1 + ', ';
end;

for i:= 1 to Length(SStr) do
begin
TempStr2 := TempStr2 + '$' + IntToHex(Ord(SStr[i]), 2);
if i <> Length(SStr) then TempStr2 := TempStr2 + ', ';
end;

ShowMessage(
Format(
'유니코드 "%s", 길이 %d'#13'%s'
+#13#13+
'일반문자 "%s", 길이 %d'#13'%s',
  [WStr, Length(WStr), TempStr1, SStr, Length(SStr), TempStr2]
)
);

end;

'Computer > Delphi' 카테고리의 다른 글

Indy 설치(Delphi, BCB 공통)  (15) 2006.09.02
IRequest, TWebRequest 이용한 파라미터 접근  (4) 2005.07.10
TDateTime 사용하기  (4) 2005.07.10
URL에서 도메인 분리하기  (6) 2005.07.10
Visual Basic에서 만든 dll 호출하기  (14) 2005.07.10
DLL 호출 관련 정리(임시)  (16) 2003.12.14
테이블에 트랜잭션과 파라미터 이용해서 인서트  (2) 2003.11.16
TColor 값을 HTML color 로 변경하는 코드  (2) 2003.05.14
HTML에 문자 추가하기  (154) 2003.05.09
그래픽 카드가 RGB or BGR 지원 하는지 체크하기  (153) 2003.04.28
Posted by Gu Youn
,

파일의 버젼 정보 얻기

Computer/C++ 2003. 12. 14. 13:30
About 다이얼로그 만드는 방법
1. GetFileVersionInfoSize 이용해서 버젼 정보 크기 얻는다.

2. 버젼 정보를 저장할 메모리를 할당한 후에 버젼 정보를 얻는다.
   MemHandle = GlobalAlloc(GMEM_MOVEABLE, VerSize);
   MemPtr = GlobalLock(MemHandle);
   GetFileVersionInfo(Path.c_str(), VerInfo, VerSize, MemPtr);

3. VerQueryValue(MemPtr, "\VarFileInfo\Translation", &BufferPtr,&BufferLength); 함수를 이용해서 각 정보를 얻는다.

-실제 소스-
코드:
    struct TransArray
    {
       WORD LanguageID, CharacterSet;
    };

    DWORD VerInfo, VerSize;  
    HANDLE MemHandle;
    LPVOID MemPtr, BufferPtr;
    UINT BufferLength;
    TransArray *Array;
    char QueryBlock[40];

    // Get the product name and version from the
    // applications version information.
    String Path(Application->ExeName); //프로그램 패스 얻어오기
    VerSize = GetFileVersionInfoSize(Path.c_str(), &VerInfo);//버젼 정보 크기 얻어오기
    if (VerSize > 0) {
        MemHandle = GlobalAlloc(GMEM_MOVEABLE, VerSize);
        MemPtr = GlobalLock(MemHandle);
        GetFileVersionInfo(Path.c_str(), VerInfo, VerSize, MemPtr);
        VerQueryValue(MemPtr, "\VarFileInfo\Translation", &BufferPtr,
                      &BufferLength);
        Array = (TransArray *)BufferPtr;

        // Get the product name.
        wsprintf(QueryBlock, "\StringFileInfo\%04x%04x\ProductName",
                 Array[0].LanguageID, Array[0].CharacterSet);
        VerQueryValue(MemPtr, QueryBlock, &BufferPtr, &BufferLength);
        // Set the product name caption.
        ProductName->Caption = (char *)BufferPtr;

        // Get the product version.
        wsprintf(QueryBlock, "\StringFileInfo\%04x%04x\ProductVersion",
                 Array[0].LanguageID, Array[0].CharacterSet);
        VerQueryValue(MemPtr, QueryBlock, &BufferPtr, &BufferLength);
        // Set the version caption.
        Version->Caption = (char *)BufferPtr;

        GlobalUnlock(MemHandle);
        GlobalFree(MemHandle);
    } else {
        ProductName->Caption = "";
        Version->Caption = "";
    }

    Comments->Caption = "Thank you for trying this fabulous product.n"
                        "We hope that you have enjoyed using it.";

'Computer > C++' 카테고리의 다른 글

BCB 6에 Indy 10 설치 하기 관련...  (4) 2005.11.23
BCB - StrToHex 함수  (1) 2005.11.06
BCB 6에 DSPack 2.3.4 설치  (6) 2005.09.10
카일릭스 설치 및 일반적인 문제점  (4) 2005.07.10
void pointer 샘플  (2) 2005.07.10
TStingList이용해서 텍스트 파일 파싱하기  (2) 2003.11.16
Effective C++ Second Edition  (139) 2003.10.13
Child control 관리  (2) 2003.09.15
C++ 사이트 모음  (139) 2003.04.08
C와 C++의 name mangling  (139) 2003.03.04
Posted by Gu Youn
,

DLL 호출 관련 정리(임시)

Computer/Delphi 2003. 12. 14. 13:29
DLL관련 정리  
델파이 <=> VC++ DLL 사용하기
http://www.delmadang.com/cwb-bin/CrazyWWWBoard.exe?db=dmdqa&mode=read&num=24834&page=3&backdepth=1

http://www.delmadang.com/cwb-bin/CrazyWWWBoard.exe?db=dmdqa&mode=read&num=22177&page=3&backdepth=1

-bcbdev-
http://www.bcbdev.com/articles/bcbdll.htm

-샘플-
http://www.borlandforum.com/impboard/impboard.dll?action=read&db=bcb_qna&no=15068

'Computer > Delphi' 카테고리의 다른 글

IRequest, TWebRequest 이용한 파라미터 접근  (4) 2005.07.10
TDateTime 사용하기  (4) 2005.07.10
URL에서 도메인 분리하기  (6) 2005.07.10
Visual Basic에서 만든 dll 호출하기  (14) 2005.07.10
유니코드 변환 코드  (5) 2003.12.17
테이블에 트랜잭션과 파라미터 이용해서 인서트  (2) 2003.11.16
TColor 값을 HTML color 로 변경하는 코드  (2) 2003.05.14
HTML에 문자 추가하기  (154) 2003.05.09
그래픽 카드가 RGB or BGR 지원 하는지 체크하기  (153) 2003.04.28
C의 Union과 비슷하게 Record로 가변 타입 만들기  (158) 2003.04.24
Posted by Gu Youn
,

티스토리툴바