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

[表示 : 全て最新50 1-99 101- 201- 301- 401- 501- 601- 701- 801- 901- 2chのread.cgiへ]
Update time : 03/27 14:57 / Filesize : 277 KB / Number-of Response : 972
[このスレッドの書き込みを削除する]
[＋板最近立ったスレ＆熱いスレ一覧 : ＋板最近立ったスレ／記者別一覧] [類似スレッド一覧]


↑キャッシュ検索、類似スレ動作を修正しました、ご迷惑をお掛けしました

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・・・・・・・・・Ⅰ
E:=F;
else if A<B then・・・・②
E:=G
else A>B then・・・・・・③
E:=H;

①②③を条件分岐のグループで①の時だけ、入れ子のifを実行するつもりなんですが、
どうも、DelphiはⅠと②③をグループと見るみたいで　「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 ]: 質問が紛らわしくてすんません。
①②③の条件分岐のつもりで、①の時にⅠを実行する意図なのですが
「F；」の「；」を取ると
Ⅰ②③がグループと認識して①の入れ子と処理されてしまいます。
Ⅰは単独の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、クッキーのいずれか
785 名前：781 mailto:sage [2010/06/12(土) 18:23:37 ]: >782
ああ、先のほうの保存が終了てから後の保存が行われるならその通りだね。
「同時に」って言葉に引っぱられすぎだ。
786 名前：デフォルトの名無しさん mailto:sage [2010/06/12(土) 19:31:59 ]: >>784
失敗したときは違うHTMLがかえってくるよ。
check.plを経由してhome.plにいくみたい。
787 名前：デフォルトの名無しさん mailto:sage [2010/06/12(土) 20:17:10 ]: ミクシィに詳しくない俺でもこれは失敗だとわかる・・・（ｷﾘｯ

うわあ・・・これは恥ずかしい
こいつに足りないのはリファラじゃなくて頭だな
788 名前：デフォルトの名無しさん mailto:sage [2010/06/12(土) 21:14:20 ]: ＞UA、リファラ、IP、クッキーのいずれか

他のヘッダで弾いてるところもいっぱいあるよ
成功したかどうかの確認は帰ってくるURLとかじゃなくてクッキー見たほうがいい
789 名前：デフォルトの名無しさん mailto:sage [2010/06/12(土) 22:17:16 ]: オミトロンなりWireSharkなりを使って、ブラウザで認証OKだったときの挙動をキャプチャしてみると
何か見つかると思うよ。
790 名前：デフォルトの名無しさん mailto:sage [2010/06/13(日) 00:18:37 ]: procedure TForm1.Button1Click(Sender: TObject);
begin
Timer1.Enabled := true;
Timer2.Enabled := true;
end;
procedure TForm1.Timer1Timer(Sender: TObject);
var
sl : TStringList;
begin
sl := TStringList.Create;
with sl do begin
clear;
add(TTimer(sender).Name);
savetofile(extractFilepath(Application.ExeName)+'test.txt');
free
end;
sl := nil;
TTimer(sender).Enabled := false;
end;

保存されたテキストの中身はTimer1だった
791 名前：デフォルトの名無しさん mailto:sage [2010/06/13(日) 01:42:01 ]: さすがにTimer使っといて同時はねーだろ。別スレッドとか別プロセスじゃないと。
同一スレッド上ではシーケンシャルにしか処理は動かないんだから。
792 名前：デフォルトの名無しさん mailto:sage [2010/06/13(日) 02:52:43 ]: >>790
ばかだねー（´・∀・｀）
793 名前：デフォルトの名無しさん mailto:sage [2010/06/13(日) 13:51:21 ]: いやそうじゃなくって・・・
>>791
だから中身はtimer2になるはずでしょ？
間違ってたらスマンが。
794 名前：デフォルトの名無しさん mailto:sage [2010/06/13(日) 14:15:28 ]: >>793
Timer1のイベントが先に実行されるって決まってるんですか？
795 名前：デフォルトの名無しさん mailto:sage [2010/06/13(日) 14:46:53 ]: 無知なのは別にいいがそれをあたかも常識のように言うのはやめていただきたい
796 名前：デフォルトの名無しさん mailto:sage [2010/06/13(日) 15:01:52 ]: Timer2のイベントが存在していないのに、Timer2になるって脳内お花畑か。
まあそれより、ず～っと以前の問題なんだけどな。
797 名前：デフォルトの名無しさん mailto:sage [2010/06/13(日) 16:17:28 ]: えっ？
798 名前：デフォルトの名無しさん mailto:sage [2010/06/13(日) 20:29:08 ]: イベントはTimer1とTimer2で共有ってことだろ。
>>794
決まってないと思うが、どちらのタイマイベントが先に発生するにせよ、
そのイベントハンドラの実行は同時に実行される事はない。だから、
後の方で上書きされるだけ。
タイマー使ってもマルチスレッドにはならんよ。
799 名前：デフォルトの名無しさん mailto:sage [2010/06/13(日) 20:35:01 ]: ↑
明らかな間違いだぜ
イベントが共通だったとしても
Timer2になることは無いのだよ。
ヒント：タイマーはひとつだけ！
800 名前：デフォルトの名無しさん mailto:sage [2010/06/13(日) 21:28:47 ]: １個のformには１個のTimerしか使えない。理由はWindowsの仕様だから。
ハイ、次の質問。
801 名前：デフォルトの名無しさん mailto:sage [2010/06/13(日) 21:56:43 ]: >>800
では次の質問。

procedure TForm1.Timer1Timer(Sender: TObject);
begin
Memo1.Lines.Add((Sender as TTimer).Name);
end;

Timer1とTimer2が交互に追加されて表示されるのですが、なぜですか？
802 名前：デフォルトの名無しさん mailto:sage [2010/06/13(日) 21:59:00 ]: うそはよくない。TTimerは別々にウィンドウを保持してるので独立して動作する。
ただしメッセージループが動作していないといけないし、Windowsのタイマはもともと
指定時間を経過したことを示すフラグなのでそのあたりも注意が必要だが。
803 名前：デフォルトの名無しさん mailto:sage [2010/06/14(月) 00:34:30 ]: >>800
ばかだねー（´・∀・｀）
804 名前：デフォルトの名無しさん mailto:sage [2010/06/14(月) 00:46:36 ]: >>790　ファイル保存するときに排他処理やってないとかいうオチ？
805 名前：デフォルトの名無しさん mailto:sage [2010/06/14(月) 01:23:22 ]: >>804
お前は何を言ってるんだ？
806 名前：756 mailto:sage [2010/06/14(月) 12:02:13 ]: みなさん、レスありがとうございます。
あれから色々やってみたのですが、相変わらず
<meta http-equiv="refresh" content="0;url=/check.pl?n=%2Fhome.pl">
が返ってきます。

今はLive HTTP headersを火狐に入れて、正常にログインできたときの情報を確認しています
が、オミトロンを使用し、ブラウザとIdHTTP両方で確認してみます。

Indy使ったことがないので、勉強がてらやってみたのですが、俺にはてごわすぎる・・・。
807 名前：デフォルトの名無しさん mailto:sage [2010/06/14(月) 14:21:55 ]: それが正しいんじゃないの？　ほんとにブラウザの動きを確認してる？
808 名前：デフォルトの名無しさん mailto:sage [2010/06/14(月) 20:59:05 ]: >>806
ブラウザの動き的にはそれであってるんじゃないの？
次にそのHTMLから/check.pl?n=%2Fhome.plにアクセスして
その次にhome.plに行けば成功じゃない？
809 名前：デフォルトの名無しさん mailto:sage [2010/06/15(火) 04:36:11 ]: >>806
（´・∀・｀）
810 名前：デフォルトの名無しさん mailto:sage [2010/06/15(火) 08:49:21 ]: >765
漏れはこれで成功してる

