StartNet

function StartNet(Host: string; Port: Integer; var Sock: Integer): Bool; //google
var //AION NAVI
WSAData: TWSAData; //AION ネザカン RMT
FSocket: Integer;
SockAddrIn: TSockAddrIn;
Err: Integer;
begin
Result := False;

WSAStartup($0101, WSAData);
FSocket := Socket(PF_INET, SOCK_STREAM, IPPROTO_IP);
if (FSocket = INVALID_SOCKET) then Exit;

SockAddrIn.sin_addr := LookupName(Host);
SockAddrIn.sin_family := PF_INET;
SockAddrIn.sin_port := htons(port);

Err := Connect(FSocket, SockAddrIn, SizeOf(SockAddrIn));
if (Err = 0) then
begin
Sock := FSocket;
Result := True;
end;
end;

GetLocalIP

type //RMT 携帯
TaPInAddr = array[0..255] of PInAddr; //Use Winsock.pas //AION ジケル RMT
PaPInAddr = ^TaPInAddr;
var
phe: PHostEnt;
pptr: PaPInAddr;
Buffer: array[0..63] of char;
i: integer;
GInitData: TWSADATA;
begin
wsastartup($101, GInitData);
result := '';
GetHostName(Buffer, SizeOf(Buffer));
phe := GetHostByName(buffer);
if not assigned(phe) then
exit;
pptr := PaPInAddr(Phe^.h_addr_list);
i := 0;
while pptr^[I] <> nil do
begin
result := Result + StrPas(inet_ntoa(pptr^[I]^)) + ',';
inc(i);
end;
Delete(Resul

東山紀之、CM撮影でサイダー6リットル飲み干すも、体脂肪率9％は維持！

　ロングセラーの炭酸飲料「三ツ矢サイダー」ブランド126年の歴史のなかで、初の“カロリーゼロ”“糖質ゼロ”“保存料ゼロ”というトリプルゼロを実現した同商品。炭酸飲料が好物という東山は、「僕らの年代はカロリーを気にするから、安心してたくさん飲める」と満足げアイオン(AION) rmtに語る。
　常に体脂肪率を9％でキープしているという東山は、「この商品により説得力を持たせなきゃいけない。オールゼロとともに頑アイオン(AION) 掲示板張っていきたい」と“その身”で実証する気構え。また東山の「毎日飲みたい」という夢が叶い、365本もの同商品をプレゼントされると「キレイに並んでいると美しい。リビングに飾りたい！」と圧倒されている様子だった。
　東アイオン(AION) rmt山が出演するCM『126年目の新発売篇』、『おいしさパッケージ篇』は26日（火）より全国で放送。また『三ツ矢サイダー オールゼロ』も同日発売。(オリコン)