くだすれDelphi(超初心者用)その51

1 名前：デフォルトの名無しさん mailto:sage [2009/12/01(火) 20:41:37 ] Delphi(デルファイ)について、他のスレッドでは書き込めない超低レベル、 もしくは質問者自身何が何だか分からない質問を 勇気を持って書き込むスレッドです。 Delphi使いが優しくコメントを返しますが お礼はDelphiの布教と初心者の救済をお願いします。 <前スレ> くだすれDelphi(超初心者用)その50 pc12.2ch.net/test/read.cgi/tech/1246340765/ <過去スレ> DelWiki避難所（Delphi 関連の過去スレッド） delwiki.info/?%E3%83%AA%E3%83%B3%E3%82%AF%2F%E3%82%B3%E3%83%9F%E3%83%A5%E3%83%8B%E3%83%86%E3%82%A3%2FDelphi%20%E9%96%A2%E9%80%A3%E3%81%AE%E9%81%8E%E5%8E%BB%E3%82%B9%E3%83%AC%E3%83%83%E3%83%89 684 名前：デフォルトの名無しさん mailto:sage [2010/05/18(火) 22:30:32 ] カード占いをするソフトを作りたいと思っています。 （１）カードの使用枚数と配置を決める （２）カードを配置して裏返し、表示させる。 （１）でカードの位置を、マウスでクリックした位置に決めて カードの裏向きの画像ファイルを表示させたい のですが、どうすればいいでしょうか。 685 名前：デフォルトの名無しさん mailto:sage [2010/05/18(火) 23:04:57 ] ActiveXのWindowsMediaPlayerコンポーネントで、 動画再生時にビデオの明るさを変更する方法はありますか？ WindowsMediaPlayerの「拡張設定」の「ビデオ設定」にある「明るさ」を変更できる方法があればいいのですが。 686 名前：デフォルトの名無しさん mailto:sage [2010/05/19(水) 00:51:54 ] >>684 その通りにやればいいだけじゃ？ どこで詰まったのかもっと具体的に言わないと答えようがないだろ 一から手取り足取り教えてもらいたいなら金払ってサポートしてもらえ 687 名前：デフォルトの名無しさん mailto:sage [2010/05/19(水) 03:56:58 ] >もしくは質問者自身何が何だか分からない質問を >勇気を持って書き込むスレッドです。 >Delphi使いが優しくコメントを返しますが トランプの裏向きの画像は手に入れているとして。 フォームに CardImage という名前の TImage を作成。 Picture プロパティに画像を設定。 Visible プロパティを False に。 *クリックしたら From の OnMouseDown イベントメソッドを作成 *位置を決めて 引数の X と Y を使う。 * 画像ファイルを表示 procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); var I : TImage; begin I := TImage.Create(self); I.Parent := self; I.Picture.Assign(Image1.Picture); I.Width := Image1.Width; I.Height:= Image1.Height; I.Left := X; I.Top := Y; end; 688 名前：デフォルトの名無しさん mailto:sage [2010/05/19(水) 12:06:14 ] マルチスレッドのデバッグってどうすればいいでしょうか？ 1つのスレッドを動的に複数Ｃｒｅａｔｅして同時に実行した時に、ブレークポイントで止めていると Ｄｅｌｐｈｉが固まってしまいます。 Del7です。 よろしくお願いします。 689 名前：デフォルトの名無しさん mailto:sage [2010/05/19(水) 15:55:47 ] >ブレークポイントで止めていると Ｄｅｌｐｈｉが固まってしまいます。 D7 が現役の頃にはそんな経験無いですけどね。 >Del7です OS は？ CPU は？ Vista/Win7 だとあきらめるしかないかも。 690 名前：デフォルトの名無しさん mailto:sage [2010/05/19(水) 16:35:03 ] 起動中のアプリケーションでコマンドラインを受け取るにはどうすればいいのでしょうか？ a.exe -hoge -piyo が何度か呼び出される感じ（引数は変わる）なのですが・・・ 多重起動は禁止にしてます。 691 名前：デフォルトの名無しさん mailto:sage [2010/05/19(水) 16:55:10 ] すでに起動中のアプリケーションに、後から起動された（同一）アプリケーションのコマンドラインオプションを 渡すのかな？ Windows はマルチタスク/マルチインスタンスサポートの OS なので、別々に起動されたアプリケーションは 別々のインスタンスとして管理されます。何らかのアプリケーション間通信をおこなう必要があります。 擬似コードとしては program A; begin if 俺は起動中かな then begin 　　起動中のインスタンスにコマンドラインを渡す( paramstr(1), paramstr(2)...) end else 通常実行開始 end; 後から起動されたアプリケーション A2 から、すでに起動しているアプリケーション A1 にデータを送るには、 sendmessage がつかえますが、メッセージを受信するためのウィンドウが必要（非表示でよし）なので 純粋なコマンドラインツールだと余計な手間がかかるでしょう。 692 名前：688 mailto:sage [2010/05/19(水) 17:05:30 ] >>689 レスありがとうございます。 説明不足でした。 ブレークポイントで止まってるだけなら何ともないのですが、ステップ実行を何行かすると フリーズしてPCのリセットボタンを押さないといけなくなります。 マルチスレッドが1つだけの時は、正常です。 ヘルプを見るとマルチスレッドのデバッグの項目はあるのですが、イマイチよく分からないです。 693 名前：デフォルトの名無しさん mailto:sage [2010/05/19(水) 17:14:22 ] >>292 XP+Turbo(2005)のわたしも同じ状況に見舞われてます。 以前わたしも、ここか雑談スレで相談しましたが、解決方法はわかりませんでした。 一応、めちゃくちゃ反応は鈍いですが、操作は可能です(時間的には、リセットで再起動の方が早いと思いますが)。 こちらでは、頻度は低いですが、マルチスレッドというか、シングルスレッドでも起こりますので、 スレッドをデバッグした時になるのだと思います(といっても、メインスレッドは別だから、結局はマルチスレッドなのだろうけど)。 おそらくデバッガーの問題かと。こちらでは、なるべくブレークポイントは使用しないという消極的な回避策で対処してます。 694 名前：デフォルトの名無しさん mailto:sage [2010/05/19(水) 17:28:09 ] >>691 ですです。 だいたいおんなじことを考えていたのですが、 >　　起動中のインスタンスにコマンドラインを渡す( paramstr(1), paramstr(2)...) ここがわかりませんでした。 後出しですみません。 作ってるアプリはGUIアプリです。 695 名前：デフォルトの名無しさん mailto:sage [2010/05/19(水) 17:32:15 ] >>694 あと、コマンドラインを渡したあと、どうやって受け取るのかもわからなかったです。。。 696 名前：デフォルトの名無しさん mailto:sage [2010/05/19(水) 18:54:34 ] >>687 やっぱりああやって書くとレス付きやすいですねｗ あざーすｗｗ 697 名前：デフォルトの名無しさん mailto:sage [2010/05/19(水) 18:57:28 ] >>694 SendMessageが使えるって書いてあるじゃん よく読めよ 698 名前：684 mailto:sage [2010/05/19(水) 21:08:27 ] >>686,687 ありがとうございます。 やってみます。 699 名前：デフォルトの名無しさん mailto:sage [2010/05/19(水) 22:25:41 ] >>696はいかにもゆとり 700 名前：デフォルトの名無しさん mailto:sage [2010/05/20(木) 00:51:52 ] マルチスレッドのデバッグっていくつか前に書いてなかったか。 俺も参考にさせてもらった。 今は忘れた。ｗ 701 名前：これかな？ mailto:sage [2010/05/20(木) 01:10:29 ] 178 名前：デフォルトの名無しさん[sage] 投稿日：2009/08/12(水) 10:30:13 OutputDebugString使いまくる 179 名前：デフォルトの名無しさん[sage] 投稿日：2009/08/12(水) 10:38:37 >>175 現状では各スレッドに固有の番号を持たせて（多少面倒だがThreadId等でもいい）、 条件付きブレークでその番号をセットすれば任意のスレッドだけブレークさせることが可能 180 名前：175[sage] 投稿日：2009/08/12(水) 13:48:14 >>178-179、レスありがとうございました。 Ｄｅｌｐｈｉがフリーズせずにデバッグできるようになりました。 勉強になりました。 702 名前：デフォルトの名無しさん mailto:sage [2010/05/20(木) 05:00:38 ] >あと、コマンドラインを渡したあと、どうやって受け取るのかもわからなかったです。。。 Google で以下のキーワードで検索。 sendmessage プロセス間通信 Delphi Delphi では無いが yokohama.cool.ne.jp/chokuto/advanced/copydata.html はよくまとまっていてよろしい。 それと、目的は複数のプロセスが同じデータを参照すること。と見なせば、 共通のファイルやレジストリにコマンドラインを記録し、 通常起動しているプロセス側がポーリング（定期的に見に行く）する。 という手法も使えます。 703 名前：デフォルトの名無しさん mailto:sage [2010/05/20(木) 05:11:24 ] XP の頃、 MS-IME とデバッガの相性の問題があったはず。 ttp://www2.atwiki.jp/lunatips/pages/10.html ttp://d.hatena.ne.jp/rabbithutch/20050211 試してみてくださいな 704 名前：デフォルトの名無しさん mailto:sage [2010/05/20(木) 10:38:55 ] if文の書き方で if A=B then・・・・・・・・�@ if C=D then・・・・・・・・・�T E:=F; else if A<B then・・・・�A E:=G else A>B then・・・・・・�B E:=H; �@�A�Bを条件分岐のグループで�@の時だけ、入れ子のifを実行するつもりなんですが、 どうも、Delphiは�Tと�A�Bをグループと見るみたいで　「E:=F;」　の「；」がだめってコンパイルエラーが 出ます。 begin〜endで囲んでいけば欲しい動きにはなるのですが、単純な構文なので無意味に行数を増やしたくないのですが、 ifの中にifを入れる時はbegin〜endで囲むのがルールなんでしょうか？ 705 名前：デフォルトの名無しさん mailto:sage [2010/05/20(木) 10:40:13 ] インデントしたつもりがされなかったです。 これでどうだ 　　　if regCurrent=Current then 　　　　if lblCurrent.Font.Color=clWhite then 　　　　　lblCurrent.Font.Color:=clYellow; 　　　else if regCurrent<Current then 　　　　lblCurrent.Font.Color:=clRed 　　　else if regCurrent>Current then 　　　　lblCurrent.Font.Color:=clLime; 706 名前：デフォルトの名無しさん mailto:sage [2010/05/20(木) 11:03:39 ] 素直に begin end でくくれ。 707 名前：デフォルトの名無しさん mailto:sage [2010/05/20(木) 11:11:39 ] >>705 余計な話ですが、最後のelse、意味通りのインデントになってる？ 708 名前：デフォルトの名無しさん mailto:sage [2010/05/20(木) 11:16:11 ] ; が文の終わりを表す C 系の規則と ; が文の区切りを表す Algol/Pascal の規則の差なのですが、 そういう物だと納得して先に進む方が賢いです。 それとネストした if/else 構造は、どの言語でも分かりにくい表記をすることができる物で、 C 言語でも if (A) 　if (B) 　　process1(); else 　process2(); // A に対する else ? B に対する else ? さらに変なインデントがついていたりすると、予想外のミスを呼び込むかもしれません。 ２０年くらい前の構造化言語の導入時には、else がどの if に対応するべきかが議論対象になり、 else にオプションをつけて対応する if を（必要な時は）明示指定したらどうか？という試験的な言語も存在しました。 現在は、単純に直近の if を対象にする。という規則が一般的です。 数行を惜しんで分かりづらくするよりは、begin - end を明示的に入れてあげた方がコードの保守性という見地からも 得策でしょう。 なお、「else は直近の if に対応する」というルールを使って空の else 節を挿入する。というトリックもあり得ます。 　if A=B then 　　if C=D then 　　　E:=F 　　else 　else if A<B then 　　E:=G 　else if A>B then 　　E:=H; これが「美しい」「わかりやすい」かどうかは、また別の話ですね。 709 名前：デフォルトの名無しさん mailto:sage [2010/05/20(木) 11:27:41 ] 皆さん、ありがとうございます。 基本的には　begin〜end　は保守性の面から入れるのですが 今回の質問のような単純で短い構文で、狙った動きにならないので びっくりしたのと納得できなかったので質問しました。 >直近のifに対応する こんな規則で動いていたんですね。 納得しました。 ありがとうございました。 710 名前：デフォルトの名無しさん mailto:sage [2010/05/20(木) 11:47:07 ] 綺麗さ、かつ Pascal の特性を活用するなら、入れ子関数を作って、 関数名をコメントがいらないくらい分かりやすいものにしてしまう。 というのも実用性の高い手法です。 新しめの処理系なら、日本語関数名も使えますしね。 　　procedure SetFontColor(originalColor, modifiedColor: TColor) 　　begin 　　　if lblCurrent.Font.Color = originalColor then 　　　lblCurrent.Font.Color:=modifiedColor; 　　end; 　if regCurrent=Current then 　　SetFontColor(clWhite, clYellow) 　else if regCurrent<Current then 　　lblCurrent.Font.Color:=clRed 　else if regCurrent>Current then 　　lblCurrent.Font.Color:=clLime; 711 名前：デフォルトの名無しさん mailto:sage [2010/05/20(木) 12:29:21 ] なるほど。 ちょっとの手間でスマートですね。 まだ、この辺の手間をかけた方が後々いいのか、どうかの判断が 出来ないレベルなので参考にさせてもらいます。 712 名前：デフォルトの名無しさん mailto:sage [2010/05/20(木) 17:43:30 ] >>697,702 ありがとうございます。 ググりつつコピペしつつ改変しながら eggrice.no.land.to/up/src/tohoh0403.txt と言うふうに書いてみたんですが、 二度目に起動したときに前のウィンドウがアクティブになるだけで メッセージの処理は行われませんでした。 winexpでメッセージ監視してみたら TMainFormじゃなくてTApplicationにメッセージが飛んでいたので これが問題かな？と思ってFindWindowでハンドル取得してみてもうまくいきませんでした。 どこか間違えているでしょうか？ 713 名前：デフォルトの名無しさん mailto:sage [2010/05/21(金) 12:56:44 ] >>704　これあきらかにおかしいじゃん if A=B then if C=D then E:=F; ここまで１行とコンパイラは理解するから次の else if が文法上間違い 714 名前：デフォルトの名無しさん mailto:sage [2010/05/21(金) 14:33:18 ] 質問が紛らわしくてすんません。 �@�A�Bの条件分岐のつもりで、�@の時に�Tを実行する意図なのですが 「F；」の「；」を取ると �T�A�Bがグループと認識して�@の入れ子と処理されてしまいます。 �Tは単独のif文にする意図で「；」を付けるとコンパイルエラーになるので 「何で？」と言う意味でした。 715 名前：デフォルトの名無しさん mailto:sage [2010/05/21(金) 15:00:07 ] だいじょうぶ。意図を理解している人もいるよ。 716 名前：デフォルトの名無しさん mailto:sage [2010/05/21(金) 17:01:10 ] 自作アプリをプログラムから最小化してタスクバーに入れるにはどうすればいいですか。 WindwStataだとタスクバーの上に表示されてしまいます。 717 名前：716 mailto:sage [2010/05/21(金) 17:07:39 ] 出来ました。 718 名前：デフォルトの名無しさん mailto:sage [2010/05/24(月) 07:52:47 ] Continueってバグを起こしますか？ for i:=0 to max do begin if hoge then begin continue; end; end; デバッグしているとi = maxの時にcontinueが実行されるとループが進んでしまうのですが・・・ 719 名前：デフォルトの名無しさん mailto:sage [2010/05/24(月) 12:26:05 ] あなたの頭がバグを起こしているだけです 720 名前：デフォルトの名無しさん mailto:sage [2010/05/24(月) 12:32:28 ] デバッグしろ 721 名前：デフォルトの名無しさん mailto:sage [2010/05/24(月) 14:16:18 ] max-1が正しかったという罠 722 名前：デフォルトの名無しさん mailto:sage [2010/05/24(月) 18:43:28 ] マルチスレッドが存在するかしていないかって、分かる関数とかってあります？ Createした時に覚えておいて、解放する時はメインの方から明示的にFreeするしかないんでしょうか？ 723 名前：デフォルトの名無しさん mailto:sage [2010/05/24(月) 19:01:08 ] >718 ブロック内で、変数Iを使っていないので、最適化されて減少カウンタとして利用されている予感。 724 名前：デフォルトの名無しさん mailto:sage [2010/05/24(月) 19:57:31 ] >722 スレッド終了時に自分で自分を解放 >718 >723のいうとおりだと思う。コンパイルオプションで最適化を外すとデバッグしやすくなる。 725 名前：デフォルトの名無しさん mailto:sage [2010/05/25(火) 12:47:56 ] 最後に判定しに行くだけだろ？ Cで書けばfor(i=0;i<=max;i++)なんだからmaxの次に判定があるのは当たり前 アホか 726 名前：デフォルトの名無しさん mailto:sage [2010/05/25(火) 17:11:33 ] >>722 一応IsMultiThreadってグローバル変数が存在してるけど。ソースみりゃわかるけど、 直接Win32のCreateThreadとか呼んだら駄目ぽだけど。BeginThreadかTThreadクラスだけを 使ってる場合だけオｋ。 727 名前：デフォルトの名無しさん mailto:sage [2010/05/25(火) 17:14:10 ] ああでも、ダメポそうだな。ごめん。 728 名前：デフォルトの名無しさん mailto:sage [2010/05/26(水) 00:04:05 ] >>722 WaitForと言うのがあるらしい。 使い方は分からない。 お知恵をお借りしたいのですが。 今、複数起動が前提のアプリを作っているのですが、 一斉に最小化や復元をしたいと思って共有メモリを 使うところまでは出来たのですが、例えば一斉に最小化の場合は メニューをクリックされたソフトで共有メモリに「1」を入れる。 他のソフトはその「1」がたったかどうかで最小化すればいいのですが、 お知恵を借りたいのは「1」をどのタイミングで「0」にすればいいかです。 全部が最小化されたかどうかを知るにはどうすればいいかって事です。 考えたのは複数起動した数を共有メモリに記録しておいて、メニューをクリック されたら「1」ではなく、起動数を入れて（例えば「10」）で最小化したら　 -1　していくと言うやり方です。 他にもっとスマートなやり方があれば教えて下さい。　 729 名前：デフォルトの名無しさん mailto:sage [2010/05/26(水) 00:46:32 ] HWND_BROADCAST 730 名前：デフォルトの名無しさん mailto:sage [2010/05/26(水) 13:33:42 ] e? 731 名前：728 mailto:sage [2010/05/26(水) 14:07:31 ] レス、ありがとうございます。 >HWND_BROADCAST ググってみます 732 名前：728 mailto:sage [2010/05/26(水) 18:53:43 ] ググったけど、よう分からんかったです。 SendMessageやPostMessageでHWND_BROADCASTを送ると 関係ないアプリまで最小化や終了をさせてしまうことになりませんか？ 733 名前：デフォルトの名無しさん mailto:sage [2010/05/26(水) 19:28:16 ] RegisterWindowMessageって知ってるか？ 734 名前：デフォルトの名無しさん mailto:sage [2010/05/26(水) 21:25:07 ] >>733 > RegisterWindowMessageって知ってるか？ おぉ、ありがとうございます。 ググって来ました。 確認させて下さい。 例えば、WM_APP+100は一斉に最小化、WM_APP+101は一斉に終了みたいに決めておいて アプリ起動時に RegisterWindowMessage(WM_APP+100)； とかやって登録して 一斉に最小化させたい時は　SendMessage(HWND_BROADCAST , WM_APP+100 , 0 , 0)； とやればいいって事ですか？ 受け取りは　WndProc（ググった先で出てきたので、よく分かってないです。）を使って送られて来た メッセージによって処理する こんな感じで良いでしょうか？ 735 名前：デフォルトの名無しさん mailto:sage [2010/05/26(水) 21:42:18 ] RegisterWindowMessageの引数は文字列 RegisterWindowMessage(自分だけの文字列) ↓ SendMessage(HWND_BROADCAST, RegisterWindowMessageの戻り値, ここ, とここは自分で決めて振り分ける); 736 名前：728 mailto:sage [2010/05/27(木) 00:41:49 ] >>735 思い通りの動きが出来ました。(;ﾟ∀ﾟ)=3 ありがとうございました。 737 名前：デフォルトの名無しさん mailto:sage [2010/05/28(金) 23:12:46 ] var Form1: TForm1; days:double; procedure TForm1.Button1Click(Sender: TObject); begin days :=VarToDateTime('28/5/2010') - VarToDateTime('27/4/2010'); showmessage(FloatTostr(days)); end; これは2010年4月27日と2010年5月28日の日数の差として「31」が表示されます こんな感じで2010年4月27日から31日経つと「2010年5月28日」のような処理をしたいのですが、どうすればよいのでしょうか？ 要はTDateTime 型から日付を求めたいのです 738 名前：737 mailto:sage [2010/05/29(土) 00:01:44 ] ごめんなさい自己解決しました 739 名前：デフォルトの名無しさん mailto:sage [2010/05/29(土) 20:46:03 ] >>712ですが、 結局TMainFormというインスタンス名が他のアプリケーションで使われていたようでうまくいかなかったので メッセージ受信専用ウィンドウを利用する方法を使いました。 メッセージ用ウィンドウプロシージャは 特定のメッセージがきたときだけMainFormにDispatchするようにして あとはDefWindowProcに渡すようにしたのですが、 処理としてはあっているのでしょうか？ 初めはディスパッチのみでDefWindowsProcを呼び出さずにしていたら 終了時にエラーがでました。 740 名前：デフォルトの名無しさん mailto:sage [2010/05/29(土) 22:19:45 ] 名前変えればいいだけじゃ・・・ 741 名前：デフォルトの名無しさん mailto:sage [2010/06/06(日) 20:53:51 ] 下のソースをJavaに移植したいのですが、内容が理解できなくて困っています。 下から7行ほど前からが理解できないので・・・、別言語に書き換えて教えて頂けないでしょうか？ java, c, perl , php, vb, javascript 辺りの書き方であれば理解できます。 function EncodeB32(s: String): String; const B32Char: array[0..31] of Char = ('0','1','2','3','4','5','6','7','8','9','A','B','C','D','E','F', 'G','H','I','J','K','L','M','N','O','P','Q','R','S','T','U','V'); var i: Integer; len: Integer; begin if s = '' then begin Result :=''; Exit; end; len := (Length(s) * 8 - 1) div 5 + 1; s := s + StringOfChar(#0, (len * 5 - 1) div 8 + 1 - length(s)); SetLength(Result, len); for i:=0 to len - 1 do Result[i + 1] := B32Char[(MakeWord(Byte(s[(i * 5) div 8 + 1]), Byte(s[(i * 5) div 8 + 2])) shr ((i * 5) mod 8)) and 31]; end; 742 名前：E- ? mailto:sage [2010/06/06(日) 21:31:21 ] BASE32 だから、検索すれば仕様書があるはず。仕様書から作ったほうが早いよ。私はCで作った。 function EncodeB32(s: String): String; const     B32Char: array[0..31] of Char =         ('0','1','2','3','4','5','6','7','8','9','A','B','C','D','E','F',         'G','H','I','J','K','L','M','N','O','P','Q','R','S','T','U','V'); var     i: Integer;     len: Integer; begin     if s = '' then begin         Result :='';         Exit;     end;     len := (Length(s) * 8 - 1) div 5 + 1;     s := s + StringOfChar(#0, (len * 5 - 1) div 8 + 1 - length(s));     SetLength(Result, len);     for i:=0 to len - 1 do         Result[i + 1] := B32Char[(MakeWord(Byte(s[(i * 5) div 8 + 1]),                                    Byte(s[(i * 5) div 8 + 2])                                   ) shr  ((i * 5) mod 8)                                  ) and 31]; end; 743 名前：デフォルトの名無しさん mailto:sage [2010/06/06(日) 21:38:01 ] Javaならライブラリあるだろうに。 744 名前：デフォルトの名無しさん [2010/06/06(日) 21:39:03 ] これで事足りないというなら出直して来るんだ つttp://www.google.co.jp/codesearch?hl=ja&q=base32+lang:java 745 名前：デフォルトの名無しさん mailto:sage [2010/06/06(日) 23:49:13 ] あれ、関数名はBase32だったので、そう思って組んでみたんですが、結果が違ったので・・・ 1. そのソースコードが使われいるexe $ exec "1c68ee574965514ec9c27a57972719ea" 4NDXFOSLFKFHMTQT2K6LSOGPK 2. Base32エンコード $ echo "1c68ee574965514ec9c27a57972719ea" | java Base32encode S0QSUB595BKSK4B0QRLEPJ43A7 >>742 整形ありがとうございます。 やってることは似てそうなんですが、定数が違ってそうなのでもう少し弄ってみます。 746 名前：デフォルトの名無しさん mailto:sage [2010/06/07(月) 03:58:40 ] 4NDX と、X が出てくる理由が不明だ。 B595 と、9 が出てくる理由が不明だ。 こうなるはず、 8bit区切り 1c 68 ee 57 49 65 51 4e c9 c2 7a 57 97 27 19 ea 5bit区切り 3 11 14 E 1C 15 1A 9 C 15 8 14 1D 12 E 2 F 9 B 19 E 9 18 19 1D 8 747 名前：デフォルトの名無しさん mailto:sage [2010/06/07(月) 09:04:15 ] Base32（WXYZが使われてる）と、Base32hex（0189が使われてる）があるそうですね。 面白そうなので作ってみたら >>746と同じ結果に。 Base32: DRUO4V2JMVIU5SOCPJLZOJYZ5I====== Base32hex: 3HKESLQ9CL8KTIE2F9BPE9OPT8====== >>745と全然違うなあ。 しかしBase32って超マイナーですね。 748 名前：748 mailto:sage [2010/06/07(月) 20:34:22 ] > 1. そのソースコードが使われいるexe > $ exec "1c68ee574965514ec9c27a57972719ea" > 4NDXFOSLFKFHMTQT2K6LSOGPK > アナタの自作プログラム↑ソース↓ pc12.2ch.net/test/read.cgi/tech/1274617383/328 > > 2. Base32エンコード > $ echo "1c68ee574965514ec9c27a57972719ea" | java Base32encode > S0QSUB595BKSK4B0QRLEPJ43A7 こっちのソース、またはソースのURLくれ。 749 名前：748 mailto:sage [2010/06/07(月) 22:36:19 ] shr ((i * 5) mod 8)) and 31]; 　↓に変更（再コンパイル可能なら、だけど） shr (11 - ((i * 5) mod 8))) and 31]; 750 名前：デフォルトの名無しさん mailto:sage [2010/06/08(火) 01:00:38 ] >>748 今確認したら結果が逆でした・・・汗 1. 移植したいプログラム ( Delphi ) ttp://jane.s89.xrea.com/test/read.cgi/kakolog/1090658524/583-585 > nghash.exe "1c68ee574965514ec9c27a57972719ea" S0QSUB595BKSK4BOQRLEPJ43A7 2. 自作したプログラム ( Java ) ttp://pc12.2ch.net/test/read.cgi/tech/1274617383/328 % echo "1c68ee574965514ec9c27a57972719ea" | java Base32encode 4NDXFOSLFKFHMTQT2K6LSOGPK Jane2chのNSFiles.txtで使われる、MD5をエンコードした無視画像リストを、 システムに組み込みたくて、移植してる次第です。・・・なんですが、力不足で全く移植できず 751 名前：デフォルトの名無しさん mailto:sage [2010/06/08(火) 09:57:52 ] S0Q..L..はナンチャラは何なの？という疑問 0とL が混じってる。 １．Base32HEX エンコードだけをしてもこの値にはならないので、 　　その部分だけのDelphiでは足りない。ソースは受け取ったが、 　　ソース全部読む必要があるので、時間と人手がいる。 > nghash.exe "1c68ee574965514ec9c27a57972719ea" S0QSUB595BKSK4BOQRLEPJ43A7 ２．Base32HEX エンコードだけのソースなら、ネット検索すればあるはず。 　　１．に関連して、>>749 はバグだと思ったけど、そのソースを生かすなら 　　Base32HEXではない。逆にその部分だけを修正すればBase32HEX のソース 　　を直せばいい。 また、>>749 shr の使い方を誰かDelphiで合ってるか確認してほしい。 752 名前：747 mailto:sage [2010/06/08(火) 10:53:30 ] >>750 やっぱり。どうも変だなと思ってた。あと、ソースの頭にしっかり //5bitエンコーディング関数　Base32ではない。 って書いてあるじゃない。最初は見落としてたの？ >>751 >>741の function EncodeB32 だけでちゃんと S0QSUB595BKSK4BOQRLEPJ43A7 になるのを確認したので、これはBase32でもBase32hexでもないと思います。 ＞また、>>749 shr の使い方を誰かDelphiで合ってるか確認してほしい。 どう確認すればいいのか分かりませんが、そこだけ差し替えたら D0N6FIA5A575IGMQATBLF69A03 になりましたよ。 Delphi始めて数ヶ月の初心者が頭突っ込んでスマソでした 753 名前：デフォルトの名無しさん mailto:sage [2010/06/08(火) 16:32:22 ] いやいや、可能性が無いなら参考になった。>>752 以下の修正で目的の文字列になった。 参考になるURLがどこかに有ると思うが省略させてもらう。 MakeWord(byte1,byte2) の定義は byte1 | byte2 << 8 それと、shr ((i * 5) div 8) BASE32の場合は MakeWord(byte1,byte2) の定義を以下にする byte1 << 8 | byte2 それと、shr (11 - ((i * 5) div 8)) 754 名前： ◆/91kCCQXBo mailto:sage [2010/06/08(火) 17:41:05 ] #include <stdio.h> #include <stdlib.h> #include <malloc.h> char*EncodeB32(char*s){const char B32Char[32]={'0','1','2','3','4','5','6','7','8','9','A','B','C','D','E','F','G','H','I','J','K' ,'L','M','N','O','P','Q','R','S','T','U','V'};int i,len;char*sa,*Result;if(s==NULL||*s==(char)NULL){return NULL;}len=(strlen(s)*8- 1)/5+1;sa=s;Result=calloc(len+1,1);for(i=0;i<=len-1;i++){Result[i]=B32Char[(((sa[(i*5)/8+0]&0xFF)|(sa[(i*5)/8+1]&0xFF)<<8)>>(((i*5 )%8)))&31];}return Result;} int main(void){char*ans;ans=EncodeB32("\x1c\x68\xee\x57\x49\x65\x51\x4e\xc9\xc2\x7a\x57\x97\x27\x19\xea");if(ans)puts(ans);free(ans);} 755 名前：747 mailto:sage [2010/06/08(火) 23:02:43 ] 私も勉強がてらJavascriptに翻訳してみました。 出来る限り元ソースに忠実にしました。 ideone.com/bNeGf DelphiもJavascriptもよく分かっていない初心者が書いてるので、激しいツッコミはご容赦下さい。 一応、ブックマークレット版。もちろん、末尾改行は全部除去して使ってね。 Javascript:function EncodeB32(s){function StringOfChar(C,N){var I,Z='';for(I=1;I<=N;++I) {Z+=C;}return Z;}function MakeWord(H,L){return H|L<<8;}var i,len,B32Char=['0','1','2','3', '4','5','6','7','8','9','A','B','C','D','E','F','G','H','I','J','K','L','M','N','O','P','Q','R','S','T','U','V'], Result=[];if(s==''){return '';}len=(s.length*8-1)/5+1;s+=StringOfChar('\x00',(len*5-1)/8+1-s.length); for(i=0;i<=len-1;++i){Result[i+1-1]=B32Char[(MakeWord(s.charCodeAt((i*5)/8+1-1), s.charCodeAt((i*5)/8+2-1))>>>((i*5)%8))&31];}return Result.join('');} function HexToStr(H){var I,Result='';for(I=0;I<=H.length/2-1;++I) {Result+=String.fromCharCode(parseInt(H.substr(I*2,2),16));}return Result;} alert(EncodeB32(HexToStr('1c68ee574965514ec9c27a57972719ea'))); 普段はごく簡単なブックマークレットしか作らないので、functionすら滅多に使いません。。。 756 名前：747 mailto:sage [2010/06/09(水) 07:20:10 ] DelphiスレなのにJavaやらCやらJavascriptもなんなので、 ideone.comのPascal（FPC：Free Pascal）でDelphiできるか？試してみました。 ideone.com/5Q6ky 結果：プログラム本体の書き換えは一切せずに動作しました。 追加したこと 　1. コンパイラモードをDelphi互換に指定 → {$MODE DELPHI} 　2. Uses節を追加、StrToIntのためにsysutilsを指定 　3. function MakeWordをWindows.pasからパクってきた 以上、初心者の研究コーナーでした スレ汚しまくってスマソ 757 名前：デフォルトの名無しさん mailto:sage [2010/06/09(水) 09:40:11 ] >>756 君は毎回誤るんかい。 >>745 S0QSUB595BKSK4B0QRLEPJ43A7 誤り S0QSUB595BKSK4BOQRLEPJ43A7 正しい だね？ 右から左への場合は入力を５の倍数ワード、出力を８の倍数にしなければならないが、 Base32HEX (WXYZを使わない) でエンコードする場合。 Base32を使って、左から右に5ビットで区切ってエンコード 1 c 6 8 e e 5 7 4 9 6 5 5 1 4 e c 9 c 2 7 a 5 7 9 7 2 7 1 9 e a 0 0 0 0 0 0 0 0 3 11 14 E 1C 15 1A 9 C 15 8 14 1D 12 E 2 F 9 B 19 E 9 18 19 1D 8 0 0 0 0 0 0 3HKESLQ9CL8KTIE2F9BPE9OPT8 Encode32を使って、左から右に5ビットで区切ってエンコード 1 c 6 8 e e 5 7 4 9 6 5 5 1 4 e c 9 c 2 7 a 5 7 9 7 2 7 1 9 e a 0 0 0 0 0 0 0 0 1C 0 1A 1C 1E B 5 9 5 B 14 1C 14 4 B 18 1A 1B 15 E 19 13 4 3 A 7 0 0 0 0 0 0 S0QSUB595BKSK4BOQRLEPJ43A7 Base32を使って、右から左に5ビットで区切ってエンコード 0 0 0 0 0 0 0 0 e a 1 9 2 7 9 7 5 7 7 a c 2 c 9 4 e 5 1 6 5 4 9 5 7 e e 6 8 1 c 0 0 0 0 0 0 7 A 3 4 13 19 E 15 1B 1A 18 B 4 14 1C 14 B 5 9 5 B 1E 1C 1A 0 1C 0000007A34JPELRQOB4KSKB595BUSQ0S Encode32を使って、右から左に5ビットで区切ってエンコード 0 0 0 0 0 0 0 0 e a 1 9 2 7 9 7 5 7 7 a c 2 c 9 4 e 5 1 6 5 4 9 5 7 e e 6 8 1 c 0000008TPO9EPB9F2EITK8LC9QLSEKH3 0 0 0 0 0 0 8 1D 19 18 9 E 19 B 9 F 2 E 12 1D 14 8 15 C 9 1A 15 1C E 14 11 3 758 名前：こまった？？ [2010/06/09(水) 11:40:16 ] Delphi5 から　Delphi2010 に一気に移行したものですが、 たとえば、 TMemo などの既存コンポーネントを継承して、 新しいコンポーネントを作成したとき、 TEST用プロジェクトで動作確認はできるのですが、 いざ、コンポーネントタブ（たとえばsample）に登録しようとしたとき Delphi5にはあった「コンポーネント」＝＞「コンポーネントのインストール」 メニューがDelphi2010メニューにありません。 どうやってインストールするのでしょうか？ それとも、プロフェッショナル版ではできない？ 759 名前：デフォルトの名無しさん mailto:sage [2010/06/09(水) 13:55:35 ] >>758 mrxray.on.coocan.jp/Delphi/CompoInstall/index.htm 760 名前：デフォルトの名無しさん mailto:sage [2010/06/09(水) 22:19:20 ] TOpenDialogとかにボタンを追加したいときはどうするべきなのでしょうか。 761 名前：デフォルトの名無しさん mailto:sage [2010/06/09(水) 23:49:42 ] TOpenPictureDialogのコードが参考になると思う。 762 名前：デフォルトの名無しさん mailto:sage [2010/06/10(木) 12:59:36 ] Synchronizeで実行するプロシージャーで引数が使いたい時って皆さんはどうしていますか？ 763 名前：デフォルトの名無しさん mailto:sage [2010/06/10(木) 15:02:32 ] 匿名メソッドでいいじゃん 764 名前：デフォルトの名無しさん mailto:sage [2010/06/10(木) 16:35:12 ] >>762 そのためにわざわざフィールド変数を用意して、それ経由してる。 765 名前：デフォルトの名無しさん mailto:sage [2010/06/10(木) 17:16:57 ] mixiにログインして情報をとってくるようなアプリケーションを作りたいと思っています。 そこで、TIdHTTPコンポーネントを使用してログイン部分をいま作成中なのですが、Cookieが無効 になっているため、ログインできませんと言われてしまいます。 (mixi.jp/check.pl?n=%2Fhome.plが返ってくる) TIdHTTPコンポーネントのCookieManagerには該当のTIdCookieManagerを指定し、 AllowCookiesはtrueの状態にしています。 IdHTTP1.Postの第一引数は以下の通りです。 'mixi.jp/login.pl' IdHTTP1.Postの第二引数にはstringlistで以下のようなデータを渡しています。 'next_url=/home.pl' 'email=メールアドレス' 'password=パスワード' TIdHTTPコンポーネントを使用して、mixiへのログインに成功した方、どのようにされたかアドバ イスいただけないですか？ 766 名前：デフォルトの名無しさん mailto:sage [2010/06/10(木) 21:38:02 ] オミトロンとかLiveHTTPHeaderなんかで ブラウザでログインしたときの状況を確認したほうが早いと思ふ 767 名前：デフォルトの名無しさん mailto:sage [2010/06/11(金) 11:13:50 ] >>764 無名メソッドを使えば、わざわざフィールド変数を用意する必要はない。 edn.embarcadero.com/article/39701 procedure TNewThread.Execute; var i: Integer; A,B: Integer; begin { スレッドとして実行したいコードをここに記述してください } for i := 0 to 99 do begin A := Random(10000); B := Random(10000); Synchronize(procedure begin Form1.Memo1.Lines.Add('NT : ' + FormatFloat('#,##0',A-B)); end); end; end; 768 名前：765 mailto:sage [2010/06/11(金) 11:26:33 ] >>766 LiveHTTPHeaderで確認したところ、POSTする情報は765の3つでした。 試しにブラウザからcokieを一度削除し、最初のログインでどのようなものを渡しているか確認。 それと同じ内容をIdHTTP1.Request.CustomHeaders.Addで渡してみたのですが、やはり ttp://mixi.jp/check.pl?n=home.plのアドレスが返ってきます・・・。 なんか根本的に設定を間違えているんでしょうか・・・。 769 名前：デフォルトの名無しさん mailto:sage [2010/06/11(金) 11:40:09 ] ssl だったり？ 770 名前：769 mailto:sage [2010/06/11(金) 11:43:19 ] >>769 あんまり関係ないか。 771 名前：765 mailto:sage [2010/06/11(金) 12:00:48 ] >>769 C#とかのサンプルみる限りはSSLじゃなくてもログインできるようなんですよね。 Indyの情報すくなすぐる・・・泣ける・・・。 772 名前：デフォルトの名無しさん mailto:sage [2010/06/11(金) 13:34:24 ] Indyは自力でソース見て解決できないバカが使うものじゃないから、 おとなしくTWebBrowserを操作してログインしておけ 773 名前：デフォルトの名無しさん mailto:sage [2010/06/11(金) 13:35:31 ] cookiemanagerにsessionはいってるのか？ 774 名前：デフォルトの名無しさん mailto:sage [2010/06/11(金) 20:25:06 ] IdHTTPのProxyにオミトロン通してブラウザと挙動を比較するとか。 mixi.jp/check.pl?n=home.plは普通にログインしてても通過するみたいだから 内容がどうかだね。 775 名前：デフォルトの名無しさん mailto:sage [2010/06/11(金) 20:45:00 ] url := 'mixi.jp/login.pl'; contents := TStringList.Create; contents.Text := 'next_url=%2Fhome.pl&email=hogehoge%40yahoo.co.jp&password=00000000&x=0&y=0'; res := IdHTTP1.Post(url, contents); で実行したら <html><head><meta http-equiv="refresh" content="0;url=/check.pl?n=%2Fhome.pl"></head></html> が返ってきた。 たぶんこれが成功じゃないかな。 LiveHTTPHeadersからコピペしたからエンコード済みの文字列だったから IdHTTPのHTTPOptionsのhoForceEncodeParamsはFalseにしたけど。 776 名前：デフォルトの名無しさん mailto:sage [2010/06/11(金) 20:45:59 ] クッキーマネージャは何もいじってないよ 777 名前：デフォルトの名無しさん [2010/06/11(金) 20:46:20 ] DSPack 2.3.3 destructor TFilterGraph.Destroy; var   i:integer; begin   SetActive(False);   DeallocateHWnd(FHandle);   if FFilters<>nil then//追加2010.06.11     FFilters.Free;   FGraphEvents.Free; //追加2010.06.11   inherited Destroy; end; destructor TDSVideoWindowEx2.Destroy; begin   FFullScreenControl.Free;//追加2010.06.11   if DesktopPlayback then     NormalPlayback;   if FDDXM <> nil then     FDDXM.SetCallbackInterface(nil, 0);   OverlayCallback := nil;   FOverlayMixer := nil;   FFilterGraph := nil;   FVideoWindow := nil;   FVideoRenderer := nil;   FCaps.Free;   FColorControl.Free;   inherited Destroy; end; 778 名前：デフォルトの名無しさん [2010/06/11(金) 20:52:58 ] >>777  続き procedure TDSVideoWindowEx2.ClearBack;//変更2010.06.11 var   DC, MemDC: HDC;   MemBitmap, OldBitmap: HBITMAP;   BackBrush, OverlayBrush: HBrush; begin * * *   finally     SelectObject(MemDC, OldBitmap);     DeleteDC(MemDC);     DeleteObject(MemBitmap);     DeleteObject(BackBrush);     DeleteObject(OverlayBrush);     ReleaseDC(Handle, DC);   end;   上記を下記の順番に変更   finally     DeleteObject(OverlayBrush);     DeleteObject(BackBrush);     ReleaseDC(Handle, DC);     SelectObject(MemDC, OldBitmap);     DeleteDC(MemDC);     DeleteObject(MemBitmap);   end; end; 779 名前：デフォルトの名無しさん mailto:sage [2010/06/11(金) 23:24:48 ] TStringListのSaveToFileって同時に同じ名前のファイルで行われると共有違反とか起きますか？ 780 名前：デフォルトの名無しさん mailto:sage [2010/06/12(土) 04:08:26 ] 起きる起きない以前にそんなクソコード書かないで下さい 781 名前：デフォルトの名無しさん mailto:sage [2010/06/12(土) 08:04:10 ] 「同時に」の意味は？本当に同時にはできないから、先にSaveToFileしたほうは 成功して、後のほうは失敗するんだけどね。 782 名前：デフォルトの名無しさん mailto:sage [2010/06/12(土) 09:56:46 ] あとの方で上書きされると思ってたが違うのか？ｗ 783 名前：デフォルトの名無しさん mailto:sage [2010/06/12(土) 10:12:36 ] >>777 2.3.4の間違いだよね？ 784 名前：デフォルトの名無しさん mailto:sage [2010/06/12(土) 12:58:15 ] ＞<html><head><meta http-equiv="refresh" content="0;url=/check.pl?n=%2Fhome.pl"></head></html> ＞が返ってきた。 ＞たぶんこれが成功じゃないかな。 ミクシィに詳しくない俺でもこれは失敗だとわかる・・・ リファラが不足してるかもしれないよ　サーバーがクライアントを蹴る理由は UA、リファラ、IP、クッキーのいずれか

---

---

[ 続きを読む ] / [ 携帯版 ]

read.cgi ver5.27 [feat.BBS2 +1.6] / e.0.2 (02/09/03) / eucaly.net products.
担当:undef