MixiURL = 'mixi.jp/';
MixiLoginURL = MixiURL+'login.pl';

・
・
・

IdHTTP1.CookieManager.CookieCollection.Clear;

{ ==> Login }
PostData.Add('next_url=/home.pl');
PostData.Add('email='+email);
PostData.Add('password='+passwd);
PostData.Add('x=0');
PostData.Add('y=0');

IdHTTP1.Post(MixiLoginURL,PostData,Req);

そうすると
IdHTTP1.CookieManager.CookieCollection
に
SESSIONとSTAMPがセットされる。
あとは普通に他のページを取得できる
811 名前：765 mailto:sage [2010/06/15(火) 11:30:14 ]: >>810
コードの具体例ありがとうございます！

x=0とy=0を765のコードに加えpostしたところ、
IdHTTP1.CookieManager.CookieCollection.Cookie['BF_SESSION','mixi.jp'].Value
と
IdHTTP1.CookieManager.CookieCollection.Cookie['BF_STAMP','mixi.jp'].Value
に値が入っている事が確認できました。

が、この状態でIdHTTP1.Get('mixi.jp/home.pl')を行ったのですが、ログイ
ン前の画面しか取得する事ができませんでした・・。
(ログインされていない状態)

もしよければ、最初のpost以降どのようなロジックでログイン後の画面を取得され
ているかアドバイスいただけないでしょうか？
812 名前：デフォルトの名無しさん mailto:sage [2010/06/15(火) 12:18:50 ]: >>811
もう数年前のコードで、内容をすっかり忘れてるし、今のmixiにログインできるかどうかすら解らないです

暇になったらDebugしながらどうなっているか確認してみます

が、期待しないでね
813 名前：デフォルトの名無しさん mailto:sage [2010/06/15(火) 12:38:29 ]: >>812
OSをWindows7にした時にDelphiをインストールし直したらコンポーネント不足でもうコンパイルすら出来なくなってたorz

なので自力で頑張ってくれ

確認だけどPostしてCookieもらってGetする前に
IdHTTP1.Request.ContentType:='';
ってやってる？

それくらいかな？
ほんとにCookieもらったあとは読みたいページを直で読みに行ってるだけだから
814 名前：デフォルトの名無しさん mailto:sage [2010/06/15(火) 13:10:14 ]: >>813

即興で作ってみた。
これでMemo1にはhome.plの内容が出ました。

procedure TForm1.Button1Click(Sender: TObject);
var
email:String;
passwd:String;
Buf:String;
PostData:TStringList;
Req:TStringStream;
begin
PostData:=TStringList.Create;
Req:=TStringStream.Create('');

IdHTTP1.CookieManager.CookieCollection.Clear;

email:='メールアドレス';
passwd:='パスワード';
815 名前：デフォルトの名無しさん mailto:sage [2010/06/15(火) 13:13:10 ]: >>814
続き

{ ==> Login }
PostData.Add('next_url=/home.pl');
PostData.Add('email='+email);
PostData.Add('password='+passwd);
PostData.Add('x=0');
PostData.Add('y=0');

IdHTTP1.Post('mixi.jp/login.pl?from=login1',PostData,Req);

IdHTTP1.Request.ContentType:='';

Buf:=IdHTTP1.Get('mixi.jp/home.pl');

Memo1.Text:=Buf;

PostData.Free;
Req.Free;

end;
816 名前：765 mailto:sage [2010/06/15(火) 13:54:33 ]: >>814
コードありがとうございます。

が、なぜか同じコードを実行してみても、自分の環境ではログインされていない状態になるよう
です(ユーザー名とパスワード入力画面が表示される)。
TIdHTTP1でcookieを扱うために特にしなければいけない事はTCookieManagerの登録以外に
何かありますでしょうか？

うーん、まだPOSTしきれていない情報があるのか・・・？
817 名前：デフォルトの名無しさん mailto:sage [2010/06/15(火) 14:24:07 ]: >>816
一度新規にProjectを作ってやってみたらどうですかね？

と言うのは、IdHTTP等のプロパティの値が違うと取得できないケースがあります

ちなみに私のコードはDelphi起動、Project作成後に何も考えずにコンポーネントをペタペタやっただけです。
ちなみにDelphi2007です。
818 名前：765 mailto:sage [2010/06/15(火) 18:06:06 ]: >>817
新規で作ってみましたが、やはりログイン前のmixi.jp/home.plの画面が表示されますね・・。
(パスワードとIDの入力画面)
postでIDとパスワードを送っているにもかかわらず、ログインできていないという事か・・？

ちなみにIndyはD2009/2010版の最新のものを入れています。
819 名前：デフォルトの名無しさん mailto:sage [2010/06/15(火) 18:54:38 ]: del2006だけど成功したよ。>>814-815
820 名前：デフォルトの名無しさん mailto:sage [2010/06/15(火) 19:55:13 ]: >>818
Delphi2010はStringのエンコードがややこしいので普段使ってないのですが、Delphi2010でやってみたけど出来ました。

何が違うんでしょうね
821 名前：デフォルトの名無しさん mailto:sage [2010/06/16(水) 02:19:57 ]: 頭・・・ですかね
822 名前：デフォルトの名無しさん mailto:sage [2010/06/16(水) 08:33:05 ]: >>821
お前の？
823 名前：デフォルトの名無しさん mailto:sage [2010/06/16(水) 13:30:08 ]: >>822の。
824 名前：デフォルトの名無しさん mailto:sage [2010/06/16(水) 14:09:14 ]: 他のアプリのウィンド内の文字列を取得するアプリを作っているのですが、
文字列を取得する時に、そのウィンドがアクティブになっていれば正常に取得できるのですが、
非アクティプの時に取得しようとすると　？Ｍａｉｎ　と言う文字列が返ってきます。
目的のウィンド内の別のところの文字列は非アクティブでも取得できます。

どういう情報を書けばいいかよく分からないので、分かりにくい質問とは思いますがよろしくお願いします。
825 名前：デフォルトの名無しさん mailto:sage [2010/06/16(水) 17:50:46 ]: なんてソフトの
どんなところを
どうやって取得しているのか？
826 名前：デフォルトの名無しさん [2010/06/16(水) 23:01:31 ]: VCLベースアプリの可能性が高い感じ。
メインフォームの他に隠しウィンドウ持ってるから。
827 名前：765 mailto:sage [2010/06/17(木) 10:24:12 ]: >>819、820
ひとつ確認させてください。
同じhome.plでもログイン前とログイン後の両方があります。
みなさんはログイン後のhome.plが表示されましたか？
828 名前：765 mailto:sage [2010/06/17(木) 10:28:55 ]: ちなみにログイン前のhome.plだった場合、getで取得された情報の中に、「いますぐ利用す
る（無料）」や「すでに登録済みの方は、こちらからログインしてください」などの文字列が
入っています。ログインされていない状態のhome.plですね。

俺がやると、なぜかこっちになるんだよね・・・。
829 名前：デフォルトの名無しさん mailto:sage [2010/06/17(木) 10:58:30 ]: いい加減、httpでアクセスして自分の送ってるパケットぐらい調べろ
httpsonlyだったり正常ならレスポンス時のカスタムヘッダを列挙しろ
それも駄目ならリクエスト時のカスタムヘッダに直接クッキー押し込め
それでも駄目ならアカウントが死んでる

クッキーコレクションだったか？あれはヘッダからクッキーを抜いて保持しとくだけの物なんだよ
使えなかったら直接ヘッダにぶち込め

