掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
VB6 ランダムアクセスファイルで (ID:138666)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
●補足関連 プログラムにトラップを張って、昨夜放置しておいてみましたところ、問題のポイントが判明しました。 Public Sub Loging() Data.DateTime=Now For i=0 to 300 配列(i)=配列(i)・・・データの加工処理 Data.Dat(i)=配列(i) Next i n=FreeFile Open FileName For Random Access Write Shared As #n Len=Len(Data) Rec=書き込みレコード算出(1秒1レコード) Put #n,Rec,Data Close #n End Sub ↑のサンプルで言うとPutが1.796875秒ほどかかっておりました。 当然ながら常時はほとんどゼロ秒ですが・・・ 以前に我龍院さんが経験された内容に近いと思います。 開発中のシステムであり、ネットワークにてパソコンが3台接続されておりますが、電源の入り切りもなく、クライアントPC上では何のソフトも動作しておりません。 また、以前に何度も同様のシステムを作っておりますが、今回の初めて「遅延」に遭遇いたしましたので、対策に困っております。 本体はDELLサーバーで、RAID5(500GB×3台構成)です。 ちなみに、同じソフトをクライアントPCでも動作させてみましたが、そちらは今のところ遅延が発生しておりません・・・ ※クライアントPCで動作させたプログラムには、機器と接続する専用ボードがないので、専用のAPIの箇所はコメントアウトしております。また、ORACLEもインストールされておりません。 新品サーバーなので疑いたくはないですが、HDD(もしくは関連コントローラ)の故障なども考えさせられてしまいますので、近いうちに診断ツールなどで診断してみようかなと思っております。 >我龍院さん VBによるスレッドの優先順位の設定のサンプルありがとうございます。 試してみようと思います。
←解決時は質問者本人がここをチェックしてください。
更新する
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.