スレッド: [becky-pin:02365] 【 BkCM 】 WZBBS 使用時の問題

なかにしです。

　こちらで聞いてもいいでしょうか？(^^;＞三浦さん

　BkCM投稿も出来るようになってとても快適に利用させてもらってま
す。すっかりINCMを起動しなくて済むようになりました(^^)

　ところで、WZBBSを利用している時に次の２点の問題があります。

・投稿できない(^^;
・日付がおかしくなる。必ずではないのですが、たまにスレッドの子
 の発言の日付が、親の発言と一致していることがあるんです。掲示
 板を直接見ると、もちろんそんなことはありません。

　WZBBSプラグインの問題でしょうか・・？INCMでは起きない問題な
のですが。

　ちなみにビレッジセンターの掲示板なら投稿テスト用の部屋がある
ので、試験ができるかと。
http://www.villagecenter.co.jp/soft/support.html

--
Masahiko NAKANISHI mailto:mnakan@...
Becky!ユーザーの部屋 http://www.becky-users.net/
Becky!2 FAQ http://www.becky-users.net/faq.html

Masahiko NAKANISHIさんの<20020913005656.92E8.MNAKAN@bea.hi-ho.ne.jp>から
>>　ところで、WZBBSを利用している時に次の２点の問題があります。
>>
>>・投稿できない(^^;

　こちらは調査中です。


>>・日付がおかしくなる。必ずではないのですが、たまにスレッドの子
>>  の発言の日付が、親の発言と一致していることがあるんです。掲示
>>  板を直接見ると、もちろんそんなことはありません。

　・日付が他のメッセージと同じになってしまう
　・投稿者名が題名と同じになってしまう
　という現象は、INCMで実行しても出現するのでスクリプト側の問題でしょう。
--

::===========================================================
:: 三浦　琢磨  <mailto:mueller@...>
:: PGP fingerprint: 42FC 4F53 2FB6 5810 1B1B 97A3 F166 2DE7
::===========================================================

なかにしです。

on Sat, 14 Sep 2002 01:03:36 +0900
in [[becky-pin:02366] Re: 【 BkCM 】 WZBBS 使用時の問題]
<20020914005407.F368.MUELLER@csc.jp>
Miura Takuma <mueller@...> wrote:
> >>・投稿できない(^^;
>
> 　こちらは調査中です。

　よろしくお願いします。

> 　・日付が他のメッセージと同じになってしまう
> 　・投稿者名が題名と同じになってしまう
> 　という現象は、INCMで実行しても出現するのでスクリプト側の問題でしょう。

　おお、そうでしたか。そういえばINCM側で投稿者名がよく件名と同
じになってましたが、あまり気にしてませんでした(^^;
　どこまで読んだかの情報も更新されない時があって、重複受信が起
きるんですよね。このあたりはスクリプトを解析すればわかるかな？

--
Masahiko NAKANISHI
mailto:mnakan@...

Masahiko NAKANISHIさんの<234417933020020915004044mnakan@bea.hi-ho.ne.jp>から
>>> >>・投稿できない(^^;
>>>
>>> 　こちらは調査中です。
>>
>>　よろしくお願いします。

　・・・と思ったら、INCMでも投稿できなくないですか？(^^;)


>>　どこまで読んだかの情報も更新されない時があって、重複受信が起
>>きるんですよね。このあたりはスクリプトを解析すればわかるかな？

　ええ、よろしくお願いします。
　私は、Perlは書けても読めない人なので(^^;)。

＃　だって、Perlってそういうトコありません？
--

::===========================================================
:: 三浦　琢磨  <mailto:mueller@...>
:: PGP fingerprint: 42FC 4F53 2FB6 5810 1B1B 97A3 F166 2DE7
::===========================================================

なかにしです。

　現在、本家は異様に配信が遅いし、投稿もなかなか受け付けてもら
えないようですね。サーバーから返って来ちゃいました。

on Sun, 15 Sep 2002 00:58:49 +0900
in [[becky-pin:02368] Re: 【 BkCM 】 WZBBS 使用時の問題]
<20020915005646.0B08.MUELLER@csc.jp>
Miura Takuma <mueller@...> wrote:
> 　・・・と思ったら、INCMでも投稿できなくないですか？(^^;)

　・・・（確認）いえ、できます。INCMプラグインの場所は同じもの
を差しているので、バージョンの違いということもなさそうなんです
けどね・・・？

> 　ええ、よろしくお願いします。
> 　私は、Perlは書けても読めない人なので(^^;)。
>
> ＃　だって、Perlってそういうトコありません？

　えーとえーと、書けもしないですσ(^^;

＃ちょっと思ってみただけ、ということで(^^;

--
Masahiko NAKANISHI mailto:mnakan@...
Becky!ユーザーの部屋 http://www.becky-users.net/
Becky!2 FAQ http://www.becky-users.net/faq.html

どうもお世話様です、noris です。

こちらも横から失礼します。

☆Masahiko NAKANISHI さんの
『[becky-pin:02367] Re: 【 BkCM 】 WZBBS 使用時の問題』
<234417933020020915004044mnakan@bea.hi-ho.ne.jp>より……☆
> > 　・日付が他のメッセージと同じになってしまう
> > 　・投稿者名が題名と同じになってしまう
> > 　という現象は、INCMで実行しても出現するのでスクリプト側の問題でしょう。
>
> 　おお、そうでしたか。そういえばINCM側で投稿者名がよく件名と同
> じになってましたが、あまり気にしてませんでした(^^;

私も人様の Perl スクリプトを解析するのが苦手なので(笑)、
自分仕様の WZBBS 用 Plug-in を試作してみました。
んで、INCM で使う分には送受信とも問題ないみたいなので、
おー、これで大丈夫だろうと思ったら、
肝心の(?) BkCM で何故か読み込めないんですよ (^_^;)

ステータスバーの表示を見る限り、
Perl の処理は順調に最後まで行っているみたいなのですが、
その後の Becky! への出力作業の段階でストップしてしまう印象です。

他に下記サイトで公開している拙作の Plug-in を試したのですが、
大抵は問題なく BkCM でも機能しているみたいなんですよね。

INCM で問題ない以上は、残念ながら Plug-in 作成側
としてはこれ以上のことは分かりませんので、
できましたら三浦さんの方で原因を探っていただければ幸いです。
原因が分かれば、今後こちらでも配慮することが出来ますし。

問題の拙作 WZBBS 用 Plug-in はこちらに置いておきます。
http://www.r66.7-dj.com/~noris/download/temp/wzbbs_n.lzh
なおこちら、実は９月当時に作っちゃってたんですけど、
上記を報告しようかどうしようか迷っているうちに忙しくなってしまい、
つい棚上げにしちゃってたものです(^^ゞ
今回他の件で発言する機会があったので、
ついでにご報告させていただきました。

ではでは。

　  ………………………………………………………………………………
　   noris ／ 太田宜邦 （Oota,Norikuni）   noris@...
　       「半熟ロジック」 http://www.r66.7-dj.com/~noris/
　  ………………………………………………………………………………

　実は、私も動くスクリプトと動かないスクリプトがあるのは
　認識していました。
　ただ、どういう条件でその違いが出ているか、まだわかりません。
　要は、それぞれのスクリプトが解析できないので(^^;)。


　・・・だもので、子プロセス起動ルーチンに何か根本的な問題が
　あるのではないかとにらんでいるのですが・・・

　ρ(.. )このメソッド、何かまずいところってあるでしょうか？

＃　後藤＠ＮＥＣ様の
＃　http://www2.big.or.jp/~osamu/Delphi/Tips/key.cgi?key=5#0115.txt
＃　を元にしています。


////////////////////////////// 子プロセスを実行し標準出力を奪う
function TPluginThread.CreateChildProcess(curdir, cmdline: AnsiString;
        headder: string): Integer;
var
 buf: array[0..4095] of Char;
 hRead, hWrite: THandle;
 SecAttrib: TSecurityAttributes;
 StartInfo: TStartupInfo;
 ProcInfo: TProcessInformation;
 dwRead: DWORD;
 lastCRLF: PChar;
 msg, nextmsg: string;
begin
 //
 // 名前なしパイプの作成
 //
 FillChar(SecAttrib, SizeOf(SecAttrib), 0);
 SecAttrib.nLength := SizeOf(SecAttrib);
 SecAttrib.bInheritHandle := TRUE;
 CreatePipe(hRead, hWrite, @SecAttrib, 0);

 //
 // 子プロセスを作成
 //
 FillChar(StartInfo, SizeOf(StartInfo), 0);
 StartInfo.cb := SizeOf(StartInfo);
 StartInfo.dwFlags := STARTF_USESTDHANDLES or STARTF_USESHOWWINDOW;
 StartInfo.hStdOutput := hWrite;
 StartInfo.wShowWindow := SW_HIDE;
 if not CreateProcess(Pointer(0),
             PChar(cmdline),
             Pointer(0), Pointer(0),
             TRUE,
             0,
             Pointer(0), Pchar(curdir),
             StartInfo, ProcInfo) then
 begin
   Result := -1;
   Exit;
 end;
 WaitForInputIdle(GetCurrentThread(), INFINITE);
 CloseHandle(hWrite);

 nextmsg := headder;
 While ReadFile(hRead, buf, SizeOf(buf) - 1, dwRead, Nil) do
 begin                                // 画面下に標準出力の内容を表示する
   if Terminated then break;
   if dwRead = 0 then Break;

   buf[dwRead] := #00;
   lastCRLF := strRscan(buf, #10);
   if lastCRLF=nil then begin
     msg := nextmsg + buf;            // 改行がなければ表示にそのまま追加
     nextmsg := msg;
   end else if lastCRLF[1]=#00 then begin   // 最後が改行コードなら
     lastCRLF[-1] := #00;
     lastCRLF := strRscan(buf, #10);
     if lastCRLF=nil then
       msg := nextmsg + buf                 // 改行前まで表示
     else
       msg := headder + ( lastCRLF+1 );
     nextmsg := headder;                    // 次回表示は初期化しておく
   end else begin
       msg := headder + ( lastCRLF+1 ); // 改行があれば、それ以降を表示
       nextmsg := msg;
   end;
   Fbka.SetMessageText(0,PChar(msg));
 end;

 CloseHandle(hRead);
 CloseHandle(procinfo.hProcess);
 CloseHandle(procinfo.hThread);
 Result := 0;
end;
--

::===========================================================
:: 三浦　琢磨  <mailto:mueller@...>
:: PGP fingerprint: 42FC 4F53 2FB6 5810 1B1B 97A3 F166 2DE7
::===========================================================

Tietew です。

On Tue, 05 Nov 2002 20:03:33 +0900
In article <20021105194955.CE80.MUELLER@csc.jp>
[[becky-pin:02394] 子プロセス起動ルーチン]
Miura Takuma <mueller@...> wrote:

> 　実は、私も動くスクリプトと動かないスクリプトがあるのは
> 　認識していました。
> 　ただ、どういう条件でその違いが出ているか、まだわかりません。
> 　要は、それぞれのスクリプトが解析できないので(^^;)。
>
>
> 　・・・だもので、子プロセス起動ルーチンに何か根本的な問題が
> 　あるのではないかとにらんでいるのですが・・・
>
> 　ρ(.. )このメソッド、何かまずいところってあるでしょうか？
:
>   //
>   // 名前なしパイプの作成
>   //
>   FillChar(SecAttrib, SizeOf(SecAttrib), 0);
>   SecAttrib.nLength := SizeOf(SecAttrib);
>   SecAttrib.bInheritHandle := TRUE;
>   CreatePipe(hRead, hWrite, @SecAttrib, 0);

ここは，読み込み用ハンドルは継承可にしない方がよい。
読み込み用ハンドルは DuplicateHandle で継承不可のハンドルを複製
して使う。

DuplicateHandle(GetCurrentProcess(), hRead,
 GetCurrentProcess(), &hRead2, 0, FALSE,
 DUPLICATE_SAME_ACCESS);
CloseHandle(hRead);
hRead = hRead2;

みたいに。

>   //
>   // 子プロセスを作成
>   //
>   FillChar(StartInfo, SizeOf(StartInfo), 0);
>   StartInfo.cb := SizeOf(StartInfo);
>   StartInfo.dwFlags := STARTF_USESTDHANDLES or STARTF_USESHOWWINDOW;
>   StartInfo.hStdOutput := hWrite;
   StartInfo.hStdError := hWrite;
 これも欲しい。
>   StartInfo.wShowWindow := SW_HIDE;
>   if not CreateProcess(Pointer(0),
>               PChar(cmdline),
 ここでプラグインパスを " " で括っていますか？
>               Pointer(0), Pointer(0),
>               TRUE,
 ここは FALSE に。
>               0,
 DETACHED_PROCESS を指定しましょう。コンソールウィンドウが表示
 されなくなります。
>               Pointer(0), Pchar(curdir),
>               StartInfo, ProcInfo) then
>   begin
>     Result := -1;
>     Exit;
>   end;
>   WaitForInputIdle(GetCurrentThread(), INFINITE);
   ^^^ いりません。
>   CloseHandle(hWrite);

この下はパス^^;;



—[ Tietew ]——————————————————————————
メ : tietew@... / tietew@... / tietew@...
ホペ: http://www.tietew.net/     Tietew Windows Lab.
     http://www.masuclub.net/   鱒倶楽部
指紋: 26CB 71BB B595 09C4 0153  81C4 773C 963A D51B 8CAA

　教えていただいたヒントを参考にいろいろいじってみました。
　結果から言うと、今のところ子プロセスから帰ってこなくなる問題は
　まだ解決していません。

　どうも、FileReadが呼ばれたまま処理を返してくれていないようなのです。

＃　かといって非同期で書き直せるほどの力はないし。
＃＃　そもそも、CreateProcessで作成したパイプでは非同期は無理？
--

::===========================================================
:: 三浦　琢磨  <mailto:mueller@...>
:: PGP fingerprint: 42FC 4F53 2FB6 5810 1B1B 97A3 F166 2DE7
::===========================================================