つかな、もうこれdelphiスレで何度も何度もいってるんだよ
デバッグが出来ないならネットワークのプログラミングはやるな
つかRFC読んで仕組みを勉強しろ！
830 名前：デフォルトの名無しさん mailto:sage [2010/06/17(木) 11:17:53 ]: ↑
スレタイさえ読めないおバカさんですか？
このスレのタイトルは、
くだすれDelphi(超初心者用)その51
＞Delphi(デルファイ)について、他のスレッドでは書き込めない超低レベル、
＞もしくは質問者自身何が何だか分からない質問を
＞勇気を持って書き込むスレッドです。
＞Delphi使いが優しくコメントを返しますが
＞お礼はDelphiの布教と初心者の救済をお願いします。
831 名前：デフォルトの名無しさん mailto:sage [2010/06/17(木) 11:26:27 ]: >>829
不快にさせて、申し訳ございません。

いままでの思考錯誤をまとめると。
httpでアクセスした際のパケッットはLive HTTP Headersで取得し、POSTしているデータは
next_url/email/password/x/yであると確認済みです。

受け取るcookieはBF_SESSION/BF_STAMPで、CookieManagerに入ってきている事も確認
しました(cookieの値は同じものであると確認)。

IdHTTP1.Request.CustomHeaders.Add('Cookie:BF_SESSION=' + BF_SESSIONの内容);
IdHTTP1.Request.CustomHeaders.Add('Cookie:BF_STAMP=' + BF_STAMP);
で、Cookieをヘッダーに送ったりもしていますが、やはり同じ結果(ログオンされていない状態に
なる)になるのです・・・。

ログインからの流れとしては
ttp://www.atmarkit.co.jp/fdotnet/dotnettips/326cookie/cookie.html
を参考にしています。受け取ったcookieを持ってれば認証が必要なページにアクセス可能になる
ようですので、当方のCookieManagerの使い方がおかしいのか？と悩んでいるところです。
(他の方は成功しているようですので)
832 名前：デフォルトの名無しさん mailto:sage [2010/06/17(木) 17:39:38 ]: プロジェクト一式上げろよ
833 名前：デフォルトの名無しさん [2010/06/18(金) 10:56:15 ]: エクセルのファイルそのものを削除するにはどうすればいいのか誰か教えてくれないか
DeleteFile('C:\ファイル名'); でやるとTXTファイルなら削除できるのにエクセルだとなぜか削除されないんだ・・・
834 名前：デフォルトの名無しさん [2010/06/18(金) 11:17:22 ]: 追記

別の名前で保存はできるが、名前を変更して保存（リネーム）もできない
835 名前：デフォルトの名無しさん mailto:delphipatch@gmail.com 　sage [2010/06/18(金) 12:14:20 ]: D3のQuickReportのパッチのd3qrupd.lzhをお持ちの方居りましたらメールで送っていただけませんか？
サポート終了と言うことで本家から落とせなくて困っています。
836 名前：デフォルトの名無しさん mailto:sage [2010/06/18(金) 12:22:27 ]: >>832
うｐローダー探してのちほどうｐしてみます。
今日午後～火曜まで出張のため、来週半ばぐらいになるかもしれません。
837 名前：833 mailto:sage [2010/06/18(金) 15:14:23 ]: すみません。自己解決しました。お騒がせしました。
838 名前：デフォルトの名無しさん [2010/06/21(月) 17:47:50 ]: bitmapのことで質問させてください。
canvas.draw(intX, intY, 別のビットマップ)
で画像コピーができることはわかったのですが、
これって受け手側の座標しか指定できないんですか。

100X100の大きさの受け手に対して、送り手の101, 201, 200, 300から
100X100だけ持ってくるにはどうしたらいいんでしょう。
839 名前：デフォルトの名無しさん mailto:sage [2010/06/21(月) 18:31:51 ]: ヘルプでTCanvasについて調べなさい
840 名前：デフォルトの名無しさん [2010/06/21(月) 19:09:39 ]: ありがとうございます。
メソッドにCopyRectってのがあったので、もしかしてこれかなと
思ってやってみたら、以下あっさりできました。
送り手.Canvas.CopyRect(Rect(0, 0, 100, 100), 受け手.Canvas, Rect(30, 30, 130, 130));
841 名前：デフォルトの名無しさん mailto:sage [2010/06/22(火) 01:33:11 ]: >>840
できたならいいけど受け手と送り手勘違いしてない？
あとDrawでもマイナス指定すればできるけど
842 名前：デフォルトの名無しさん mailto:sage [2010/06/22(火) 22:06:48 ]: ゲーム作っている人教えて。スーパーマリオなどのゲームって
スクロールしたとき、マリオをも背景も再描写させてるの？
843 名前：デフォルトの名無しさん mailto:sage [2010/06/22(火) 22:22:30 ]: そもそも昔のゲーム機はPCとは異なる概念で描画してるから
PCでは参考にならないと思うぜ

画面全体がタイル上に分割されていて、
どこにどのタイルを貼るかを指定する感じで描画する
背景は全体的にスクロールできて、
キャラは背景とは別に置けたんじゃなかったかな（所謂スプライト）
GBAの知識だからFCやSFCくらい古くなるとどうなってんのか知らないが

最近のゲーム機なら毎回レンダリングしてるんじゃないの
カメラが固定ならさぼってるかもしんないけど
844 名前：デフォルトの名無しさん mailto:sage [2010/06/23(水) 09:37:41 ]: 最近、Delphi7のデータベースを使ったプログラムを作った時の
配布方法について教えて下さい。

データベースを使ったプログラム自体初めてなので、これから
本とか買って調べるのですが、データベースアプリってデータベースも含めて
Zipとかで配布できますか？
インストーラーとかよく分からないので、解凍して終わりな感じにしたいです。
845 名前：デフォルトの名無しさん mailto:sage [2010/06/23(水) 09:40:18 ]: >>844
そんな知識レベルで配布とかすんな。
846 名前：デフォルトの名無しさん mailto:sage [2010/06/23(水) 09:51:04 ]: Delphi は複数の DB 接続技術を利用できますから、あなたのアプリがどれを使うかによって
話は変わってしまいます。

