VBプログラマ質問スレ（6.0以前） Part46
■ このスレッドは過去ログ倉庫に格納されています
0001デフォルトの名無しさん
2006/02/03(金) 22:58:330183デフォルトの名無しさん
2006/02/06(月) 15:46:30お前ら良かったな
バレンタインデーなくなるみたいだぞｗ
0184デフォルトの名無しさん
2006/02/06(月) 15:48:27void scpy(const char* src,char* dst){
//srcからdstにコピー
__asm{
push eax;
mov esi,src;
mov edi,dst;
cld;//DF=0(movsbで+1方向に進む)
lbl:
cmp [esi],0;
je lbl_exit;
movsb;
jmp lbl;
lbl_exit:
mov byte ptr [edi],0;//終端の0をコピー
pop eax;
}
return;
}
0185デフォルトの名無しさん
2006/02/06(月) 17:13:48VB6とPostgreSQL8をファイルDSNで接続する方法がわかりません
今のコーティングは下記の記述の通りです
「一般エラー：DSN ファイル"が無効です。」となってしまいます
ファイルDSN名：PostgreSQL(Unicode)
(どちらが良いのか・一般的なのかわからないので)
(Unicode/ANSIのどちらも試しましたが両方だめでした)
ちゃんとファイル C:\PostgreSQL はあります
データベースのtestテーブルのnameの一覧をList1に表示してみようと思ったのですが
接続すらできていない状態で困っています
Cn.Open "FILEDSN=C:\PostgreSQL;"
Set rs = Cn.Execute("select * from test")
Do While Not rs.EOF
List1.AddItem rs.Fields("name").Value
rs.MoveNext
Loop
お願い致します
0186デフォルトの名無しさん
2006/02/06(月) 17:16:040187デフォルトの名無しさん
2006/02/06(月) 17:18:12ttp://homepage2.nifty.com/inform/vbdb/filedsn.htm
0188デフォルトの名無しさん
2006/02/06(月) 18:10:19MSDNには
可変長文字列には、約2GB (2^31) までの文字を格納することができます。
固定長文字列には、1 〜 約 2GB (2^31) の文字を格納することができます。
と書かれてますので問題ないと思いますが、可変長、固定長どちらでやっても
やはり250文字で切れてしまいます。
いろいろ調べて見ましたがよく分かりません。
ご教示お願いします。
0189デフォルトの名無しさん
2006/02/06(月) 18:11:27再現する最小のソースをどうぞ
0190デフォルトの名無しさん
2006/02/06(月) 18:18:07どうか何卒ご教授願います。
0191デフォルトの名無しさん
2006/02/06(月) 18:24:060192デフォルトの名無しさん
2006/02/06(月) 18:49:11ウォッチで値を参照しながらデバッグしてたのですが、もしかしたらウォッチって
250文字までしか見れないんでしょうか。
250文字で切れてると思ってしまいました。
念のためDebug.Printで確認したら問題ありませんでした。
初歩的な質問ですみませんでした。
0193デフォルトの名無しさん
2006/02/06(月) 18:51:38当然の確認作業はやり惜しむって俺には理解できんよ。。
M気質の人なのかなあ
0194デフォルトの名無しさん
2006/02/06(月) 18:54:350195デフォルトの名無しさん
2006/02/06(月) 18:57:38何の問題もないけど。
Dim Tmp$
Tmp$ = ""
Dim i%
For i% = 0 To 299
Tmp$ = Tmp$ & Chr$((i Mod 26) + Asc("A"))
Next i%
Debug.Print Len(Tmp$), Tmp$
0196デフォルトの名無しさん
2006/02/06(月) 18:58:38そういうコードは久々にみた
0197デフォルトの名無しさん
2006/02/06(月) 21:08:18この場合、Form_Load プロシージャと Main プロシージャでは
どちらが適切と言えるでしょうか？
0198デフォルトの名無しさん
2006/02/06(月) 21:10:03シラネ。
そんなのいちいち人に聞かなきゃ二進も三進もいかないなら
PGなんて辞めるこった。
自分のためにも周囲のためにもな。
0199デフォルトの名無しさん
2006/02/06(月) 21:10:570200デフォルトの名無しさん
2006/02/06(月) 21:11:15それだけの条件ではどちらが適切かは決めかねる。
つーか､｢設定値を読込むのにどちらが適してるか｣ではなく
ソフトの設計としてどちらを使うか考えるべきだろ。
0201デフォルトの名無しさん
2006/02/06(月) 21:33:04Sub Main は自分の意志で書かないとデフォルトでは存在しないが。
0202デフォルトの名無しさん
2006/02/06(月) 21:33:130203デフォルトの名無しさん
2006/02/06(月) 21:33:57普段どんなコードを見てるの？
0204デフォルトの名無しさん
2006/02/06(月) 21:35:57こんなこーど
Dim Tmp as string
Dim i as integer
Dim asc_A as integer
asc_A=Asc("A")
For i = 0 To 299
Tmp = Tmp & Chr$((i Mod 26)+asc_A)
Next
Debug.? Len(Tmp), Tmp
0205197
2006/02/06(月) 21:38:23言葉不足でしたが、適切と言うよりかは、
読み込みが速いのはどちらかと聞きたかったのですが、
・・・読み込みが速いとかいう低次元の発想で質問をしたこと深く反省しています。
0206デフォルトの名無しさん
2006/02/06(月) 21:41:15「読み込み」というのはアプリケーションイメージの読み込みか、
その後の設定値の読み込みか・・・
後者だろうなぁ。
後者ならドコに書いても同じだと思われ。
前者なら、Form_Load()はVBから間接的に呼ばれているだろうからちょっと遅い「かも」
数ミリ秒を体感できる人間ならSubMain()でもいいだろうが、そうでなければどっちでも構わない。
個人的にはSubMain()だけど
0207デフォルトの名無しさん
2006/02/06(月) 21:42:49死んだじっちゃんはVer6のリストビウには手を出すなって言ってた
0208197
2006/02/06(月) 21:56:38ずばり前者も後者もあてはまるような、おみごとです。
さほど大差は無いようですが、>>206様が「個人的にはSubMain()」と
おっしゃってるので、わたしもそうさせていただきます。
どうもありがとうございました。
0209デフォルトの名無しさん
2006/02/06(月) 22:04:15特に重くない。
>>204
そういう意味か。
突っ込み所は沢山あるが、まぁいっか。
>>205
何処で読み込もうが、読み込み速度は同じだが。
0210デフォルトの名無しさん
2006/02/06(月) 22:07:56ちゃんと突っ込め
奥までな
0211デフォルトの名無しさん
2006/02/07(火) 00:42:162005だとmain()が終了するとプロセスが終了するという仕様らしい。
VB6から2005へ移行する可能性があるなら
ちょっと意識してもいいかもしれない。
0212デフォルトの名無しさん
2006/02/07(火) 08:37:14今回は、ブラウザの操作を自動化する機能を実装
アラートや認証ダイアログなどは全部表示前に捕まえて
自分で制御できるので、自動操作しにくいのはFLASHのサイトくらい
実行ファイルもActiveX化して、VBA等との連携も容易になった
ますます進化をつづけるタブブラウザにご期待ください
ところで、エンコードの種類を変える方法がよくわかんないんだけど、どうやんの？
>>182
>UserAgentの変更と、お気に入り順序は気になるな
UA は OnAmbientProperty を VB で実装すれば出来ます
お気に入り順序は、レジストリに並び順がありますが、軽く説明すると
バイナリは {データ長,順番,ITEMIDLIST} という構造体の数珠繋ぎになってます
0213デフォルトの名無しさん
2006/02/07(火) 08:47:10死ね
0214デフォルトの名無しさん
2006/02/07(火) 08:51:03> ますます進化をつづけるタブブラウザにご期待ください
バイナリには全く期待してない。目新しい機能もないし､WebBrowserコントロールだし･･･
(VBでWebBrowser使わずに実装しろと言うわけではなく､VBではWebBrowser使うのが最良の手段なのはわかるけど
最良の手段がWebBrowserコントロールという時点で終わってる)
ソースには目下の者が書いた物でも参考になる部分が無いとは限らないから少しは期待してもいいが､
どうせこの手の子はソース出さないだろうな。
0215デフォルトの名無しさん
2006/02/07(火) 09:01:24IEコンポってことは言ったけど、一度もWebBrowser「コントロール」だなんて
言ってないんだけど、どこでそういう風に思われたんだろうなぁｗ
勝手に誤解してVB終わってるって言う前に、自分の頭が終わってることを認識しよう！
0216デフォルトの名無しさん
2006/02/07(火) 09:07:19あのとき否定しなかったならそう思われても仕方ないと思うが
0217デフォルトの名無しさん
2006/02/07(火) 09:07:31死ね
0218デフォルトの名無しさん
2006/02/07(火) 09:24:030219デフォルトの名無しさん
2006/02/07(火) 09:49:160220デフォルトの名無しさん
2006/02/07(火) 10:17:04死ね
0222デフォルトの名無しさん
2006/02/07(火) 10:52:22死ね
0223デフォルトの名無しさん
2006/02/07(火) 11:02:44死ね
0224デフォルトの名無しさん
2006/02/07(火) 11:05:01死ね
0225デフォルトの名無しさん
2006/02/07(火) 11:19:09死ね
0226デフォルトの名無しさん
2006/02/07(火) 11:44:020227デフォルトの名無しさん
2006/02/07(火) 11:59:06受信側でReadFileをしたときこのReadFileは
すぐに戻ってきます。
しかし送信データが取れません。
送信側で送信してすぐReadFileをすると受信できました。
ReadFileは送信データをバッファから取得されるのではなく
リアルタイムに送られたデータを取得することしかできないのでしょうか？
というのもデータが送信されてから2秒後くらいにReadFileが
実行されるのでバッファかなにかに溜まってくれないかと思いまして。
0228デフォルトの名無しさん
2006/02/07(火) 12:01:300229デフォルトの名無しさん
2006/02/07(火) 12:17:14なるほど。それは一理ありますね。
0230デフォルトの名無しさん
2006/02/07(火) 12:20:57お前は('A`)の間違いに気付け。
('Ａ｀)じゃない
('A`)だ
0231デフォルトの名無しさん
2006/02/07(火) 12:21:480232デフォルトの名無しさん
2006/02/07(火) 12:25:14AA に間違いも何も・・・ｗ
0233デフォルトの名無しさん
2006/02/07(火) 12:32:38動画の現在の再生位置(先頭から何分何秒)を取得する方法と
任意の位置にジャンプ(シーク)する方法を教えてください。
もしMediaPlayerで出来ないならこれらが出来る
Win標準または無料の動画再生コントロールを教えてください。
WindowsXP Pro SP1a､VB6SP6､msdxm.ocxのバージョンは6.4.9.1125です。
0234デフォルトの名無しさん
2006/02/07(火) 12:35:03そういう重たいコントロールはあんまり使ったことないんでパス
とりあえずMCISendString()でvideoは再生できるはず
0235227
2006/02/07(火) 12:37:19どうやらWindowsメッセージ処理されるとバッファがクリアされるようです。
クリアされないようにできないでしょうかね〜
0236デフォルトの名無しさん
2006/02/07(火) 12:41:16・・・？？
ReadFile()の非同期モードってそんなんなのか・・・
0237デフォルトの名無しさん
2006/02/07(火) 12:50:01まず、CreateFileのオプションとか見直せと。
APIの場合、確かAttributeか何かの設定関数も必要じゃなかったっけ？シリアル通信のボーレート設定で。
その流れの中で設定があったように思うけど。
つうか、なぜVBでAPIでやるの？
VBならMSCOMM使えばいいし、それで出来ないでAPI必要ならCで作ればいいのに。
0238デフォルトの名無しさん
2006/02/07(火) 12:50:06MediaPlayer.CurrentMarker
MediaPlayer.GetMarkerTime(lMarkerNum)とある。
けどどうせならDirectShow使う。
0239デフォルトの名無しさん
2006/02/07(火) 12:55:04まず、データが数秒で消える可能性はバッファサイズを超えた場合だと思う。
シリアルからの通信をリアルタイムで受けたければ、非同期通信でコールバック側で処理。
だけどそれはVBでは難しいはず。
でね、なんでMSCOMMのOｎCommを使わないのかと。
0240227
2006/02/07(火) 13:00:31コンバートするのですがVB.NetにはMSCOMMがなく
まずVB6.0でAPIに変換してからコンバートすればスムーズに
バージョンアップできると思うからでございます。
その既存のアプリはわたくしの作成したものではないので
なるべくロジックはそのままにAPIへの置き換えを企てています。
0241227
2006/02/07(火) 13:04:22http://spectrum123.at.infoseek.co.jp/vb/vb_3/vb_3.htm
のサンプルプログラムを試してみています。
このプログラムにタイマーイベントを貼り付けて2秒ごとに
発生させてその中にReadFileだけを実行してみました。
といいますのは既存アプリがこのような構造になっているため
真似をしてみました。
0242233
2006/02/07(火) 13:11:20情報ありがとうございます。
しかしそれは用途に合わないので失礼ながらこちらでもパスです。
常用するプレイヤーを作るわけではなく特殊な用途でたまに使うだけのものだし
ハードが強いのでMediaPlayerより更に重くても結構ですので
>>233で書いた通りコントロール(ActiveXコントロール)として使えるものを希望します。
>>238
CurrentMarkerは動画を読み込みシークバーの位置を中央あたりまで移動しても0を返します。
それとMSDNアーカイブのWindows Media Player SDK Version 6.4 コントロール リファレンス
は見たのですが､結構プロパティやメソッドが違ってたりします。
VB6のコンポーネント参照ダイアログの一番下にあったものを使ってるのですが。
ファイルはC:\WINDOWS\System32\msdxm.ocxです。
0243デフォルトの名無しさん
2006/02/07(火) 13:13:26> コントロール(ActiveXコントロール)として使えるもの
よくわからん・・MCISendString()を内部で使っているコントロールを作ることも不可？
0244227
2006/02/07(火) 13:30:58タイマーイベントの中でReadFileの前でWriteFileも実行すると
送信データが受信できました。
はて、これの意味するものはなんでしょう？？
でも一歩前進です。
0245デフォルトの名無しさん
2006/02/07(火) 13:32:290246227
2006/02/07(火) 13:39:230247233
2006/02/07(火) 13:41:03不可です。
>>242で書いたように常用するプレイヤーではないので､
目的の機能だけを実装出来れば､あとは重くても低機能でもいいから
とにかく手軽に使いたいので､とりあえず既製コントロール限定で探してます。
どうしても無さそうなら､そのときはちゃんと作ることも考えますが。
0248デフォルトの名無しさん
2006/02/07(火) 13:48:18ふーん
・・ま、人それぞれだからな。
----------
ふっつーにcurrentpositionじゃだめなの？
0249デフォルトの名無しさん
2006/02/07(火) 14:07:11Option Explicit
'Windows Media Player 6.4.09?
'MediaPlayer:MediaPlayer1を貼り付ける
'Timer:Timer1を貼り付ける
Private Sub Form_Load()
Const FilePath As String = "" '<-ここにファイルパスを突っ込む
Me.MediaPlayer1.Open FilePath
End Sub
Private Sub Timer1_Timer()
With Me.MediaPlayer1
If .PlayState = mpPlaying Then
Debug.Print Format$((.CurrentPosition - .SelectionStart) / (.SelectionEnd - .SelectionStart), "###.###%")
End If
End With
End Sub
0250デフォルトの名無しさん
2006/02/07(火) 14:37:21つうか、その根本が間違ってる。
.netはアンマネージドコード（WinAPI）の利用は推奨されてません。
移行の為にVB6側で作り直すぐらいなら、.netに移植した後でそこを作り直せばいいじゃん。
まず、MSの移行ツールの出来に関してなんか情報集めたの？
その上でAPIのほうが良いってどこかに情報あった？
なんか一歩目を大間違いして藪の中突進してるよ、あんた。
で、.netでシリアル通信・・・って.netになってからシリアルなんてやってねーや。ｗ
工場とかの制御機器もソケットでつながっちゃう御時世、シリアル通信ってあまりつかわんよね・・。
0251デフォルトの名無しさん
2006/02/07(火) 14:41:010252デフォルトの名無しさん
2006/02/07(火) 14:41:54新規はつかわんが、保守せにゃならん
プログラムは変えられてもハード変えるのはなぁ
0253デフォルトの名無しさん
2006/02/07(火) 14:43:05大発見て。
もしかして、普段からそんな風に開発してるの？
まさか仕事でやってる訳じゃないよね。
>>247
やりたい事とやる方法がごちゃごちゃになってるな。
0254デフォルトの名無しさん
2006/02/07(火) 14:45:20意味不明ですよ。なんでハード変えるの？
VB6でMSCOMMのプログラムが現状として、
それをAPIに変えてから.net化するのと、
.net化してからその部分を.net流儀で書き換える。
やることは変わらんし、どっちが安定するかは自明。
頭固いんじゃないの？
0255デフォルトの名無しさん
2006/02/07(火) 14:48:24やってみればいいさ
0257227
2006/02/07(火) 14:59:49すみません。仕事でやってますｗ
いつもあたってくだけろで砕けてますｗ
>>254
意外と移行ツール使えますよ。VB6側を先に移行ツールの
わかりやすいように修正してやると。
0258デフォルトの名無しさん
2006/02/07(火) 15:05:17馬鹿にされてヘラヘラするな低脳
0259デフォルトの名無しさん
2006/02/07(火) 15:07:33(V)(´Д｀ )(V)
0260デフォルトの名無しさん
2006/02/07(火) 15:13:42あんなコメントアウトでごめんなさいだらけの移行ツールを使う奴の気がしれん。
で、どこにAPI化してから移植しろってあるんだよ。
.net2.0しか入ってないからあれだけど。
System.IO.Portsの下にシリアルあるから、それで作り直す方を勧める。
あんた程度で知らないAPIで通信通したと思ってる程度のプログラムよりは、ましな移植になるんじゃないの？
0261227
2006/02/07(火) 15:14:06すみません。馬鹿にされていたんですね(´Д⊂ｸﾞｽﾝ
ところでWriteFileを入れるとなぜReadFileが
うまくいくのかわかる方いませんか〜
かわりにClearCommErrorとかいれてみたけどダメですね
0262デフォルトの名無しさん
2006/02/07(火) 15:16:07それで理解できないなら、勉強不足か能力不足、１００年早いってこと。あきらめろ。
0264デフォルトの名無しさん
2006/02/07(火) 16:08:26そんな仕事のやり方をどうして上司が許してるの？まじで信じられないんだが。
メソッドや関数や引数やＡＰＩ等の意味や役割や動きや働きに関して一切理解しようともせず、
「適当に思い付きでReadFileの前でWriteFile」で受信出来ました万歳？ふざけるなよお前。
「これの意味するものは何？」「一歩前進」だ？あぁ？
てめぇの様な阿呆が居るから、プログラマの地位が何時迄経っても向上しねぇんだよ糞が。
二度とプログラム書くな。すぐ転職しろ。貴様には徹底的に向いてない。死ね。
0265デフォルトの名無しさん
2006/02/07(火) 16:12:52いや、多分どんなことしても仕事上のプログラマの地位は変わらないとおもう
よくて頭の回る土方だよ
所詮ソフトなんてそんなもんなのさ (´；ω；`)
0266デフォルトの名無しさん
2006/02/07(火) 16:30:16自分の仕事にプライドもってほしいよ
地位だの金だの忙しさだのは別問題
0267デフォルトの名無しさん
2006/02/07(火) 16:40:07きちんとした仕事をしてから、そのせりふをほざけ。
0268227
2006/02/07(火) 16:47:45dim rData as String * 100
dim rLen as long
dim dLen as long
dLen = 100
dummy = ReadFile(hComm, ByVal rData, dLen, rLen, 0)
としたところWriteFileしなくてもReadFileの戻り値が1になりました。
そしてデータを受信するとVBごと落ちてしまいました。
また一歩前進しましたﾜｰｲヽ(ﾟ∀ﾟ)メ(ﾟ∀ﾟ)メ(ﾟ∀ﾟ)ノﾜｰｲ
0269デフォルトの名無しさん
2006/02/07(火) 16:50:06他人の警告も聞けないなら、ここじゃ有効な回答得られないってことでどっかいけ。
0270デフォルトの名無しさん
2006/02/07(火) 16:52:39頭のおかしい人を相手にしてはいけません。相手の思うつぼです。
それともジサクジエンですか？
0271デフォルトの名無しさん
2006/02/07(火) 17:26:00どんどん後退してる様にしか見えないが。
0272デフォルトの名無しさん
2006/02/07(火) 17:35:31死ね
0273デフォルトの名無しさん
2006/02/07(火) 17:36:26これって当たり前？最深フォルダの名前を取得してんだけど、そこで作ると一つ手前に出来てんだよな
0274デフォルトの名無しさん
2006/02/07(火) 17:45:03例えば、"最近使ったファイル"というメニューがあります。
MSDNを見るとコントロール配列を使うみたいなんですが、
記載されていた方法が、まずメニューエディタで一つずつ作成し、非表示にし、インデックス値を設定するとの事です。
この場合、こういった方法しか無いのでしょうか。
実行時にメニューを生成できないものでしょうか。
皆様のお知恵を拝借させてください。
0275デフォルトの名無しさん
2006/02/07(火) 18:13:17プログラムは、糸色文寸に書いた通りにしか動きません。
もしそうなるならば、そうなるコードを貴方が書いている、って事。
現象が再現する最小限のＶＢを起動して貼り付けるだけですぐ実行出来るコードを示せと何度（ｒｙ
0276デフォルトの名無しさん
2006/02/07(火) 18:14:35Load すりゃいいんじゃね？
0277227
2006/02/07(火) 18:21:14dim ret as long
dim er as long
dim gcom as COMSTAT
ret = ClearCommError(hComm, er, gcom)
if gcom.fDsrHold > 0 then
dim rdata as string
dim dlen as long
dim rlen as long
dlen = gcom.fSdrHold
rdata = space(dlen)
dummy = ReadFile(hComm, byval rdata, dlen, rlen , 0)
end if
問題はfDsrHoldが何者かということですが・・・・
0278デフォルトの名無しさん
2006/02/07(火) 18:25:20死ね
0279273
2006/02/07(火) 18:25:53ごめん
Sub kn(ByVal oFo As Object)
For Each oF In oFo.SubFolders
Call kn(oF)
o1 = oF & "001"
Set fs = CreateObject("Scripting.FileSystemObject")
Set f = fs.CreateFolder(o1)
Set f = Nothing:Set fs = Nothing
Cells(ic, 1) = oF.Path: ic = ic + 1
Next oF
0280227
2006/02/07(火) 18:39:17ネットから拾ってきたものではなく
APIビュアーからコピーしたらcbInQueがfSdrHoldの値でした。
これなら意味もばっちりあっています。
では嫌われもののわたしめはこれにて失礼いたします。
0281デフォルトの名無しさん
2006/02/07(火) 18:44:59日記はチラシの裏。
0282デフォルトの名無しさん
2006/02/07(火) 18:46:05２回以上死ね。
■ このスレッドは過去ログ倉庫に格納されています