Base64 Encoding & Decoding 소스 입니다.

남의 것을 가져다가, 수정했습니다. (출처: http://www.delphipraxis.net/991-base64-mime-en-decoding.html)

Delphi 2009 & 2010 에서 사용할 수 있도록 소스 수정하였습니다.

Delphi 2010 에서 테스트하였습니다.

그러나, 아직 Ansi 용입니다. 

Unicode용은 어떻게 Base64 인코딩, 디코딩하는지 알아보는 중입니다. (아시는 분 있으면 알려주세요~.)

Base64 Encoding과 Decoding을 델파이 내장 모듈을 이용해서 다음과 같이 쉽게 할 수도 있습니다. (출처 : http://strcpy.com/294)

uses IdCoder, IdCoder3to4, IdCoderMIME, jpeg;

function Base64Decode(const Text : ansiString): ansiString;
var
  Decoder : TIdDecoderMime;
begin
  Decoder := TIdDecoderMime.Create(nil);
  try
    Result := Decoder.DecodeString(Text);
  finally
    FreeAndNil(Decoder)
  end
end;

function Base64Encode(const Text : ansiString): ansiString;
var
  Encoder : TIdEncoderMime;
begin
  Encoder := TIdEncoderMime.Create(nil);
  try
    Result := Encoder.EncodeString(Text);
  finally
    FreeAndNil(Encoder);
  end
end;

하지만, 첨부된 소스와 같이, 어셈블러를 사용하는 것이 속도가 훨씬 빠르다고 합니다. (원 저자의 주장에 의하면...)

쓸모가 있다고 생각하시면 사용하시고, 아니면 어쩔 수 없습니다.

눈팅만 하기 머해서, 최근에 설치한 Delphi 2010 에서 처음 시도해 본 소스 수정이라, 함 올려봤습니다.

감사합니다~.