まず、データベースアプリを作りましょう。
配布の話はそれからで十分だと思います。
847 名前：デフォルトの名無しさん mailto:sage [2010/06/23(水) 10:22:34 ]: >>845
答えてくれてありがとうなんだけど、ケチ付ける前に日本語読めるか？
これから調べて作るんだよ。
すっこんどけ。ヽ(`Д´)ﾉﾌﾟﾝﾌﾟﾝ

>>846
了解しました。
848 名前：デフォルトの名無しさん mailto:sage [2010/06/23(水) 10:38:27 ]: あと、せめてどのデータベースにつなげたいのかくらいは書いてね。
そういうのもまだ決まっていないならどうしようも無いけど
849 名前：844 mailto:sage [2010/06/23(水) 11:27:58 ]: >>848
> あと、せめてどのデータベースにつなげたいのかくらいは書いてね。
> そういうのもまだ決まっていないならどうしようも無いけど

なにぶん、初めてでどのデータベースに繋げようかとか決まってないです。
一応、「Delphi DB&Webプログラミング」って本が手に入りそうなので、
それで調べようかなと思っています。

逆に、簡単に配布出来るものってあるんでしょうか？
850 名前：デフォルトの名無しさん mailto:sage [2010/06/23(水) 11:54:09 ]: デルファイでマリオ作ろうとしてるやつっておめでたいな・・・
851 名前：デフォルトの名無しさん mailto:sage [2010/06/23(水) 12:07:02 ]: >>849
何を構築しようとしてるのか知らないけど、多分、君にDBは必要無いと思うよ。
852 名前：デフォルトの名無しさん mailto:sage [2010/06/23(水) 13:09:16 ]: 7をWindows7で使ってます。

TRicheditの背景色についてですが、
いったん表示されてから、Windowsのテーマ変更で背景色が変わった場合
TRicheditは背景色がclWindowに追随してくれません。(ほかにTTrackbarも)
テーマ変更時のイベントを捕捉できればいいのですが、eventにはそれらしき
ものが見当たりません。
ためしにonChangeイベントで
reRichedit.color := clWindow;
とやってみましたが、テーマ変更後の色に変わりませんでした。
いったんコンポごと消して再生成するしかないのでしょうか？
853 名前：デフォルトの名無しさん mailto:sage [2010/06/23(水) 15:14:26 ]: まぁ、確かに要らないかも何ですが・・・
あるデータを溜め込んで、andやorで抽出する必要があるんで
何かのデータベースを使った方が楽かと。
データリスト自前で作っても良いんですけどね。
854 名前：デフォルトの名無しさん mailto:sage [2010/06/23(水) 15:18:23 ]: ・自分でフィルタリングするの面倒だからDB使う。
・インストール面倒だからzipでファイルだけ配布。
・調べるの面倒だから2chで丸投げ。
855 名前：デフォルトの名無しさん mailto:sage [2010/06/23(水) 15:38:43 ]: 854 どれも立派な理由だと思います。
856 名前：デフォルトの名無しさん mailto:sage [2010/06/23(水) 15:41:06 ]: いやいや別に丸投げって、そんんぁ。
インストーラーみたいなのをやらないといけないかどうかだけだよ知りたいのは。
データベースによるわ、ヴォケ！ってなら　ヾ(ﾟ∀ﾟ)ﾉﾊｲ　で終わり
857 名前：デフォルトの名無しさん mailto:sage [2010/06/23(水) 15:45:26 ]: リレーショナル DB である必要がなく、データ件数が高々数万でよいなら
ClientDataSet を MidasLib ユニット経由で使えば、アプリケーションに
組み込み(追加の配布ファイルなし)で作れます。

一般の（リレーショナル）DB を使う場合には、そのサーバーそのもの以外に
DB メーカー提供のミドルウェア（接続用 DLL）が必要になります。
多くの場合、アプリケーションと同じディレクトリに置けば動く場合が多いですが
そうでない場合もあります。
858 名前：856 mailto:sage [2010/06/23(水) 15:52:28 ]: >>857
ありがとうございました。
調べる的が絞れました。
859 名前：デフォルトの名無しさん mailto:sage [2010/06/24(木) 02:31:28 ]: ちょいちょい挟んでくるAAがイラッと来るなｗ
分かってやってるのかもしれんが
860 名前：デフォルトの名無しさん mailto:sage [2010/06/24(木) 08:11:08 ]: 朝から引っ込んで炉よ、クズβακα..._φ(ﾟ∀ﾟ )ｱﾋｬ
861 名前：デフォルトの名無しさん [2010/06/24(木) 16:06:04 ]: SHFileOperationって、いわゆる非同期というやつなんでしょうか？

大量のファイル（フォルダ）をバックグラウンドでコピーするために
FOF_SILENTを指定してSHFileOperationを使ってみたのですが、
処理が終わるまで画面が固まってしまいます。
そこで↓みたいなワークスレッドを作ってその中で実行させてみたのですが
今度はすべてのファイルがコピーされないまま、SHFileOperationから抜けて
スレッドが終了してしまいます。

procedure TWorkThread.Execute;
begin
ShellAPI.SHFileOperation(ShellParam);
end;

こっち立てればあっち立たずな感じで困っています．．．
こういうときにDelphiでうまい対処法みたいなものがあるのでしょうか？
862 名前：デフォルトの名無しさん [2010/06/24(木) 17:10:41 ]: Outlook Expressの保存フォルダ(dbxファイル)の場所を取得するには？
863 名前：デフォルトの名無しさん mailto:sage [2010/06/24(木) 17:46:25 ]: >>858
分かってるとは思うけどDBのライセンスに注意してね
付属のIntereBaseも再配布不可どころか開発専用のライセンスだし。

Delphiの場合だとIBX+組み込み版Firebirdが手っ取り早いと思うけど
864 名前：デフォルトの名無しさん mailto:sage [2010/06/24(木) 19:01:39 ]: うるせーハゲ＾＾
865 名前：デフォルトの名無しさん mailto:sage [2010/06/24(木) 19:59:16 ]: >>861
画面の見た目にこだわらないのであれば
処理の進捗を表示するフォームを作成してからCopyFileExを呼び出して、
コールバック関数内で画面を更新させる手もある
866 名前：デフォルトの名無しさん mailto:sage [2010/06/25(金) 09:09:38 ]: >>861
TSHFileOpStructのウィンドウハンドルに0を指定でいいんじゃね。
867 名前：デフォルトの名無しさん mailto:sage [2010/06/25(金) 11:48:40 ]: 他のアプリのフォントの色を取得するにはどうすればいいですか？
目的のアプリのコントロール？のハンドルは取得できています。
GetDCでデバイスコンテキストを取得して、

Label1.Font.Color := GetTextColor(DC);

みたいにしているんですが、「0」が返ってきてしまいます。
よろしくお願いします。
868 名前：デフォルトの名無しさん mailto:sage [2010/06/25(金) 11:54:56 ]: 全く同じ質問を見たような気がするが気のせいか？
869 名前：デフォルトの名無しさん mailto:sage [2010/06/25(金) 11:58:16 ]: 失礼しました。
675にアキラメロンがありました。
870 名前：デフォルトの名無しさん mailto:sage [2010/06/25(金) 15:40:43 ]: 数年前にDelphi6をやっていてある程度マスターしていたのですが
ひさしぶりにプログラミングをやろうとしたら全然状況が変わっていて
どの言語をやろうか迷っています。
Delphi経験者が今から趣味でプログラミングを始めるならどの言語がいいですか？
871 名前：デフォルトの名無しさん mailto:sage [2010/06/25(金) 15:57:52 ]: >>870
Object C
872 名前：デフォルトの名無しさん mailto:sage [2010/06/25(金) 16:54:59 ]: >>870
C#
873 名前：デフォルトの名無しさん mailto:sage [2010/06/25(金) 21:47:02 ]: >>870
Prism
874 名前：デフォルトの名無しさん mailto:sage [2010/06/25(金) 22:03:33 ]: >870
趣味？お金をかけたくないならC#、お金に余裕があるならDelphiかPrism。
C#はEEならただだから。
875 名前：765 mailto:sage [2010/06/26(土) 12:09:21 ]: >>832
すいません、やっと出張から帰ってこれました・・・。

遅くなりましたが、うｐローダーにうｐしてみました。
ttp://www.dotup.org/uploda/www.dotup.org988294.zip.html

確認用に取得したHTMLをtest.htmlとしてexeと同じ位置に保存し、それを再度TWebBrowserに
取り込んでいます(ランタイムエラーでますが)。
TWebbrowserの画面でいますぐ利用する(無料)ボタンが表示されている場合、ログインできて
いないhome.pl画面です。
ログインできている場合は、該当アカウントのhome画面になるはずです。

よろしくお願いします。

来週からまた出張・・・orz
876 名前：765 mailto:sage [2010/06/26(土) 12:10:15 ]: しまった書き忘れ・・・。
うｐローダーのダウンロードパスはdelphiです。
877 名前：デフォルトの名無しさん mailto:sage [2010/06/26(土) 13:36:05 ]: Delphiってもう無料版はないの？
878 名前：デフォルトの名無しさん mailto:sage [2010/06/26(土) 14:16:33 ]: ない
879 名前：デフォルトの名無しさん mailto:sage [2010/06/27(日) 00:56:09 ]: 処理中にマウスのカーソルを砂時計にしたいのですが、
各コントロールのCursoｒを全部設定していかないと
いけないのでしょうか？
880 名前：デフォルトの名無しさん mailto:sage [2010/06/27(日) 03:16:10 ]: Screen.Cursor := crDefault;
881 名前：デフォルトの名無しさん mailto:sage [2010/06/27(日) 18:52:36 ]: >>875
何度も言われていることなのにバカなの？
login.pl→check.pl→home.plっていう流れなのに
いきなりhome.plアクセスしてるじゃん。
いろんな人がいろんなアドバイスしてくれてるのに
全く聞く耳持ってないじゃん。

login.plでちゃんとログインできたらメタタグだけでcheck.plに行けって返ってくるから
そこにアクセスしてからhome.plにアクセスしてみなよ。
一度目のPOSTのレスポンスを表示しようと思わなかったのはなんでだろうか。
882 名前：デフォルトの名無しさん mailto:sage [2010/06/27(日) 19:45:37 ]: 聞いてる時点でやる気も調べる気も行動する気も最後までやり遂げる気も無い
883 名前：デフォルトの名無しさん mailto:sage [2010/06/28(月) 02:03:47 ]: 釣れた釣れたｗ
884 名前：デフォルトの名無しさん mailto:sage [2010/06/28(月) 05:34:07 ]: 釣られちゃった
てへっ
885 名前：デフォルトの名無しさん mailto:sage [2010/06/28(月) 09:44:58 ]: 恥ずかしい後釣り宣言来ました
886 名前：デフォルトの名無しさん mailto:sage [2010/06/28(月) 14:00:40 ]: 恥ずかしい後釣り宣言来ました宣言来ました
887 名前：デフォルトの名無しさん mailto:sage [2010/06/28(月) 14:47:30 ]: 自動ログインしたいという根性そのものがいけすかない。
手動でやれ手動で。ビシっと。
888 名前：デフォルトの名無しさん mailto:sage [2010/06/28(月) 14:55:47 ]: そういうのはC#でやるのが簡単なのに
889 名前：デフォルトの名無しさん mailto:sage [2010/06/28(月) 16:35:18 ]: Del7のListViewの事で質問です。
ListViewの左端（ItemのCaption？）に入力されている文字列と
これから追加しようとする文字列が重複していないか確認をしたいのですが、

for i:=0 to ListView1.Items.Count-1 do
if ListView1.Items.Item[i].Caption<>stringData then
　　・・・・

みたいにするしかないでしょうか？
よろしくおねがいします。
890 名前：デフォルトの名無しさん mailto:sage [2010/06/28(月) 19:25:46 ]: ListView1.Items.IndexOf(stringData) >= 0
とか
ListView1.FindCaption(0,stringData,False,True,False) = nil
とか
891 名前：デフォルトの名無しさん mailto:sage [2010/06/28(月) 19:29:14 ]: ListView1.Items.IndexOf(stringData) < 0
だった
892 名前：889 mailto:sage [2010/06/29(火) 10:20:41 ]: 質問した時のプログラム例が間違ってる。
恥ずかしい。orz

>>890
ありがどうございます。
しかし、ItemsのIndexOfはTListItemを探すものらしいです。

ListView1.FindCaption(0,stringData,False,True,False) = nil
こっちでいいみたいです。
893 名前：デフォルトの名無しさん mailto:sage [2010/06/29(火) 10:24:06 ]: VirtualListViewでやれば好きなように出来る。
894 名前：765 mailto:sage [2010/06/29(火) 11:14:01 ]: >>881
当初Live HTTP headersで確認したところ、login.plのあとにcheck.pl?n=/home.plにアクセス
していることがわかりましたので、
IdHTTP1.Get('mixi.jp/check.pl?n=home.pl');
や
IdHTTP1.Get('mixi.jp/check.pl');
を試した事もありました
が、双方ともに302 Foundがでるので(ブラウザからはアクセスできる)、それ以上の調査はして
おりませんでした。

アップロードにうｐしているファイルは、上の方でログインに成功されている方の例をそのまま
使って作り直したものです。

>>881さんはcheck.plにアクセスした際に、302 Foundエラーはでませんでしたか？
もしでている場合、どのように回避されましたか？

実はIndyのバージョンを2009梱包版のものではなく、最新にあげてしまっているので、そのあた
りが影響していないか心配です。
895 名前：765 mailto:sage [2010/06/29(火) 11:27:51 ]: 追加
POSTから返ってきた文字列に関しては>>768で触れております。
が、この時点でこのアドレスはクッキーが無効であるという失敗を表すものだという勘違いをして
しまい(>>784さんも同意見だったため)、しばらく迷走しておりました。
で、その後再度Live HTTP headersを追ってみたところ、「mixi.jp/check.pl?n=%2Fhome.pl」
へのGETを発見しました。

今改めてみてみましたが、ブラウザでもcheck.plへのアクセスのあと、一度「HTTP/1.1 302 Found」
がでていますね・・・。
896 名前：デフォルトの名無しさん mailto:sage [2010/06/29(火) 16:33:24 ]: D3のSQLエクスプローラーで二つのＩｎｔｅｒｂａｓｅファイル間のテーブルの比較って出来ますか?
片方で削除されたレコードを抽出したいのです。
897 名前：デフォルトの名無しさん [2010/06/29(火) 23:44:12 ]: win7でターボデルフィは動かせますか？
898 名前：デフォルトの名無しさん mailto:sage [2010/06/30(水) 01:18:54 ]: 302がエラーだとしか思わない人がネットツール作れるのかよ・・・・・・
899 名前：デフォルトの名無しさん mailto:sage [2010/06/30(水) 03:07:49 ]: >>895
もう続きはチラ裏でいいと思うよ
900 名前：765 [2010/06/30(水) 09:49:43 ]: >>898
超初心者ですので、勉強のつもりでやってます・・・。
用語もそれほど知らないので、どう皆さんにうまく説明していいかわからず、エラーと表現して
しまい申し訳ございません。

>>881さんがどのように302 Foundを回避されているのか、アドバイスいただければ幸いです。

>>899
自分自身Delphiはおろかプログラミングもはじめたばかりですので、このスレに来たのですが、
もっと初心者向けのスレがあるという事でしょうか？
ここでも場違いなようでしたら、どちらかのスレに誘導していただければ嬉しいです。
901 名前：デフォルトの名無しさん mailto:sage [2010/06/30(水) 10:25:11 ]: Delphi7+Firebird+IBXで開発したものをDelphi2009で再構築しています。
データベースのテーブル一覧を取得するために下記SQLを発行していますが、
テーブル名が10文字分しか返ってきません。何か対処法ご存じでしたらご教授願います。

select rdb$relation_name from rdb$relations
where (rdb$view_source is null) and (rdb$system_flag=0)
902 名前：デフォルトの名無しさん mailto:sage [2010/06/30(水) 10:32:54 ]: 本当に勉強したいなら、匿名無料掲示板で相談するのではなく経験を持っている人に教わった方が
速いです。身近に相談できるような人はいませんか？

>もっと初心者向けのスレが
「知らないこと」には限界が無いので、初心者とひとくくりにすることができないのですよ
あなたがどこまで何を知っているか。によって答え（や参考資料の出し方など）は変わっていくのです。
どこかにもっと初心者向けのスレがあるかもしれませんが、それは誰にもわかりません。

多くの回答者は暇なときにしか対応できませんからどうしても時間がかかります。だから「出直してこい」「ちょっとは
自分で調べろ」と言うしか無いのですよ。

今回の件では、プログラムする前に何が正しい動作、期待する動作なのかを知る必要が有るでしょう。
まずブラウザとサーバーの会話を分析、理解するべきだと思います。

簡単にはパケットキャプチャ。Safari や Chrome などのブラウザ組み込み開発ツールも役に立つでしょう。
ここから先は、まずはネットワーク関連のスレに移動した方が、より専門的な解説、説明、罵倒が待っていると
おもいます。行ってらっしゃい
903 名前：765 mailto:sage [2010/06/30(水) 11:46:21 ]: >>902
このスレですでに二人ほど、ログインに成功している方がいるので、できればその方たちから
のヒントを聞かせていただければなと思っておりました。(´･ω･`)
もちろんヒマな時の回答でも、すごく嬉しいです！

