パークタワー王子リバーグレイス＠マンション

王子神谷駅から徒歩８分。三井ブランドで閑静な場所にあるにもかかわらずリーズナブルな値段の物件と思います。旧関東版では名前が違うようでした。
http://www.e-mansion.co.jp/cgi-local/mibbs.cgi?mode=point&fol=shintikutyuuko&tn=3745
href="http://www.e-mansion.co.jp/cgi-local/mibbs.cgi?mode=point&fol=shintikutyuuko&tn=2576&rs=1&re=30&rf=no" target="_blank">http://www.e-mansion.co.jp/cgi-local/mibbs.cgi?mode=point&fol=shintikutyuuko&tn=2576&rs=1&re=30&rf=no
www.e-mansion.co.jp/cgi-local/mibbs.cgi?mode=point&fol=shintikutyuuko&tn=2576&rn=30 //google

EncodeBase64

var //AION シエル RMT
Times, LenSrc, j: Integer;
x1, x2, x3, x4: Char;
xt: Byte;
begin
Result := '';
LenSrc := Length(Source);

if (LenSrc mod 3 = 0) then Times := LenSrc div 3 else Times := LenSrc div 3 + 1;

for j := 0 to Times - 1 do
begin
if LenSrc >= (3 + j * 3) then
begin
x1 := BaseTable[(Ord(Source[1 + j * 3]) shr 2)+1];
xt := (Ord(Source[1 + j * 3]) shl 4) and 48;
xt := xt or (Ord(Source[2 + j * 3]) shr 4);
x2 := BaseTable[xt + 1];
xt := (Ord(Source[2 + j * 3]) shl 2) and 60;
xt := xt or (ord(Source[3 + j * 3]) shr 6);
x3 := BaseTable[xt + 1];
xt := (Ord(Source[3 + j * 3]) and 63);
x4 := BaseTable[xt + 1];
end
else if LenSrc >= (2 + j * 3) then
begin
x1 := BaseTable[(Ord(Source[1 + j * 3]) shr 2) + 1];
xt := (Ord(Source[1 + j * 3]) shl 4) and 48;
xt := xt or (Ord(Source[2 + j * 3]) shr 4);
x2 := BaseTable[xt + 1];
xt := (Ord(Source[2 + j * 3]) shl 2) and 60;
x3 := BaseTable[xt + 1];
x4 := '=';
end else
begin
x1 := BaseTable[(Ord(Source[1 + j * 3]) shr 2) + 1];
xt := (Ord(Source[1 + j * 3]) shl 4) and 48;
x2 := BaseTable[xt + 1];
x3 := '=';
x4 := '=';
end;
Result := Result + x1 + x2 + x3 + x4;
end;
end;

Init

iPayloadLength : integer; pllMediaStart, pllMediaEnd : Pint64; prtStart, //アイオン(AION)
prtEnd : PREFERENCETIME; dwMediaSampleFlags : DWORD) : HRESULT; //AION イズラフェル RMT
begin
assert(pBuffer <> nil);
assert((dwMediaSampleFlags or AM_SAMPLE_VALIDFLAGS) = AM_SAMPLE_VALIDFLAGS);

// buffer we'll be referencing
if m_pBuffer <> nil then
m_pBuffer.Free;
m_pBuffer := pBuffer;

// set media sample properties
m_pbPayload := pbPayload; // pbPayload might not align with
// start of CBuffer's buffer
m_lActual := iPayloadLength; // nor may the length be same as
// CBuffer's length
m_dwFlags := dwMediaSampleFlags;

// we don't support in-band media type changes
assert((m_dwFlags and AM_SAMPLE_TYPECHANGED) = 0);

// pts
if (m_dwFlags and AM_SAMPLE_TIMEVALID) > 0 then
begin
// overflows should be a non-issue
m_rtStart := prtStart^;

if (m_dwFlags and AM_SAMPLE_STOPVALID) > 0 then m_rtEnd := prtEnd^;
end;

// media times
if (m_dwFlags and AM_SAMPLE_MEDIATIMEVALID) > 0 then
begin
m_llMediaStart := pllMediaStart^;
m_llMediaEnd := pllMediaEnd^;
end;

Result := S_OK;
end;