tinystory

New package installation

1. CondDefines.h 에서 컴파일 옵션을 설정할 수 있다.
    BCB 를 실행하고 Close all 한다.

2. Component|Install Component...

3. Into New Package
    Unit file name: select ZipBuilder.cpp
    Package file name: ZBldr179C6
    Description TZipBuilder runtime (마음대로 설정 가능)

4. builder Confirm: No

5. 유닛 추가
   - EZipBuilder.cpp
   - ZBCore.cpp
   - ZBDBind.cpp
   - ZBDlg.cpp
   - ZBMsgStr.cpp
   - ZBSBind.cpp
   - ZBWrkr.cpp
   - ZipExtrLZ77.cpp
   - ZipProg.cpp
   - ZipUtils.cpp

   - ZipIntSfx.cpp (internal sfx 를 사용할 경우)

7. Options|Directories/Conditionals|Conditional Defines
   NO_SFX 를 추가하는 등 옵션을 설정할 수 있다.

8. Options 에서
  Description|Usage options = runtime only
  Directories/Conditionals
     Intermediate output: $(BCB)\Projects\Intermed   => Create if doesn't exist  
     Finale Output : $(BCB)\Projects\Bpl
     BPI/LIB output: $(BCB)\Projects\Lib
9. Compile - Install

// 16진 char 를 int 로 변환
int Convert(char c)
{
    if ('0' <= c && c <= '9')
        return c - '0';
    return toupper(c) - 'A' + 10;
}
// 16진 char 가 바른 값인지 판단
int IsHex(char c)
{
    return ('0' <= c && c <= '9') || ('A' <= c && c <= 'F') || ('a' <= c && c <= 'f');
}
// Delphi 의 HexToBin 의 C code conversion
int HexToBin(char *Text, char *Buffer, int BufSize)
{
    int i = BufSize;
    while (i > 0)
    {

        if (IsHex(Text[0]) == false || IsHex(Text[1]) == false)
            break;
        Buffer[0] = char((Convert(Text[0]) << 4) + Convert(Text[1]));
        Buffer++;
        Text += 2;
        i--;
    }
    return BufSize - i;
}
// HexToBin 에 의해 얻어진 값을 int 로 변환
int HexToInt(char *Buffer, int BufSize)
{
    int Result = 0;
    for (int a = BufSize, i = 0; a--; i++)
        Result = (Result << 8) + (int)(Buffer[i] & 0xFF);
    return Result;
}
// HexToBin -> HexToInt 통합 호출
int HexToInt(char *Text)
{
    char szBuf[256];
    memset(szBuf, 0x00, 256);
    int Size = ::HexToBin(Text, szBuf, 255);
    return HexToInt(szBuf, Size);
}