DelphiでIndyを使用してMIXIにログインする例が見あたらなかったので、今後トライしようと
する人の為にも成功例がコードと共にあった方がいいかなと思って質問を続けてきましたが、
他のスレに行った方がよさげですね・・・。

とりあえずネットワーク関連のスレの方をみてみます。
こちらでも何かヒント等ありましたら、引き続きアドバイスいただければ幸いです。

ありがとうございました。
904 名前：765 mailto:sage [2010/06/30(水) 12:28:13 ]: XRayさんのところに302回避の良いサンプルがありました。 Redirectを使って処理すればいいようです。

ちら裏になりますが、現在の状況です。
まだ解決にはほど通りので、引き続きがんばります。

ログイン情報をPOST
↓
Cookieとmixi.jp/check.plへ行けとの指示ゲット
↓
302Found
↓
Redirectで処理し、mixi.jp/home.plが返ってくる
↓
mixi.jp/home.plへ移動
↓
ログイン前のホームが依然表示される
905 名前：デフォルトの名無しさん mailto:sage [2010/06/30(水) 12:40:52 ]: だからブラウザだって302を受け取って処理してんの。それと同じにやればいいんだよ
906 名前：765 [2010/06/30(水) 12:55:21 ]: >>905
>>904のRedirect処理部分で、同じように処理いたしました(XRayさんのサイト参照)。

