2ちゃんねるブラウザ「OpenJane」 @Windows Part 5

一応これで0.1.5.1行く予定でテスト中です。なんか問題ありそうならよろしく。

//出す方
if (board.GetBBSType = bbs2ch) and (0 < length(Config.tstWrtCookie)) then
begin
　if AnsiStartsStr('SPID=', Config.tstWrtCookie) or
　　 AnsiStartsStr('PON=', Config.tstWrtCookie) then
　　list.Add('Cookie: ' + Config.tstWrtCookie + ';')
　else
　　list.Add('Cookie: SPID=' + Config.tstWrtCookie + ';');
end;

//受ける方
if (Items[i].CookieName = 'SPID') or (Items[i].CookieName = 'PON') then
begin
　Config.tstWrtCookie := Items[i].ClientCookie;
　break;
end;