From 0654806efefd22c72d1ca881f92c2855e7ba758a Mon Sep 17 00:00:00 2001 From: h677 Date: Wed, 30 Mar 2005 14:08:22 +0000 Subject: [PATCH] =?utf8?q?Be=E3=81=AB=E6=9B=B8=E3=81=8D=E8=BE=BC=E3=82=81?= =?utf8?q?=E3=82=8B=E3=82=88=E3=81=86=E3=81=AB=E3=81=97=E3=81=A6=E3=81=BF?= =?utf8?q?=E3=81=9F=E3=80=82?= MIME-Version: 1.0 Content-Type: text/plain; charset=utf8 Content-Transfer-Encoding: 8bit --- Editor.pas | 6 ++++++ 1 file changed, 6 insertions(+) diff --git a/Editor.pas b/Editor.pas index 9ed0a45..bfe34cf 100644 --- a/Editor.pas +++ b/Editor.pas @@ -788,6 +788,7 @@ var body : TStringList; Remote : String; ABoard : TBoard; + Protocol,Host, Path, Document, Port, Bookmark : String; begin FAbort := False; State := gdsError; @@ -817,6 +818,11 @@ begin Cookie := Cookie + 'SPID=' + SPID + '; '; if PON <> '' then Cookie := Cookie + 'PON=' + PON + '; '; + //ƒzƒXƒg‚ª2ch‚È‚ç‚΁ABe‚ɑΉž‚µ‚Ä‚¢‚é‚©‚Ç‚¤‚©ŠÖŒW–³‚µ‚ɁABE‚̃f[ƒ^‚ð‘—‚é + GikoSys.ParseURI( URL, Protocol,Host, Path, Document, Port, Bookmark ); + if GikoSys.Is2chHost(Host) then + Cookie := Cookie + 'MDMD=' + GikoSys.Setting.BeCode + '; ' + + 'DMDM=' + GikoSys.Setting.BeUserID + '; '; Cookie := 'Cookie: ' + Cookie + 'NAME=' + NameComboBox.Text + '; MAIL=' + MailComboBox.Text; sysMenu := GetSystemMenu( Handle, false ); -- 2.11.0