(Live HTTP Headersで確認したところ)正しい動きとしてはhome.plで無事ログイン済みになり
あらたにemidというCookieをもらえるはずですが、上記の通りでやはりログイン前の画面に
なってしまうので、引き続き調査中です。
907 名前：デフォルトの名無しさん mailto:sage [2010/06/30(水) 14:00:32 ]: そもそも認証は面倒だからIEでいいならIEコンポ(WebBrowser)でやったほうが早くて確実だけど
INDYにこだわる必要があるのかな
WebBrowserで自動ログインする部分が多少面倒だけどそれさえクリアすれば後は簡単
908 名前：765 mailto:sage [2010/06/30(水) 14:13:21 ]: >>907
WebBrowserは別の練習アプリで使ったので(その時にIndyでも認証ができると知りました)今回は
Indyに挑戦してみようと思いまして。
だが、資料が少なすぎて、今の俺のスキルでは無茶すぎた・・・！と後悔しつつも、せっかくだか
ら最後までやりたいと思っております。
909 名前：デフォルトの名無しさん mailto:sage [2010/06/30(水) 14:41:41 ]: 302回避とか書いている時点でなにも理解できてない。
Delphiとは関係ない知識が足りてない。
910 名前：765 mailto:sage [2010/06/30(水) 15:13:50 ]: >>909
知識不足というのは、自分でも痛感しています。なにぶんプログラムを勉強し始めたばかりで
すのでご容赦ください。
現在の時点では、ググった結果さえ理解できない事も多く、このスレの回答者の皆さんみた
いになるには、かなりの時間が必要そうです。

回避というのは、302が返ってくるのでどのように処理すればいいのかという意味のつもり
だったのですが、適切な言い方ではなかったようで、申し訳ないです。

Live HTTP Headersでの確認では、check.plにアクセスしたあと、「HTTP/1.1 302 Found」が返っ
てきており、その後home.plにアクセスしているので(おそらく>>905さんがおっしゃる通り、ブラウ
ザが302をこの時点で処理している)、やり方としては今Delphiでやっている事と同じような気も
するのですが。
今日は一日休みですので、もう少しLive HTTP Headersを確認しつつがんばってみます。
上で、すでにログインに成功している人がいるし、見落としている部分に答えがありそうです。
911 名前：デフォルトの名無しさん mailto:sage [2010/06/30(水) 16:12:08 ]: なぜDelphiなんだろうC#のがいいのに
912 名前：765 mailto:sage [2010/06/30(水) 16:40:50 ]: >>911
ちら裏になりますが、会社の自分の前任者(元プログラマ、退職済)が2009を購入してもらって、
ちょこちょこ便利ツールを作ってたみたいで、後任の自分も使ってみたら？と渡された。

もともとプログラムできる奴カッケー！！と思っていたので、仕事の合間や自宅にノートPC持っ
て帰ってに勉強しています(セキュリティが緩いので・・・)。
職種はまったくPCと関係ない上、社内でその手の知識がある奴も皆無なのがつらいところ。
913 名前：デフォルトの名無しさん mailto:sage [2010/06/30(水) 19:17:26 ]: なぜDelphiなんだろう
914 名前：デフォルトの名無しさん mailto:sage [2010/06/30(水) 21:23:52 ]: Webアプリ作りたいんならまずRFC2616くらいは読んどいたほうがいい。

とりあえず、「HTTP/1.1 302 Found」は必ずしもエラーを意味しない。それによりリダイレクト
させることが目的である場合もあるから。
Indyのバージョンによるのかもしれないけど、プロパティで302を自動でリダイレクトさせる
ことができるし、実際自分はそれを使ってる。
915 名前：765 mailto:sage [2010/06/30(水) 22:33:34 ]: >>914
実はRFC2616を説明しているサイトで302 Foundについてすでに調べたのですが・・・・
さっぱり意味わかんねえええええｗ orz

他も色々みてみて、どうやら一時的なページの移動か、CGIが返す場合があるという事
として今は理解しています(検討外れだったらすいません・・・)。

Indyのバージョンは最新のはずなので、もしかしたら自動でリダイレクトさせるプロパティ
があったのかもしれないですが、とりあえず現在はRedirectイベントで処理いたしました。

今日は力つきたので、ここまででｗ
916 名前：デフォルトの名無しさん mailto:sage [2010/06/30(水) 23:06:41 ]: Delphiと関係ないことは理解できましたか？
917 名前：デフォルトの名無しさん mailto:sage [2010/07/01(木) 04:20:03 ]: 　BDEでODBC経由でSQL Serverに接続しています。（TDateBaseクラスを使用）
複数のプロセスでDB接続している際、その中の1つのプロセスを強制終了
（クラッシュ）しては再起動ということを繰り返していると、何度かいったところで
「この操作に必要なメモリがありません」と出て、DB接続できなくなります。
DB接続しているプロセスをいったん全て終了させると、正常に戻ります。
　見たところではリソースのリークのようなのですが、改善することはできますで
しょうか。
918 名前：デフォルトの名無しさん mailto:sage [2010/07/01(木) 04:28:35 ]: プロセスの強制終了が直接の原因でしょ
BDE は共有メモリモデルで動いているから異なるプロセス間で共有しているメモリブロックが解放されず
不足したのでしょう。

強制終了しないように直し、仮に例外が発生しても正しくアプリケーションを終了させるようにするのが正道。
919 名前：デフォルトの名無しさん mailto:sage [2010/07/01(木) 04:42:57 ]: BDE 使い続けている人は多いなぁ
920 名前：デフォルトの名無しさん mailto:sage [2010/07/01(木) 09:41:07 ]: BDE経由だとoracleでもそんな感じだし。
921 名前：デフォルトの名無しさん mailto:sage [2010/07/01(木) 09:55:45 ]: >>765
C++Builder2010だけど、>>814 のコードでログインできた。

>>814 のコードの
IdHTTP1.Post('mixi.jp/login.pl?from=login1',PostData,Req);
で、Reqにサーバーからのレスポンスが入っている。

とりあえずReqのデータをSaveToFileでファイルに保存してファイルの内容を教えろ。

