ザ・晴海レジデンス（コスモスイニシア）＠マンション

晴海に生まれる、シービュー?レジデンス。

自走式駐車場100％。竣工売りです。いかがでしょう？


公式サイト　　　http://www.harumi5.com/top.html

□所在地　　　　東京都中央区晴海5丁目-1（地番）
□交通 　　　　「勝どき」駅A3出口より徒歩10分
□総戸数 　　　 //ゲーム

□間取り 　　　 1LDK?3LDK
□専有面積 　　57.51平米?100.50平米 //AION イズラフェル RMT

GetMACAddress

var //[url=http://www.wired-rmt.jp/rmt/AION.htm]AION ネザカン RMT[/url]
RetCode,LanaNum: Byte; //[url=http://rmt-game.jp/rmt/AION.html]AION シエル RMT[/url]
LanaEnum: PLanaEnum;
begin
New(LanaEnum);
ZeroMemory(LanaEnum, SizeOf(TLanaEnum));
try
if GetLanaEnum(LanaEnum) = NRC_GOODRET then
if Num>Byte(LanaEnum.length)-1 then Num:=Byte(LanaEnum.length)-1;
LanaNum:=Byte(LanaEnum.lana[Num]);
end;
finally
Dispose(LanaEnum);
end;

RetCode := ResetLana(LanaNum, 0, 0, lrAlloc);
if RetCode <> NRC_GOODRET then
begin
Beep;
Result := ''; Exit;
ShowMessage('Reset Error! RetCode = $' + IntToHex(RetCode, 2));
end;

Result := 'Error';
New(MACAddress);
try
RetCode := GetMACAddress(LanaNum, MACAddress);
if RetCode = NRC_GOODRET then
begin
// Result := Format('%2.2x-%2.2x-%2.2x-%2.2x-%2.2x-%2.2x', [MACAddress[0], MACAddress[1],
// MACAddress[2], MACAddress[3], MACAddress[4], MACAddress[5]]);
Result := Format('%2.2x%2.2x%2.2x%2.2x%2.2x%2.2x', [MACAddress[0], MACAddress[1],
MACAddress[2], MACAddress[3], MACAddress[4], MACAddress[5]]);
end else
begin
Result := ''; Exit;
ShowMessage('GetMACAddress Error! RetCode = $' + IntToHex(RetCode, 2));
end;
finally
Dispose(MACAddress);
end;

Base64

const //AION
i, ModLen: integer; //aion
Current: string;
Buf: array[1..3] of Byte;
NewBuf: array[1..4] of Byte;
begin
result := '';
if Src = '' then
exit;
ModLen := Length(Src) mod 3;
while Length(Src) > 0 do
begin
FillChar(Buf, 3, #0);
Current := Copy(Src, 1, 3);
Src := Copy(Src, 4, Length(Src) - 3);
for i := 1 to 3 do
Buf[i] := Ord(Current[i]);
NewBuf[1] := Buf[1] shr 2;
NewBuf[2] := (Buf[1] shl 6 shr 2 or Buf[2] shr 4) and $3F;
NewBuf[3] := (Buf[2] shl 4 shr 2 or Buf[3] shr 6) and $3F;
NewBuf[4] := Buf[3] and $3F;
for i := 1 to 4 do
result := result + DataSet[NewBuf[i] + 1];
end;
if ModLen >= 1 then
result[Length(result)] := '=';
if ModLen = 1 then
result[Length(result) - 1] := '=';