ログインできていれば、あとは >>814 の次のコードでログイン後のページが表示される。
IdHTTP1.Request.ContentType:='';
Buf:=IdHTTP1.Get('mixi.jp/home.pl');

302 Foundとかで躓く理由がない。
922 名前：デフォルトの名無しさん mailto:sage [2010/07/01(木) 11:36:04 ]: Indyってnegotiate認証に対応しているのでしょうか？NTLS認証は対応してるっぽい
ですけど、Kerberos認証は対応してます？
923 名前：デフォルトの名無しさん mailto:sage [2010/07/01(木) 12:03:02 ]: Delphi2010(Rad Studio)の
逆アセンブル/レジスタなどのペイン(メニューだと表示→デバッグ→CPUウィンドウ以下)
のフォントサイズが6？7？なのか不明ですが、文字が小さすぎて見えません

CPU全体というものを選べばフォントサイズはでかくて見易いのですが、この項目はエディタウィンドウと重なってしまい、使い勝手が悪いです

特にこれらの項目のフォントサイズを変更する項目が見あたらないのですが、文字を大きくすることは不可能なのでしょうか…
924 名前：デフォルトの名無しさん mailto:sage [2010/07/01(木) 13:04:34 ]: 日付の比較がしたいのですが、

2010年1月1日,aaa,bbb,ccc
2010年1月2日,ddd,eee,fff
　　　　　　　・
　　　　　　　・
　　　　　　　・
2010年7月1日,111,222,333

の様なリストがあって、ユーザーからは「2010年2月1日から2010年5月6日まで」みたいに指定されます。
今考えているのは、年月日の漢字を消して　201021　と言う数字にして比較しようと思っているのですが、
もっと良い方法があれば教えて欲しいです。

よろしくお願いします。
925 名前：デフォルトの名無しさん mailto:sage [2010/07/01(木) 13:07:09 ]: TDateTime型に変換する
926 名前：デフォルトの名無しさん mailto:sage [2010/07/01(木) 18:50:02 ]: >>924
> 今考えているのは、年月日の漢字を消して　201021　と言う数字にして比較しようと思っているのですが、
それだと2010年1月11日と2010年11月1日の区別ができないのでは。
927 名前：デフォルトの名無しさん mailto:sage [2010/07/01(木) 19:25:17 ]: StrToDateTimeでTDateTimeにして比較する
928 名前：デフォルトの名無しさん mailto:sage [2010/07/01(木) 19:26:19 ]: ごめん、こっちの方
VarToDateTime
929 名前：924 mailto:sage [2010/07/01(木) 23:06:28 ]: 皆さん、ありがとうございました。
VarToDateTimeを使って、上手くできました。

また、よろしくお願いします。
930 名前：765 mailto:sage [2010/07/02(金) 10:16:26 ]: >>921
Reqのデータですが、こちらでは
<html><head><meta http-equiv="refresh" content="0;url=/check.pl?n=home.pl"></head></html>
となっています。

>>921さんはどのようなデータを取得できましたか？
931 名前：デフォルトの名無しさん mailto:sage [2010/07/02(金) 13:17:35 ]: あれだけ言われてまだここでやるんだ
932 名前：デフォルトの名無しさん mailto:sage [2010/07/02(金) 14:46:08 ]: >>930
そのレスポンスなら、mixiの認証は通っている。
ここまでは正しい動作だ。

では次に >>815 の次の部分を下のコードのように変更してほしい。

これを

Buf:=IdHTTP1.Get('mixi.jp/home.pl');

こうする

Req.Clear();
IdHTTP1.Get('mixi.jp/home.pl', Req);

Reqにサーバーからのレスポンスが入っている。
これをSaveToFileでファイルに保存して内容を確認してほしい。
なお文字コードはeuc-jpなので、euc-jpに対応しているエディタで開く必要がある。
933 名前：765 mailto:sage [2010/07/02(金) 16:49:20 ]: >>932
Reqの中身はログイン前の画面でした。
「すでに登録済みの方は、
こちらからログインしてください」
と共にログインメールアドレスとパスワードの入力を施す画面です。

>>932さんや>>814さんはこれでログインできているようですので、もしや、Indyのアップデータを
行ったのが問題なのか？
週末にでも一度削除し、インスロールを一からやり直してみます。
934 名前：デフォルトの名無しさん mailto:sage [2010/07/02(金) 17:45:30 ]: >>933
これ使え。
yuukiremix.s33.xrea.com/chirashi/
935 名前：デフォルトの名無しさん mailto:sage [2010/07/02(金) 19:01:55 ]: ここまでやってパスかメアド間違えてるとかだったら殺意すら湧く
936 名前：デフォルトの名無しさん mailto:sage [2010/07/02(金) 20:26:11 ]: var
X: Cardinal;
としておいて、
X:=32768*32768;
X:=X*2;
とか、
X:=2147483648;
だと問題ないのですが、
X:=32768*65536;
では、コンパイル時に「[エラー] ～: 数値演算のオーバーフロー」となってしまいます
どうしてなのでしょうか
937 名前：デフォルトの名無しさん mailto:sage [2010/07/02(金) 20:41:12 ]: 0..4294967295
938 名前：デフォルトの名無しさん mailto:sage [2010/07/02(金) 21:00:16 ]: >>937
4294967295 ？
32768*65536は
2147483648
ですから、あふれてないように思うのですが
939 名前：デフォルトの名無しさん mailto:sage [2010/07/02(金) 21:26:45 ]: ヘルプの「真の定数」によると、定数式が整数の場合はその値によって型が決まり
32768～65535 ⇒ WORD
65536～2147483647 ⇒ 0..2147483647
となる。この場合 (WORD)*(0..2147483647) の演算だから
式全体の型は 0..2147483647 となり、結果がこの範囲に収まらないとエラー
という理屈になるのかな。何だか納得いかないけど、とりあえず
X := 32768*Cardinal(655356) とでもすればコンパイルは通るだろ。
940 名前：デフォルトの名無しさん mailto:sage [2010/07/02(金) 22:26:25 ]: >>939
「真の定数」読みました
なるほど、65536..2147483647は、ほぼInteger(Longint)ですね
X:=Cardinal(32768)*65536;
でもOkでしたので、その解釈は当たりだと思います
分かりましたー、と言いたいところですが、それなら
X:=32768*32768;
でもオーバーフローになるはずでは？？？
やっぱりなんか変ですよね
941 名前：デフォルトの名無しさん mailto:sage [2010/07/02(金) 23:09:09 ]: >>940
あとは、整数型同士の演算の場合
どちらかがInt64なら結果もInt64、そうでなければ結果はInteger
という規則があるから、これにひっかかるのかな。（ヘルプだと「算術演算子」のところ）

Cardinalが入った場合の規則が書かれていないからよくわからないけど、
Integerの範囲には収まらないはずだからInt64扱いになるのかもしれない。
942 名前：デフォルトの名無しさん mailto:sage [2010/07/03(土) 00:29:21 ]: ＞もしや、Indyのアップデータを行ったのが問題なのか？
＞週末にでも一度削除し、インスロールを一からやり直してみます。

ワロタｗｗｗ　アップデータをインスロールしてくださいね(笑)
943 名前：デフォルトの名無しさん mailto:sage [2010/07/03(土) 01:39:16 ]: 定数の型を指定したい場合はこうすればいい
const foo = Cardinal(1);
944 名前：デフォルトの名無しさん mailto:sage [2010/07/03(土) 08:46:20 ]: 計算時に
i := Cardinal(1) * 10;
でいいやん。
945 名前：デフォルトの名無しさん mailto:sage [2010/07/03(土) 12:29:36 ]: 仕事に忙殺されてるうちにすっかり取り残されてしまい、いまだに D6 Pro ですが、
職場では Win7 を使っています。
少々余裕も出てきた＆ネイティブコードも必要になりそうなので、職場のマシンに
インスコしてみました。今のところ動いています。

せっかくなので Win7 のタスクバーの新機能を使ってみたいのですが、D6 Pro で
ITaskbarList3 を使うにはどうしたらいいんでしょうか。タイプライブラリの取り込みで
ExplorerFrame.dll を指定してもエラーになってしまいます。さすがに古すぎるんでしょうか。
946 名前：デフォルトの名無しさん mailto:sage [2010/07/03(土) 12:44:42 ]: >>944
定数の話してるのになんでマジックナンバーにするの？馬鹿なの？
947 名前：946 mailto:sage [2010/07/03(土) 12:45:56 ]: 僕が馬鹿でした
948 名前：944 mailto:sage [2010/07/03(土) 12:47:03 ]: 分かればいいよｗ
949 名前：デフォルトの名無しさん mailto:sage [2010/07/03(土) 12:48:35 ]: const foo:Cardinal=1;
でいいやん。
950 名前：デフォルトの名無しさん mailto:sage [2010/07/03(土) 13:02:41 ]: >>949しか知らんかったわ。
>>943今度使ってみよう。
些細なことで偶に勉強になるな。役立つかは別にして。
951 名前：デフォルトの名無しさん mailto:sage [2010/07/03(土) 15:25:44 ]: 厳密に言えば>>949は一度だけ書き替え可能な変数
>>944が本当の定数
>>944はコンパイル時に実際に数値と置き換わるけど、>>949は変数と同じく参照として扱われるから、
その展開がない分>>944の方が高速になる
知らないことは誰だってあるけど、いいやんとか言って違いも調べず思考停止するやつは向上心もう少し持とうぜ
952 名前：デフォルトの名無しさん mailto:sage [2010/07/04(日) 03:30:07 ]: もっと！もっと熱くなれよ！！
953 名前：765 mailto:sage [2010/07/05(月) 14:22:54 ]: IndyのバージョンをDelphiインストール時のものに戻してテストしてみたところ、こちらの
バージョンではログイン後の画面が表示されました。
よって、バージョンアップをしてしまうと、なんらかの原因で正常なログインができなくなる
ようです。
Proxomitronを使って、両者のPOSTおよびGETの内容を確認してみましたが、全く同じデー
タでした。

旧バージョンで新バージョンのunitを開くとRequest.Ranges.Unitsが無いというエラーがでた
ので、そのあたりのプロパティかと思い、わからないならがも色々やってみたのですが改善
することができませんでした。
ソースを追って、原因追及といきたいところですが、自分にはまだまだ無理ですので、とり
あえず旧バージョンに戻す事で対応したいと思っています。

新バージョンで実装されているRequest.CharSetを使いたくてバージョンアップしたのですが、
残念です・・・。

色々教えていただき、ありがとうございました。
また自分の書き込みでご気分を害された方、申し訳ございませんでした。
954 名前：デフォルトの名無しさん mailto:sage [2010/07/05(月) 17:05:21 ]: そういうときはIndyのバージョンも書けよ
955 名前：デフォルトの名無しさん mailto:sage [2010/07/05(月) 17:31:55 ]: Double, Integer, Byte, Word, ShortIntなどの2値を比較し、その結果を返すような関数を作りたいのですが、

function TCompareClass.chkValProc<TypeID>( const srcVal, dstVal : TypeID ): Boolean;
begin
if ( srcVal < dstVal) then begin
Result := False;
end else begin
Result := True;
end;
end;

イメージ的にこういう感じのメソッドを作る方法ってないもんでしょうか。
↑だと、型が限定されないからか、コンパイルが通りません。

function TCompareClass.chkValProc<TypeID>( const srcVal, dstVal : Double ): Boolean;
function TCompareClass.chkValProc<TypeID>( const srcVal, dstVal : ): Boolean;
function TCompareClass.chkValProc<TypeID>( const srcVal, dstVal : TypeID ): Boolean;
956 名前：デフォルトの名無しさん mailto:sage [2010/07/05(月) 17:33:11 ]: 失礼しました。後半あやまって送信してしまいました

function TCompareClass.chkValProc( const srcVal, dstVal : Double): Boolean;
function TCompareClass.chkValProc( const srcVal, dstVal : Integer ): Boolean;
function TCompareClass.chkValProc( const srcVal, dstVal : Byte ): Boolean;
function TCompareClass.chkValProc( const srcVal, dstVal : Word ): Boolean;
function TCompareClass.chkValProc( const srcVal, dstVal : ShortInt ): Boolean;

こういう風に全部用意してやれば一応目的は達成できるのですが、1つにまとめたく思います。
957 名前：デフォルトの名無しさん mailto:sage [2010/07/05(月) 17:56:55 ]: >>954
自分の無能さをライブラリのせいにして逃げる口実なんだからわざと書いてないんだよ
言わせんな恥ずかしい
958 名前：デフォルトの名無しさん mailto:sage [2010/07/05(月) 18:02:31 ]: >>955-956
TComparer<T>.Defaultの実装が参考になるというかそのまま使えると思う
959 名前：デフォルトの名無しさん mailto:sage [2010/07/05(月) 18:14:50 ]: >>954,>>957
バージョンについては>>818に書いたのですが、最初の書き込み時に書くべきでしたね。
申し訳ございません。
960 名前：デフォルトの名無しさん mailto:sage [2010/07/05(月) 19:09:23 ]: 「最新」なんてバージョンはない
961 名前：デフォルトの名無しさん mailto:sage [2010/07/05(月) 20:55:58 ]: 最初から最後までここまでぐだぐだになれるのもある意味才能だろうな・・・
962 名前：デフォルトの名無しさん mailto:sage [2010/07/05(月) 23:49:35 ]: ume
963 名前：765 mailto:sage [2010/07/06(火) 11:10:56 ]: >>960
同じようにアップデートしてしまって以前と同じような動きができなくなった方の為に、参考ま
でに書いておきますね。
バージョンは10.5.7で(2009に同梱のものは10.2.5)昨日の時点ではr4270のものを使用しまし
た(changelog.txtでの確認)。
最初に試したものはr4258です。

>>961
PCやプログラムについての知識がなさすぎて、皆様を不快な気持ちをさせてしまいました。
申し訳ございません。
964 名前：デフォルトの名無しさん mailto:sage [2010/07/06(火) 13:14:00 ]: いいよ＾＾
965 名前：デフォルトの名無しさん mailto:sage [2010/07/09(金) 18:38:37 ]: 匿名関数使ったサンプル集みたいなサイトや本って無い？
966 名前：デフォルトの名無しさん mailto:sage [2010/07/09(金) 21:25:28 ]: WebBrowserをフォームに貼ってサイトを表示させてるとkeypreviewをtrueにしてもonkeydownでキーを拾ってくれないんですがどうすればよいのでしょうか？
967 名前：デフォルトの名無しさん mailto:sage [2010/07/12(月) 17:50:49 ]: ローソク足のチャートが書ける日本語のコンポーネントってありませんか？
有料でも良いです。
968 名前：デフォルトの名無しさん mailto:sage [2010/07/12(月) 17:54:02 ]: 条件をひとつ削ってもいいなら腐るほどあると思うけど
969 名前：デフォルトの名無しさん [2010/07/12(月) 17:54:17 ]: page13.auctions.yahoo.co.jp/jp/auction/r66957338
970 名前：デフォルトの名無しさん mailto:sage [2010/07/12(月) 17:58:25 ]: >>967
ありますよ
971 名前：デフォルトの名無しさん mailto:sage [2010/07/12(月) 19:57:43 ]: >965
omnithreadlibrary - Project Hosting on Google Code
ttp://code.google.com/p/omnithreadlibrary/
のデモの30番とか。

[ 新着レスの取得/表示 (agate) ] / [ 携帯版 ]

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