10/04/13 11:51:03
>>569△
574:554
10/04/13 22:35:55
ライブラリパスって普通にテキストでコピーしとけば良かったのね。
575:デフォルトの名無しさん
10/04/14 12:56:06
Javascriptはやたら柔軟です。
ブックマークレットの例
Javascript:for(var I=0;I<3;++I){alert(['One!','Two!!','Three!!!'][I]);};
Delphi言語では上記の ['One!','Two!!','Three!!!'][I] みたいなお手軽な書き方はないでしょうか？
オープン配列コンストラクタというのが近いかなと思ったんですが、違ったようです。
576:デフォルトの名無しさん
10/04/14 13:10:11
function getarr(arr: array of string): TStringDynArray;
var
i: Integer;
begin
setlength(result, length(arr));
for i := 0 to high(arr) do Result[i] := arr[i];
end;
getarr(['a', 'b', 'c'])[0]というのはできなくもないけど
今の処理系では手軽表記はないと思う。
いつの日か'one'[2]と同様 ['One!','Two!!','Three!!!'][I] が通るようになるかもしれないけどな。
577:デフォルトの名無しさん
10/04/14 13:29:46
Cだと通るよね
578:デフォルトの名無しさん
10/04/14 13:44:23
>>575
URLﾘﾝｸ(d.hatena.ne.jp)
URLﾘﾝｸ(d.hatena.ne.jp)
この辺を応用すると一応書ける
uses .., Types;
var
s: string;
i: Integer;
begin
for s in TStringDynArray.Create('One!','Two!!','Three!!!') do
ShowMessage(s);
for i := 0 to 2 do
ShowMessage(TStringDynArray.Create('One!','Two!!','Three!!!')[i]);
end;
579:デフォルトの名無しさん
10/04/16 12:32:54
教えてください。D6パーソナル使用です。
EXE自身のアイコンをTImageに表示しています。
アイコンの透過色が透明になってくれるのは良いのですが、白色まで透明になってしまいます。
何がいけないのでしょうか。それとも全部間違っているのでしょうか。
プロジェクトのオプションに設定しているicoファイルはこんな感じです。
URLﾘﾝｸ(www1.axfc.net)
var
Icon:TIcon;
begin
Icon:=TIcon.Create;
Icon.Handle:=Application.Icon.Handle;
if Icon.Handle<>0 then
Image1.Canvas.Draw(0,0,Icon);
Icon.Free;
end;
580:デフォルトの名無しさん
10/04/16 13:46:07
transparent
581:デフォルトの名無しさん
10/04/16 15:39:26
Transparentが関わってそうなことは想像できるのですが、2色が透過してしまうという上記例の場合
どのようにすれば良いのか分かりませんでした。もしよろしければご教示下さい。
結局ですが自己解決しました。以下のように修正。
Image1.Canvas.Draw(0,0,Icon); → Image1.Picture.Icon:=Icon;
やり方が根本的に間違っていたということでした。
しかし、こんな方法↓でもOkでした。
Image1.Picture.Icon.Handle:=Icon.Handle;
Image1.Picture.Icon.Assign(Icon);
一体どれが正しいのか？？
さらに、Handleってなんなんだ？と思ったので調べると、32bit整数だと。ならば、
var
Icon:Integer;
begin
Icon:=Application.Icon.Handle;
if Icon<>0 then
Image1.Picture.Icon.Handle:=Icon;
end;
と、やってみたら大丈夫でした。
こんなコードでいいんでしょうか？？？
582:デフォルトの名無しさん
10/04/18 00:36:03
ListBox.Items.Selectedが画面外の時、
その項目が表示されるようにスクロールするやり方教えてください
583:デフォルトの名無しさん
10/04/18 04:35:59
はい
584:デフォルトの名無しさん
10/04/18 06:47:12
>>582 TopIndex
585:デフォルトの名無しさん
10/04/18 06:51:43
>>581
Image1.Picture.Assign(Application.Icon);
これだけでいいと思う。（D6パーは持ってない
586:デフォルトの名無しさん
10/04/18 16:59:50
>>582
MakeVisible
587:デフォルトの名無しさん
10/04/18 23:10:54
キャプチャーを作ってみたんだけど、ウィンドハンドルからデバイスコンテキストを
取得して指定の画面のキャプチャーを取ってるつもりなんだけど、わざと取りたい画面の上に
別のウィンド置いとくとその別のウィンドもキャプチャーされるんだけどそんなもの？
588:デフォルトの名無しさん
10/04/19 00:14:15
XP以降なら個別にとれる
詳細はググれ
589:587
10/04/19 02:37:57
ググったらで来た。
ありがとう
590:デフォルトの名無しさん
10/04/19 07:57:21
>>589
興味有るから、やり方教えて
591:デフォルトの名無しさん
10/04/19 09:51:25
printwindowを使うんだって。
使い方はググった方が早い。
簡単だよ。
592:デフォルトの名無しさん
10/04/19 14:00:11
>>585
D6パーソナルでもOkでした。正解はスッキリ簡単でしたね。
リソースからアイコン削除してApplication.Iconが無い状態（有り得ないけど）にしても
表示されないだけでエラー無し。
教えてもらってから理解したけど、IDEでImage1.Pictureに画像をセットするのとほぼ同じ動作ということですね。
ありがとうございました。
593:デフォルトの名無しさん
10/04/19 17:55:06
>>591
ありがとう！
がんばってみる
594:デフォルトの名無しさん
10/04/20 23:58:23
IDEのエディタマクロ書きたいんだけどそういう情報ってどこにあるの？
595:デフォルトの名無しさん
10/04/26 17:46:07
RichEditにDephiのソースコードを着色した状態で表示する
サンプルなりコンポなりがあったら教えてください。
596:デフォルトの名無しさん
10/04/26 19:50:22
TParser使え
597:デフォルトの名無しさん
10/04/26 22:45:23
RichEditの使い方が分かりません。
単純に任意の色で文字を書いて、改行を付加する／しない が選べるようにしたいだけ
なのですが、どのようにしたら良いのか分かりません。
こんなイメージで使えるprocedureを作りたいです。
const
CRLF=#$0D#$0A;
…
RichWrite('エン', clBlue);
RichWrite('バカ', clRed);
RichWrite('デロ', clYellow);
RichWrite('☆', clGreen);
RichWrite('Delphi'+CRLF, clBlack);
RichWrite('Hello'+CRLF, clAqua);
RichEdit1に書かれる結果：
エンバカデロ☆Delphi // 青色赤色黄色緑黒色
Hello // 水色
これを実現するための材料だけでも良いので教えてください。よろしくお願いします。
一応ですが、私は>>595とは無関係です。
598:デフォルトの名無しさん
10/04/26 23:01:57
SelAttribute（ただし遅い）
599:デフォルトの名無しさん
10/04/26 23:34:48
>>598 ありがとうございます。
SelAttributesはヘルプによると、
＞テキストを新規に挿入するときには，SelAttributes のフォント属性が適用されます。
とのことなので良さそうなのですが、改行無しで文字列を追加したい場合はどのように
すれば良いのでしょうか？
600:デフォルトの名無しさん
10/04/26 23:36:49
seltext
601:デフォルトの名無しさん
10/04/27 00:06:58
>>600 うーん分からないです。
SelTextプロパティを使ったサンプルをいただけないでしょうか。
602:デフォルトの名無しさん
10/04/27 00:10:21
つ URLﾘﾝｸ(www.google.co.jp)
603:デフォルトの名無しさん
10/04/27 00:50:57
ああっ、分かりました！
SelStart := GetTextLen;
SelText := 'ABC';
ですね！
「Delphi SelText SelAttributes」でググると一番最初に出てくる
URLﾘﾝｸ(delphi.about.com)
の記事が分かりやすいです。
今までさんざん探してたんですが、こういう単純で基本的な内容のサンプルは初めて見ました。
ようするに、
with RichEdit1 do
begin
SelStart := GetTextLen;
SelAttributes.Color := clBlue;
SelText := 'エンバカデロ';
SelAttributes.Color := clBlack;
SelText := 'Delphi'+CRLF;
end;
みたいな感じにすればOkですね。これをprocedureにしてみます。
ありがとうございました。
604:デフォルトの名無しさん
10/04/27 08:53:22
グループボックスのCaptionがCheckBoxになっているコンポーネントってないでしょうか？
605:デフォルトの名無しさん
10/04/27 09:06:16
グループボックスのキャプションをなしにして、キャプションの位置にチェックボックスを置けば？
606:デフォルトの名無しさん
10/04/27 16:29:52
>>604
ググって一発で出てきたんだけど
URLﾘﾝｸ(www.delphidabbler.com)
607:デフォルトの名無しさん
10/04/27 20:18:13
？
608:604
10/04/27 23:56:33
>>605,606
トンです。
でけました。
609:デフォルトの名無しさん
10/05/02 08:17:35
del標準の関数でbitmapをjpegに変換すると、低圧縮でも汚いのできれいに変換できるコンポとかってないですか？
610:デフォルトの名無しさん
10/05/02 08:23:04
ないです
611:デフォルトの名無しさん
10/05/02 13:29:03
>>609
JPEGが何なのか調べてくるといいですよ＾＾
612:デフォルトの名無しさん
10/05/03 15:08:57
正しいことが何なのか、この胸にわかるまで～
613:609
10/05/03 23:15:23
Jpegへ綺麗に変換できるコンポがあって説明を読むと、
delphiのはサンプリングが4:1:1だから汚いと書いてありました。
del7proなんですが、このサンプリングレートを変えることは出来ませんか？
614:デフォルトの名無しさん
10/05/04 00:40:48
c言語の
float range_0[] = { 0, 256 };
float* ranges[] = { range_0 };
をDelphiで書き換えたいのですが
var
range_0: array[0..1] of Float = (0, 255);
ranges: array[0..0] of PFloat;
begin
ranges[0] := @range_0;
・・・・・・
end;
でいいのでしょうか？
Floatは
type
Float = Single;
PFloat = ^Float;
で作ってあります。
どなたかわかる方おられましたらよろしくお願いします。
615:デフォルトの名無しさん
10/05/04 03:06:22
なんで数字まで変わっちゃうんでしょうか
616:デフォルトの名無しさん
10/05/04 03:41:13
>>613
jpeglib.hのjpeg_component_infoをjpeg.pasに定義してcomp_infoを^jpeg_component_infoにして
TJPEGImage.Compressで
for i:= 0 to 2 do begin
jc.c.comp_info[i].h_samp_factor:=1;
jc.c.comp_info[i].v_samp_factor:=1;
end;
とかすればイケるのかな
つーか、そのコンポとやらを使えば良いんじゃないかな
酔ってるし寝るのであとは知らん
617:614
10/05/04 08:24:11
>>615
レスありがとうございます。
数字は素で間違えました；
618:デフォルトの名無しさん
10/05/04 08:37:43
Cうろ覚えだけど愚直に移すならこんな感じか。
type
Float = Single;
PFLoat = ^Single;
TFloatArray = array [0..High(Integer) div SizeOf(FLoat)-1] of Float;
PFloatArray = ^TFloatArray;
var
range_0: array [0..1] of Float = (0,255);
ranges: array[0..0] of PFloatArray = (@range_0);
ranges[0][0] ==> 0
ranges[0][1] ==> 255
619:614
10/05/04 15:27:34
>>618
こういった書き方は、初めて知りました。
とても勉強になりました。ありがとうございます。
620:デフォルトの名無しさん
10/05/05 09:59:28
>>618
そこまでこだわるならHigh(Integer)じゃなくて(High(Integer)+1)じゃね？
もしくはせっかく定数が用意されてるんだからMaxInt+1でもいいかと
621:デフォルトの名無しさん
10/05/05 14:11:06
ranges: array [0..255] of Single; とどう違うかさっぱりワカンネ
622:デフォルトの名無しさん
10/05/05 23:27:13
何で1足すんだよ
623:デフォルトの名無しさん
10/05/06 01:25:46
>>621
どう違うかどころか全然違うよｗ
実際に計算してみたら？
>>622
High(Integer) div SizeOf(Float)じゃなくてHigh(Integer) / SizeOf(Float)を計算すれば分かる
624:デフォルトの名無しさん
10/05/06 01:55:41
相変わらずどうでもいい頑張り方だな
625:デフォルトの名無しさん
10/05/06 04:02:03
そのどうでもいいレスよりマシじゃない？
626:デフォルトの名無しさん
10/05/07 10:01:09
WindowsXP SP3
DELPHI7
SQLSERVER2000
BDE
画像ファイル（JPG）を読み込み
SQLServerの画像項目（IMAGE型）に格納したいんですが
AFileName:='IMAGE.jpg';
jp :=TJPEGImage.Create;
jp.LoadFromFile(AFileName);
BDEの画像項目.Assign(jp);
上記を実行すると
「～型が一致しません。VarBytesに対してBlobが渡されました」とエラーが出てしまいます。
blobからVarBytesに変換する処理が必要なのかと思い調べたのですがよくわかりませんでした。
ADOを使用した場合はネットから引用したソースでうまく動いたのですが、
該当システムはBDEで統一させたいので質問させていただきました。
宜しくお願い致します。
627:デフォルトの名無しさん
10/05/07 11:37:45
BDE からの接続形態は？
ODBC ? SQL-Link ?
628:デフォルトの名無しさん
10/05/07 12:08:57
>>627 ODBCです
629:デフォルトの名無しさん
10/05/09 17:07:02
a-zから10桁の文字列生成をしてみようと思って
'', 'a'..'z'の配列から文字列を取り出してつなげていくプログラムを組んでみたのですが、
forを10重にしたコード書いたけど
ぐぐってみたらX種類の文字のN重ループは
for i := 0 to Power(X, N)-1 do begin
for j := 0 to N-1 do begin
で代用出来ると書かれていたのですが、
文字列の取り出し方がわかりません。
str := mojiretsu[Trunc(i / j) mod High(mojiretsu)] + str;
としてみたらなんとなくそれっぽい感じだったんだけど文字列がループしてしまいました。
mojiretsuにアクセスする式はどうかけばいいのでしょうか？
630:629
10/05/09 17:07:43
コードはこんな感じにしてみました
uses
SysUtils, Math, Windows;
const
StrLenMax = 27;
keta = 10;
var
i : LongWord;
j, k : Integer;
str : String;
mojiretsu : array[0..StrLenMax-1] of string;
begin
{ TODO -oUser -cConsole Main : ここにプログラムコードを書いてください }
mojiretsu[0] := '';
for k := Low(mojiretsu) + 1 to High(mojiretsu) do begin
mojiretsu[k] := Chr(97+k-1);
end;
for i := 0 to Trunc(Power(High(mojiretsu), keta))-1 do begin
str := '';
for j := 0 to keta-1 do begin
str := mojiretsu[Trunc(i / j) mod High(mojiretsu)] + str;
end;
Writeln(str);
Sleep(100);
end;
end.
631:デフォルトの名無しさん
10/05/10 01:55:29
なんで乱数を使わないのかと小一時間
632:629
10/05/10 04:10:41
>>631
期待している動作としては
a, b, c, d ... z, aa, ab, ac .. az, ba, bb
みたいな感じで指定した桁数の文字列を生成したいです。
633:デフォルトの名無しさん
10/05/10 05:36:27
テストとか学校の課題？
>ぐぐってみたらX種類の文字のN重ループは
>for i := 0 to Power(X, N)-1 do begin
> for j := 0 to N-1 do begin
>で代用出来ると書かれていたのですが
元 URL を出していただけるか、元 URL のところに相談を持ち込んだほうがよいかも。
このアルゴリズム断片は、整数を２６進数表記で処理するアイデアです。
i が対象となる全整数、j が 26進数変換の変換対象桁数。
i が 32 なら、
32 / 26 -> 1 余り 6 -> 'g'
1 / 26 -> 0 余り 1 -> 'b'
文字列として 'bg' を得る。
となります。
アルゴリズムとしては簡単なほうですが、
* 全組み合わせを整数から生成しているけど 26進数10桁だと 16進で 806406972400 で
32bit に収まらないから int64 にしないと。
* 0-9 が 10進で、a-z で 26進。'a' が 0 を意味するので、このアルゴリズムを単純実装
したときは aaaaaaaaaa から zzzzzzzzzz が生成されます。頭の a を消去（ゼロサプレス）
しても a,b ... y ときて z の次は aa ではなく ba です。
* おそらく、遅い。
634:629
10/05/10 05:58:41
>>633
いえ、ブルートフォースもどきなプログラムを作ろうと思ってまずは文字列生成部分を作ってみようとしました。
参考URLはURLﾘﾝｸ(dobon.net)です。
同じように26進数のことをいわれていたのですけど、
結局わからなかったです。
まさか32bitに収まらないとは・・・
なんとなく10桁って書いたので6桁でも8桁でもいいのですが・・・
635:デフォルトの名無しさん
10/05/10 09:00:01
var table: array [#0..#255] of char;
procedure init;
var i: char;
begin
for i := #0 to #255 do
case i of
'a'..'y': table[i] := succ(i);
'z': table[i] := 'a';
else table[i] := #0;
end;
end;
function getnext(s: string): string;
var
i: integer;
c: char;
begin
result := s;
for i := length(result) downto 1 do
begin
c := table[result[i]];
result[i] := c;
if c <> 'a' then break;
end;
end;
636:デフォルトの名無しさん
10/05/10 09:00:54
init;
getnext('aaa') ==> 'aab'
getnext('zzz') ==> 'aaa'
var s: string;
begin
init;
s := 'aaa';
while true do
begin
writeln(s);
if s = 'zzz' then break;
end;
end;
最速狙いたいなら普通にCでDLL書いたほうがいい。
637:デフォルトの名無しさん
10/05/10 15:34:26
別にCなんか使わなくてもインラインアセンブラで十分じゃん
638:629
10/05/10 16:20:22
URLﾘﾝｸ(www.ss.u-tokai.ac.jp)
ここを参考にしたらなんとかいけそうでした。
ご協力ありがとうございました。
639:デフォルトの名無しさん
10/05/11 14:28:43
Delphi7だけどバグの修正これでいいかな
Quality Centralの33496
URLﾘﾝｸ(qc.embarcadero.com)
procedure TMenuItem.DoDrawText(ACanvas: TCanvas; const ACaption: string;
.
with ACanvas do
begin
if Text = cLineCaption then//追加2010.05.11 QC33496
exit;//追加2010.05.11 QC33496
if IsLine then
begin
if Flags and DT_CALCRECT = 0 then
begin
R := Rect;
Inc(R.Top, 4);
DrawEdge(Handle, R, EDGE_ETCHED, BF_TOP);
end;
end
２箇所追加してみたけど（新しいの2010も治っていないけど）
640:デフォルトの名無しさん
10/05/12 01:08:13
//if Text = cLineCaption then
if IsLine then
でしょ
641:デフォルトの名無しさん
10/05/12 10:44:10
フォームのAlphaBlendを使った時に特定のコンポだけは透明化されないようには出来ないでしょうか？
642:デフォルトの名無しさん
10/05/12 12:15:46
AlphaBlendなフォームの上に
Transparentなフォームをぴったり重ねればできそうだけど
アホっぽいなｗ
643:デフォルトの名無しさん
10/05/12 13:04:26
バイナリデータを文字変数を使って処理しています
以下のようにすると、バイナリ状態のUTF-16LE文字列をWideString文字列に出来ることが分かりました
var
Bytes: AnsiString;
WStr: WideString;
begin
// BytesにUTF-16LEのバイナリを入れる処理が入る…
// 例：バイナリ 71 67 AC 4E 30 00 33 00
WStr:=WideString(PWideChar(Bytes));
// 結果：WStrに「東京03」が入る
質問：
1. コンパイル時に警告が出るんですが、このやり方で問題ないですか？
[警告] Unit1.pas(174): String から PWideChar への型キャストは間違っている可能性があります
2. この逆（WideString → AnsiStringにバイナリ状態のUTF-16LE）の変換は、１文字ずつループを回せば
出来ましたが、もっと簡単に出来ますか？
よろしくお願いします
644:デフォルトの名無しさん
10/05/12 13:11:55
なんでAnsiStringなんかに入れるの・・・
Byte配列でええやん
645:デフォルトの名無しさん
10/05/12 13:34:12
警告ごまかしたいなら
w := WideString(PWideChar(Pointer(s)));
w := WideString(PWideChar(@s[1]));
で行けるんじゃね。
Stringをバイナリコンテナとして使う場合
別に文字コードなんて関知しないから問題ないはず。
646:デフォルトの名無しさん
10/05/12 18:04:55
>>644
何をどうすれば出来て、何が最善なのか分からないんです
実は当初、Byte型の動的配列で検索とかいろいろやってました
TByteDynArrayとかオープン配列パラメータとか使ってみたり
勉強にはなったんですが、配列要素を切ったりつなげたりのやり方が
よく分からなかったのと、いちいちSetLengthするくらいならStringの方が
簡単かつオールマイティで良いではないかと考えたんです
ちなみに配列版の試作途中ソースは誤って削除してしまいました（アホ）
>>645 ありがとうございます
WStr:=WideString(PWideChar(Pointer(Bytes)))
とすることで警告が出なくなりました
さらに、
WStr:=WideString(Pointer(Bytes)) でもOkでした
ということはと考えて、
Bytes:=AnsiString(Pointer(WStr)) とすると逆変換も出来ました
空文字やヌル付きでもそのまんま、ありのまま相互変換するようなので分かりやすいです
ポインタとかの理解度5％程度なのでよく分かってませんが、このPointer(文字型変数)
というのは単なるポインタじゃなくてポインタ型、文字列の長さ情報をも含んでいるんですね
ヘルプ見ても断片的に「型なしポインタ型」としか書いてないし…
配列でなく、オールマイティな？Stringをバイナリコンテナ（カッコ良い言葉なのでこれも拝借）
として使うのは、方向性として間違ってはいませんよね？
それともやはり配列使うべきでしょうか？ 配列の利点があれば教えてください
647:デフォルトの名無しさん
10/05/12 19:05:45
>>646
あんたなかなかセンスいいｗ
648:デフォルトの名無しさん
10/05/12 20:50:44
>>642
それやったことあるｗ
よっぽど重いアプリでも作らない限り無難に理想の動作はしてくれるよ。
リサイズさせない移動させないサブフォームでなら普通に使える。
649:デフォルトの名無しさん
10/05/12 21:59:47
Del7を使っています。
WinSight32である特定のウィンドハンドルを見たら、そのウィンドウを隠した（スライドさせる）時に
hidden となるのですが、この hidden になっているかどうかはどうすれば分かるでしょうか？
650:デフォルトの名無しさん
10/05/12 22:57:03
IsWindowVisibleとか
651:デフォルトの名無しさん
10/05/12 23:58:52
>>646
使ってるDelphiのバージョンが分からないけど、そのバージョンを一生使い続けるならそれも可
でも乗り換えることがあるなら、string型はすでに仕様が2回ほど変わった過去があるので
そのキャストが今後も使えるとは限らないし、配列を使った方が確実にいいと思う
だからそのコードは偶然動いた程度に考えた方がいいかと
あと利点云々は変換した後何するかによるし、もう少し情報出してくれないと・・・
652:649
10/05/13 00:17:33
ありがとうございました。
状態の取得が出来ました。
新たな質問なのですが、
他のソフトのテキスト描画色を取得したくて、ググったらGetTextColorというのにたどり着きました。
var
CL: TColor;
begin
CL:=GetTextColor(DC);
と、やってもCLには「0」が入ります。
DCの取得は出来ています。
TColorをTColorRefとしてもダメでした。
どなたかよろしくお願いします。
653:デフォルトの名無しさん
10/05/13 01:01:48
0は黒だが
654:デフォルトの名無しさん
10/05/13 01:10:32
WStr:=WideString(PWideChar(Pointer(Bytes)))
による PWideChar->WideString の変換は、
#$0000 が出現するまでのデータを (_WStrFromPWChar によって)
WideString データに変換するけど、
WStr:=WideString(Pointer(Bytes))
と
Bytes:=AnsiString(Pointer(WStr))
は、ポインタ型のつじつま合わせを行った後に代入(_WStrAsg/_LStrAsg)
するので、後々トラブルが発生するかも。
前者は、バージョンによって、危険な場合があり、、
特に後者は、確実に refCnt いじってメモリーリークしているので危険。
655:デフォルトの名無しさん
10/05/13 06:47:59
>>653
レスありがとうございます。
その描画色はなん色か時間によって変わっていって黒は使われていないんです。
描画されている文字列を取得すると正しく取得できるし、WinSightで見てもハンドルは
間違ってはいないので、デバイスコンテキストも間違ってはいないと思うのですが。
656:デフォルトの名無しさん
10/05/13 07:35:18
>>654
>特に後者は、確実に refCnt いじってメモリーリークしているので危険。
w: WideString;
s: String;
w := '幹事';
s := AnsiString(Pointer(w));
がリークするの？
FastMM4は沈黙してるけど。
657:654
10/05/13 12:26:30
Windows では、WideString は、OLE 文字列や BSTR 互換なので、
AnsiSting とは、メモリ管理方法が異なる。
WideString は、SysAllocStringLen などで
領域確保しているので FastMM4 の管理外。
WideString のオフセット -4 には、長さに相当するバイト数が
格納されていて、それ以外はしらん。
しかし、AnsiString を代入するときは参照カウントが格納されている
オフセット -8 の refCnt フィールドを調べたり、いじったりする。
658:デフォルトの名無しさん
10/05/13 12:39:38
WideString (BSTR) は参照カウンタ管理されていないので、ストリングのコピーが複製になるため「遅い」
という問題を回避するために導入されたのが参照カウンタ付き UnicodeString なわけなので
WideString 側には refCnt なんてフィールドはありませんよ。
UnicodeString と混ざってしまっているかな？
659:デフォルトの名無しさん
10/05/13 13:47:46
なんか疑問だな バイナリを入れるなら byte の配列を用意したほうが自然
Bytes: array of byte; で、WStr := WideString(Pointer(Bytes)); でどうなのか
660:デフォルトの名無しさん
10/05/13 14:14:50
WStr := WideString(Pointer(Bytes))
だと、Bytes配列はヌル終端してる必要ある？
661:デフォルトの名無しさん
10/05/13 14:22:08
>>659
バイト配列の話なんて誰もしてないから
662:646
10/05/13 16:31:53
>>647
どういう点がセンスいいのか言ってもらわないとｗ 怖いもの知らずっていう意味ですか
>>651 ご意見感謝します
バージョンは6のPersonalです
作成中のアプリのコードを現代のバージョンに持って行くことはまず考えられません
しかし気持ちとしては、現代のバージョンにも転用可能なコードを書きたいと思いますし、
理解できていない・正体のハッキリしないモノ＝ポインタ絡みの操作や原理不明のキャスト
も出来れば使用したくない、というのが本音です キャスト成功で手放しで喜んでいるわけではないです
なお、最近のバージョンではTEncodingとかRawByteStringとか、良さそうなものがあるようですね
＞乗り換えることがあるなら、string型はすでに仕様が2回ほど変わった過去があるので
すごく承知してます
Stringでなく、AnsiStringと記述してるのは上記のような気持ちからです（あまり意味有りませんが）
自分が調べた限りではこんな感じですが、だいたい合ってますよね
■AnsiStringの系譜 D1：ShortString → D2：AnsiString → D2009：AnsiString（コードページ指定可能）
■Stringのデフォルト D1：ShortString → D2：AnsiString → D2009：UnicodeString
※ UnicodeString＝AnsiString(1200)
※ D2：AnsiString、D2009：AnsiString／コードページ指定なし のコードページはシステムのロケールに依存
※ D2009：AnsiString（コードページ指定）では変数ごとに複数のコードページを保持できる
※ RawByteString＝AnsiString(65535) コードページの変換をしない
やりたいことは、バイナリファイルを読み込み、特定条件の文字列や数値を検索して抜き出し、
変更を加え再構成して新たなファイルを作成、という操作です ゲーム改造みたいな感じでしょうか
いったんバラバラにしたデータを再構成する、つまり切ったりつなげたりをスマートに行う方法が
分からず、こんなことで悩むなら足し算引き算自由の文字列を使うべきかと結論付けました
配列だと、array[0..n] of Charまたはパック文字列型、StrPCopy、StrPas、Move
このあたりを使用するんでしょうか？
663:646
10/05/13 16:34:38
>>654 ありがとうございます
WStr:=WideString(PWideChar(Pointer(Bytes))) ではヌル除去、
WStr:=WideString(Pointer(Bytes)) だとヌル保存を確認しました
少しだけナルホド、です
でも高度に技術的なお話はちょっと分からないです…
確かにSystem.pasにはそういうのがありますね、としか…
procedure _WStrFromPWChar(var Dest: WideString; Source: PWideChar);
procedure _WStrAsg(var Dest: WideString; const Source: WideString);
procedure _LStrAsg(var dest; const source);
procedure _WStrFromLStr(var Dest: WideString; const Source: AnsiString);
procedure _LStrFromWStr(var Dest: AnsiString; const Source: WideString);
みなさんのご意見をまとめると、「これらのキャストはすべて危険、未来も無いからやめとけ」
ってことですね？
しかし、配列優位とも思えませんので、文字列型を使いつつキャストもしない、という方針で
やってみようかと思います
>>659
えーと、私もそう考えて、というかByte型という名前に惹かれて、当初はTByteDynArrayでした
あと、1byte＝Byte型配列の要素1個 というのも気持ち良い感じがしたんですが…
やはりバラバラにして再構成というのが配列の用法と合わないと思いました
>>661
いえ、話の発端の私がしておりますので…
664:654
10/05/13 16:44:54
>660
PWideChar じゃないから危険だって。
PWideChar -> WideString はヌル終端までを変換するけど、
Pointer -> WideString はただの型キャスト。
PChar/PAnsiChar/PWideChar -> AnsiString/WideString/UnicodeString
=> ヌル終端までを変換
AnsiString/WideString/UnicodeString -> PChar/PAnsiChar/PWideChar
=> ヌル終端を保証
PAnsiChar/PWideChar/AnsiString/WideString -> Pointer
=> 型キャスト
Pointer -> PAnsiChar/PWideChar/AnsiString/WideString
=> 型キャスト
665:654
10/05/13 16:52:06
ついで。
Dynamic Array -> Pointer
=> 型キャスト
Pointer -> Dynamic Array
=> 型キャスト
666:デフォルトの名無しさん
10/05/13 21:33:15
>「これらのキャストはすべて危険、未来も無いからやめとけ」
んなこたない。
生ポインタをC文字列とみなしてDelphiの文字列に変換する機能は
Win32APIを叩く際の根幹的な機能だからそんな簡単に仕様変更なんてあるわけがない。
いくらなんでも脅かされすぎ。
667:646
10/05/14 02:20:53
あれ、今までのレスをよく見直すと、
WStr:=WideString(Pointer(Bytes))
は危険な可能性有りだけど、
WStr:=WideString(PWideChar(Pointer(Bytes)))
は問題無いと言う見解ですかね？
>>666
仕様変更は無いだろうというご意見も覚えておきます
どちらにせよ、もうキャストはしないと決めました
「キャスト」なる仕組みは完全に明らかである、という状況ではない以上、
使うべきではないと思いました
668:646
10/05/14 02:23:12
こんな感じの関数で十分でした
これなら不明な点はありませんから問題無いですよね
function BytesToUTF16LE(Bytes: AnsiString):WideString;
var
I: Integer;
WOrd: Integer;
begin
Result:='';
for I:=1 to Length(Bytes) div 2 do begin
WOrd:=(Ord(Bytes[I*2]) shl 8)+Ord(Bytes[I*2-1]);
if WOrd=0 then break; // ヌルを含めるならこの行を外す ※ヌルは複数組の可能性もあり
Result:=Result+WideChar(WOrd);
end;
end;
function UTF16LEToBytes(WStr: WideString):String;
var
I: Integer;
begin
Result:='';
for I:=1 to Length(WStr) do begin
Result:=Result+Char(Lo(Ord(WStr[I])))+ // and $00FF
Char(Hi(Ord(WStr[I]))); // Shr 8
end;
end;
キャスト方法のアドバイスをくれた方、ご意見下さった方、ありがとうございました
大変勉強になりました
669:デフォルトの名無しさん
10/05/14 03:12:16
>>666
今までに変更があったという事実は無視なの？
670:デフォルトの名無しさん
10/05/14 04:43:03
コーディングスタイルは人それぞれだね
１行だけのforならbeginもendも不要なのに
671:デフォルトの名無しさん
10/05/14 04:46:14
エンバグの元なのに？
672:デフォルトの名無しさん
10/05/14 06:40:31
既に決着済みではあるけど一言だけ。
>>667
>「キャスト」なる仕組みは完全に明らかである、という状況ではない以上、
明らかに間違った使い方は示されたけど
Delphiの仕様の抜け道を使ったような未定義のやり方はないよ。
少なくともそんな指摘はまったく出ていないように思うが。
曖昧論やらべき論は出てきたが。
673:652
10/05/14 08:14:15
GetTextColorについて質問をしたものです。
あれから色々試していたのですが、例えば赤で描かれたテキストがあって、
その色を取得しようと、GetDCPenColor、GetDCBrushColor、GetBKColorとか
やってみたのですが、赤の値が取れませんでした。
何か他にやり方ってあるのでしょうか。
それとも、アキラメロンなのでしょうか。
674:デフォルトの名無しさん
10/05/14 10:29:38
>>673
座標を取ってGetPixelしてみるとかはどう？
675:デフォルトの名無しさん
10/05/14 21:57:57
描かれてしまったものは単なる絵だから。
描いたときのペンやブラシやテキストカラーの設定が現在も残ってると期待するのは無理
676:652
10/05/14 23:43:02
>>674
ありがとうございました。
GetPixelで何とか出来ました。
>>675
そういうことなんですね。
納得しました。
ありがとうございました。
677:デフォルトの名無しさん
10/05/15 00:08:51
Form1の他にForm2を作ってメニューからForm2の表示、非表示させてるんだけど、
Form2を表示中にメインのForm1を最小化させると一緒に画面から消えちゃうの何とかならん？
678:デフォルトの名無しさん
10/05/15 15:35:35
今デルヒで一番安く手に入る環境（違法じゃないの、新品の）でお願いします？
679:デフォルトの名無しさん
10/05/15 16:10:05
>>678
URLﾘﾝｸ(kaidoku.ocn.ne.jp)
コンポーネントを一緒に買う気があるなら
URLﾘﾝｸ(www.componentsource.co.jp)
680:デフォルトの名無しさん
10/05/15 16:13:24
あ、直販の方が安いのか
URLﾘﾝｸ(www.embarcadero.com)
681:デフォルトの名無しさん
10/05/15 22:29:59
頼む 日本語で
682:デフォルトの名無しさん
10/05/18 11:26:08
Delphi7ですけどIDE終了時AVなるのでコード変更してみました
これでいいでしょうか
_LStrClr関連で調べていたら_LStrFromPWCharLenのBuffersが悪さしてるみたいので
procedure _LStrFromPWCharLen(var Dest: AnsiString; Source: PWideChar; Length: Integer);
var
DestLen: Integer;
begin
if Length <= 0 then
begin
_LStrClr(Dest);
Exit;
end;
DestLen := CharFromWChar(nil, 0, Source, Length);
SetLength(Dest, DestLen);
if DestLen > 0 then
begin
CharFromWChar(Pointer(Dest), DestLen, Source, Length);
end
else
_LStrClr(Dest);
end;
683:デフォルトの名無しさん
10/05/18 12:02:46
こっちも変えてみました
procedure _WStrFromPCharLen(var Dest: WideString; Source: PAnsiChar; Length: Integer);
var
DestLen: Integer;
begin
if Length <= 0 then
begin
_WStrClr(Dest);
Exit;
end;
DestLen := WCharFromChar(nil, 0, Source, Length);
SetLength(Dest, DestLen);
if DestLen > 0 then
begin
WCharFromChar(Pointer(Dest), DestLen, Source, Length);
end
else
_WStrClr(Dest);
end;
684:デフォルトの名無しさん
10/05/18 22:30:32
カード占いをするソフトを作りたいと思っています。
（１）カードの使用枚数と配置を決める
（２）カードを配置して裏返し、表示させる。
（１）でカードの位置を、マウスでクリックした位置に決めて
カードの裏向きの画像ファイルを表示させたい
のですが、どうすればいいでしょうか。
685:デフォルトの名無しさん
10/05/18 23:04:57
ActiveXのWindowsMediaPlayerコンポーネントで、
動画再生時にビデオの明るさを変更する方法はありますか？
WindowsMediaPlayerの「拡張設定」の「ビデオ設定」にある「明るさ」を変更できる方法があればいいのですが。
686:デフォルトの名無しさん
10/05/19 00:51:54
>>684
その通りにやればいいだけじゃ？
どこで詰まったのかもっと具体的に言わないと答えようがないだろ
一から手取り足取り教えてもらいたいなら金払ってサポートしてもらえ
687:デフォルトの名無しさん
10/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:デフォルトの名無しさん
10/05/19 12:06:14
マルチスレッドのデバッグってどうすればいいでしょうか？
1つのスレッドを動的に複数Ｃｒｅａｔｅして同時に実行した時に、ブレークポイントで止めていると
Ｄｅｌｐｈｉが固まってしまいます。
Del7です。
よろしくお願いします。
689:デフォルトの名無しさん
10/05/19 15:55:47
>ブレークポイントで止めていると Ｄｅｌｐｈｉが固まってしまいます。
D7 が現役の頃にはそんな経験無いですけどね。
>Del7です
OS は？ CPU は？
Vista/Win7 だとあきらめるしかないかも。
690:デフォルトの名無しさん
10/05/19 16:35:03
起動中のアプリケーションでコマンドラインを受け取るにはどうすればいいのでしょうか？
a.exe -hoge -piyo
が何度か呼び出される感じ（引数は変わる）なのですが・・・
多重起動は禁止にしてます。
691:デフォルトの名無しさん
10/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
10/05/19 17:05:30
>>689
レスありがとうございます。
説明不足でした。
ブレークポイントで止まってるだけなら何ともないのですが、ステップ実行を何行かすると
フリーズしてPCのリセットボタンを押さないといけなくなります。
マルチスレッドが1つだけの時は、正常です。
ヘルプを見るとマルチスレッドのデバッグの項目はあるのですが、イマイチよく分からないです。
693:デフォルトの名無しさん
10/05/19 17:14:22
>>292
XP+Turbo(2005)のわたしも同じ状況に見舞われてます。
以前わたしも、ここか雑談スレで相談しましたが、解決方法はわかりませんでした。
一応、めちゃくちゃ反応は鈍いですが、操作は可能です(時間的には、リセットで再起動の方が早いと思いますが)。
こちらでは、頻度は低いですが、マルチスレッドというか、シングルスレッドでも起こりますので、
スレッドをデバッグした時になるのだと思います(といっても、メインスレッドは別だから、結局はマルチスレッドなのだろうけど)。
おそらくデバッガーの問題かと。こちらでは、なるべくブレークポイントは使用しないという消極的な回避策で対処してます。
694:デフォルトの名無しさん
10/05/19 17:28:09
>>691
ですです。
だいたいおんなじことを考えていたのですが、
> 起動中のインスタンスにコマンドラインを渡す( paramstr(1), paramstr(2)...)
ここがわかりませんでした。
後出しですみません。
作ってるアプリはGUIアプリです。
695:デフォルトの名無しさん
10/05/19 17:32:15
>>694
あと、コマンドラインを渡したあと、どうやって受け取るのかもわからなかったです。。。
696:デフォルトの名無しさん
10/05/19 18:54:34
>>687
やっぱりああやって書くとレス付きやすいですねｗ
あざーすｗｗ
697:デフォルトの名無しさん
10/05/19 18:57:28
>>694
SendMessageが使えるって書いてあるじゃん
よく読めよ
698:684
10/05/19 21:08:27
>>686,687
ありがとうございます。
やってみます。
699:デフォルトの名無しさん
10/05/19 22:25:41
>>696はいかにもゆとり
700:デフォルトの名無しさん
10/05/20 00:51:52
マルチスレッドのデバッグっていくつか前に書いてなかったか。
俺も参考にさせてもらった。
今は忘れた。ｗ
701:これかな？
10/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:デフォルトの名無しさん
10/05/20 05:00:38
>あと、コマンドラインを渡したあと、どうやって受け取るのかもわからなかったです。。。
Google で以下のキーワードで検索。
sendmessage プロセス間通信 Delphi
Delphi では無いが URLﾘﾝｸ(yokohama.cool.ne.jp) はよくまとまっていてよろしい。
それと、目的は複数のプロセスが同じデータを参照すること。と見なせば、
共通のファイルやレジストリにコマンドラインを記録し、
通常起動しているプロセス側がポーリング（定期的に見に行く）する。
という手法も使えます。
703:デフォルトの名無しさん
10/05/20 05:11:24
XP の頃、 MS-IME とデバッガの相性の問題があったはず。
URLﾘﾝｸ(www2.atwiki.jp)
URLﾘﾝｸ(d.hatena.ne.jp)
試してみてくださいな
704:デフォルトの名無しさん
10/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:デフォルトの名無しさん
10/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:デフォルトの名無しさん
10/05/20 11:03:39
素直に begin end でくくれ。
707:デフォルトの名無しさん
10/05/20 11:11:39
>>705
余計な話ですが、最後のelse、意味通りのインデントになってる？
708:デフォルトの名無しさん
10/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:デフォルトの名無しさん
10/05/20 11:27:41
皆さん、ありがとうございます。
基本的には begin～end は保守性の面から入れるのですが
今回の質問のような単純で短い構文で、狙った動きにならないので
びっくりしたのと納得できなかったので質問しました。
>直近のifに対応する
こんな規則で動いていたんですね。
納得しました。
ありがとうございました。
710:デフォルトの名無しさん
10/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:デフォルトの名無しさん
10/05/20 12:29:21
なるほど。
ちょっとの手間でスマートですね。
まだ、この辺の手間をかけた方が後々いいのか、どうかの判断が
出来ないレベルなので参考にさせてもらいます。
712:デフォルトの名無しさん
10/05/20 17:43:30
>>697,702
ありがとうございます。
ググりつつコピペしつつ改変しながら
URLﾘﾝｸ(eggrice.no.land.to)
と言うふうに書いてみたんですが、
二度目に起動したときに前のウィンドウがアクティブになるだけで
メッセージの処理は行われませんでした。
winexpでメッセージ監視してみたら
TMainFormじゃなくてTApplicationにメッセージが飛んでいたので
これが問題かな？と思ってFindWindowでハンドル取得してみてもうまくいきませんでした。
どこか間違えているでしょうか？
713:デフォルトの名無しさん
10/05/21 12:56:44
>>704 これあきらかにおかしいじゃん
if A=B then if C=D then E:=F; ここまで１行とコンパイラは理解するから次の else if が文法上間違い
714:デフォルトの名無しさん
10/05/21 14:33:18
質問が紛らわしくてすんません。
①②③の条件分岐のつもりで、①の時にⅠを実行する意図なのですが
「F；」の「；」を取ると
Ⅰ②③がグループと認識して①の入れ子と処理されてしまいます。
Ⅰは単独のif文にする意図で「；」を付けるとコンパイルエラーになるので
「何で？」と言う意味でした。
715:デフォルトの名無しさん
10/05/21 15:00:07
だいじょうぶ。意図を理解している人もいるよ。
716:デフォルトの名無しさん
10/05/21 17:01:10
自作アプリをプログラムから最小化してタスクバーに入れるにはどうすればいいですか。
WindwStataだとタスクバーの上に表示されてしまいます。
717:716
10/05/21 17:07:39
出来ました。
718:デフォルトの名無しさん
10/05/24 07:52:47
Continueってバグを起こしますか？
for i:=0 to max do
begin
if hoge then
begin
continue;
end;
end;
デバッグしているとi = maxの時にcontinueが実行されるとループが進んでしまうのですが・・・
719:デフォルトの名無しさん
10/05/24 12:26:05
あなたの頭がバグを起こしているだけです
720:デフォルトの名無しさん
10/05/24 12:32:28
デバッグしろ
721:デフォルトの名無しさん
10/05/24 14:16:18
max-1が正しかったという罠
722:デフォルトの名無しさん
10/05/24 18:43:28
マルチスレッドが存在するかしていないかって、分かる関数とかってあります？
Createした時に覚えておいて、解放する時はメインの方から明示的にFreeするしかないんでしょうか？
723:デフォルトの名無しさん
10/05/24 19:01:08
>718
ブロック内で、変数Iを使っていないので、最適化されて減少カウンタとして利用されている予感。
724:デフォルトの名無しさん
10/05/24 19:57:31
>722
スレッド終了時に自分で自分を解放
>718
>723のいうとおりだと思う。コンパイルオプションで最適化を外すとデバッグしやすくなる。
725:デフォルトの名無しさん
10/05/25 12:47:56
最後に判定しに行くだけだろ？
Cで書けばfor(i=0;i<=max;i++)なんだからmaxの次に判定があるのは当たり前
アホか
726:デフォルトの名無しさん
10/05/25 17:11:33
>>722
一応IsMultiThreadってグローバル変数が存在してるけど。ソースみりゃわかるけど、
直接Win32のCreateThreadとか呼んだら駄目ぽだけど。BeginThreadかTThreadクラスだけを
使ってる場合だけオｋ。
727:デフォルトの名無しさん
10/05/25 17:14:10
ああでも、ダメポそうだな。ごめん。
728:デフォルトの名無しさん
10/05/26 00:04:05
>>722
WaitForと言うのがあるらしい。
使い方は分からない。
お知恵をお借りしたいのですが。
今、複数起動が前提のアプリを作っているのですが、
一斉に最小化や復元をしたいと思って共有メモリを
使うところまでは出来たのですが、例えば一斉に最小化の場合は
メニューをクリックされたソフトで共有メモリに「1」を入れる。
他のソフトはその「1」がたったかどうかで最小化すればいいのですが、
お知恵を借りたいのは「1」をどのタイミングで「0」にすればいいかです。
全部が最小化されたかどうかを知るにはどうすればいいかって事です。
考えたのは複数起動した数を共有メモリに記録しておいて、メニューをクリック
されたら「1」ではなく、起動数を入れて（例えば「10」）で最小化したら
-1 していくと言うやり方です。
他にもっとスマートなやり方があれば教えて下さい。
729:デフォルトの名無しさん
10/05/26 00:46:32
HWND_BROADCAST
730:デフォルトの名無しさん
10/05/26 13:33:42
e?
731:728
10/05/26 14:07:31
レス、ありがとうございます。
>HWND_BROADCAST
ググってみます
732:728
10/05/26 18:53:43
ググったけど、よう分からんかったです。
SendMessageやPostMessageでHWND_BROADCASTを送ると
関係ないアプリまで最小化や終了をさせてしまうことになりませんか？
733:デフォルトの名無しさん
10/05/26 19:28:16
RegisterWindowMessageって知ってるか？
734:デフォルトの名無しさん
10/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:デフォルトの名無しさん
10/05/26 21:42:18
RegisterWindowMessageの引数は文字列
RegisterWindowMessage(自分だけの文字列)
↓
SendMessage(HWND_BROADCAST, RegisterWindowMessageの戻り値, ここ, とここは自分で決めて振り分ける);
736:728
10/05/27 00:41:49
>>735
思い通りの動きが出来ました。(;ﾟ∀ﾟ)=3
ありがとうございました。
737:デフォルトの名無しさん
10/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
10/05/29 00:01:44
ごめんなさい自己解決しました
739:デフォルトの名無しさん
10/05/29 20:46:03
>>712ですが、
結局TMainFormというインスタンス名が他のアプリケーションで使われていたようでうまくいかなかったので
メッセージ受信専用ウィンドウを利用する方法を使いました。
メッセージ用ウィンドウプロシージャは
特定のメッセージがきたときだけMainFormにDispatchするようにして
あとはDefWindowProcに渡すようにしたのですが、
処理としてはあっているのでしょうか？
初めはディスパッチのみでDefWindowsProcを呼び出さずにしていたら
終了時にエラーがでました。
740:デフォルトの名無しさん
10/05/29 22:19:45
名前変えればいいだけじゃ・・・
741:デフォルトの名無しさん
10/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- ?
10/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:デフォルトの名無しさん
10/06/06 21:38:01
Javaならライブラリあるだろうに。
744:デフォルトの名無しさん
10/06/06 21:39:03
これで事足りないというなら出直して来るんだ
つURLﾘﾝｸ(www.google.co.jp)
745:デフォルトの名無しさん
10/06/06 23:49:13
あれ、関数名はBase32だったので、そう思って組んでみたんですが、結果が違ったので・・・
1. そのソースコードが使われいるexe
$ exec "1c68ee574965514ec9c27a57972719ea"
4NDXFOSLFKFHMTQT2K6LSOGPK
2. Base32エンコード
$ echo "1c68ee574965514ec9c27a57972719ea" | java Base32encode
S0QSUB595BKSK4B0QRLEPJ43A7
>>742
整形ありがとうございます。
やってることは似てそうなんですが、定数が違ってそうなのでもう少し弄ってみます。
746:デフォルトの名無しさん
10/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:デフォルトの名無しさん
10/06/07 09:04:15
Base32（WXYZが使われてる）と、Base32hex（0189が使われてる）があるそうですね。
面白そうなので作ってみたら >>746と同じ結果に。
Base32: DRUO4V2JMVIU5SOCPJLZOJYZ5I======
Base32hex: 3HKESLQ9CL8KTIE2F9BPE9OPT8======
>>745と全然違うなあ。
しかしBase32って超マイナーですね。
748:748
10/06/07 20:34:22
> 1. そのソースコードが使われいるexe
> $ exec "1c68ee574965514ec9c27a57972719ea"
> 4NDXFOSLFKFHMTQT2K6LSOGPK
>
アナタの自作プログラム↑ソース↓
ｽﾚﾘﾝｸ(tech板:328番)
>
> 2. Base32エンコード
> $ echo "1c68ee574965514ec9c27a57972719ea" | java Base32encode
> S0QSUB595BKSK4B0QRLEPJ43A7
こっちのソース、またはソースのURLくれ。
749:748
10/06/07 22:36:19
shr ((i * 5) mod 8)) and 31];
↓に変更（再コンパイル可能なら、だけど）
shr (11 - ((i * 5) mod 8))) and 31];
750:デフォルトの名無しさん
10/06/08 01:00:38
>>748
今確認したら結果が逆でした・・・汗
1. 移植したいプログラム ( Delphi )
URLﾘﾝｸ(jane.s89.xrea.com)
> nghash.exe "1c68ee574965514ec9c27a57972719ea"
S0QSUB595BKSK4BOQRLEPJ43A7
2. 自作したプログラム ( Java )
ｽﾚﾘﾝｸ(tech板:328番)
% echo "1c68ee574965514ec9c27a57972719ea" | java Base32encode
4NDXFOSLFKFHMTQT2K6LSOGPK
Jane2chのNSFiles.txtで使われる、MD5をエンコードした無視画像リストを、
システムに組み込みたくて、移植してる次第です。・・・なんですが、力不足で全く移植できず
751:デフォルトの名無しさん
10/06/08 09:57:52
S0Q..L..はナンチャラは何なの？という疑問 0とL が混じってる。
１．Base32HEX エンコードだけをしてもこの値にはならないので、
その部分だけのDelphiでは足りない。ソースは受け取ったが、
ソース全部読む必要があるので、時間と人手がいる。
> nghash.exe "1c68ee574965514ec9c27a57972719ea"
S0QSUB595BKSK4BOQRLEPJ43A7
２．Base32HEX エンコードだけのソースなら、ネット検索すればあるはず。
１．に関連して、>>749 はバグだと思ったけど、そのソースを生かすなら
Base32HEXではない。逆にその部分だけを修正すればBase32HEX のソース
を直せばいい。
また、>>749 shr の使い方を誰かDelphiで合ってるか確認してほしい。
752:747
10/06/08 10:53:30
>>750
やっぱり。どうも変だなと思ってた。あと、ソースの頭にしっかり
//5bitエンコーディング関数 Base32ではない。
って書いてあるじゃない。最初は見落としてたの？
>>751
>>741の function EncodeB32 だけでちゃんと
S0QSUB595BKSK4BOQRLEPJ43A7
になるのを確認したので、これはBase32でもBase32hexでもないと思います。
＞また、>>749 shr の使い方を誰かDelphiで合ってるか確認してほしい。
どう確認すればいいのか分かりませんが、そこだけ差し替えたら
D0N6FIA5A575IGMQATBLF69A03
になりましたよ。
Delphi始めて数ヶ月の初心者が頭突っ込んでスマソでした
753:デフォルトの名無しさん
10/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
10/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
10/06/08 23:02:43
私も勉強がてらJavascriptに翻訳してみました。
出来る限り元ソースに忠実にしました。
URLﾘﾝｸ(ideone.com)
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
10/06/09 07:20:10
DelphiスレなのにJavaやらCやらJavascriptもなんなので、
ideone.comのPascal（FPC：Free Pascal）でDelphiできるか？試してみました。
URLﾘﾝｸ(ideone.com)
結果：プログラム本体の書き換えは一切せずに動作しました。
追加したこと
1. コンパイラモードをDelphi互換に指定 → {$MODE DELPHI}
2. Uses節を追加、StrToIntのためにsysutilsを指定
3. function MakeWordをWindows.pasからパクってきた
以上、初心者の研究コーナーでした
スレ汚しまくってスマソ
757:デフォルトの名無しさん
10/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:こまった？？
10/06/09 11:40:16
Delphi5 から Delphi2010 に一気に移行したものですが、
たとえば、 TMemo などの既存コンポーネントを継承して、
新しいコンポーネントを作成したとき、
TEST用プロジェクトで動作確認はできるのですが、
いざ、コンポーネントタブ（たとえばsample）に登録しようとしたとき
Delphi5にはあった「コンポーネント」＝＞「コンポーネントのインストール」
メニューがDelphi2010メニューにありません。
どうやってインストールするのでしょうか？
それとも、プロフェッショナル版ではできない？
759:デフォルトの名無しさん
10/06/09 13:55:35
>>758
URLﾘﾝｸ(mrxray.on.coocan.jp)
760:デフォルトの名無しさん
10/06/09 22:19:20
TOpenDialogとかにボタンを追加したいときはどうするべきなのでしょうか。
761:デフォルトの名無しさん
10/06/09 23:49:42
TOpenPictureDialogのコードが参考になると思う。
762:デフォルトの名無しさん
10/06/10 12:59:36
Synchronizeで実行するプロシージャーで引数が使いたい時って皆さんはどうしていますか？
763:デフォルトの名無しさん
10/06/10 15:02:32
匿名メソッドでいいじゃん
764:デフォルトの名無しさん
10/06/10 16:35:12
>>762
そのためにわざわざフィールド変数を用意して、それ経由してる。
765:デフォルトの名無しさん
10/06/10 17:16:57
mixiにログインして情報をとってくるようなアプリケーションを作りたいと思っています。
そこで、TIdHTTPコンポーネントを使用してログイン部分をいま作成中なのですが、Cookieが無効
になっているため、ログインできませんと言われてしまいます。
(URLﾘﾝｸ(mixi.jp)が返ってくる)
TIdHTTPコンポーネントのCookieManagerには該当のTIdCookieManagerを指定し、
AllowCookiesはtrueの状態にしています。
IdHTTP1.Postの第一引数は以下の通りです。
'URLﾘﾝｸ(mixi.jp)'
IdHTTP1.Postの第二引数にはstringlistで以下のようなデータを渡しています。
'next_url=/home.pl'
'email=メールアドレス'
'password=パスワード'
TIdHTTPコンポーネントを使用して、mixiへのログインに成功した方、どのようにされたかアドバ
イスいただけないですか？
766:デフォルトの名無しさん
10/06/10 21:38:02
オミトロンとかLiveHTTPHeaderなんかで
ブラウザでログインしたときの状況を確認したほうが早いと思ふ
767:デフォルトの名無しさん
10/06/11 11:13:50
>>764
無名メソッドを使えば、わざわざフィールド変数を用意する必要はない。
URLﾘﾝｸ(edn.embarcadero.com)
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
10/06/11 11:26:33
>>766
LiveHTTPHeaderで確認したところ、POSTする情報は765の3つでした。
試しにブラウザからcokieを一度削除し、最初のログインでどのようなものを渡しているか確認。
それと同じ内容をIdHTTP1.Request.CustomHeaders.Addで渡してみたのですが、やはり
URLﾘﾝｸ(mixi.jp)のアドレスが返ってきます・・・。
なんか根本的に設定を間違えているんでしょうか・・・。
769:デフォルトの名無しさん
10/06/11 11:40:09
ssl だったり？
770:769
10/06/11 11:43:19
>>769
あんまり関係ないか。
771:765
10/06/11 12:00:48
>>769
C#とかのサンプルみる限りはSSLじゃなくてもログインできるようなんですよね。
Indyの情報すくなすぐる・・・泣ける・・・。
772:デフォルトの名無しさん
10/06/11 13:34:24
Indyは自力でソース見て解決できないバカが使うものじゃないから、
おとなしくTWebBrowserを操作してログインしておけ
773:デフォルトの名無しさん
10/06/11 13:35:31
cookiemanagerにsessionはいってるのか？
774:デフォルトの名無しさん
10/06/11 20:25:06
IdHTTPのProxyにオミトロン通してブラウザと挙動を比較するとか。
URLﾘﾝｸ(mixi.jp)は普通にログインしてても通過するみたいだから
内容がどうかだね。
775:デフォルトの名無しさん
10/06/11 20:45:00
url := 'URLﾘﾝｸ(mixi.jp)';
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:デフォルトの名無しさん
10/06/11 20:45:59
クッキーマネージャは何もいじってないよ
777:デフォルトの名無しさん
10/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:デフォルトの名無しさん
10/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:デフォルトの名無しさん
10/06/11 23:24:48
TStringListのSaveToFileって同時に同じ名前のファイルで行われると共有違反とか起きますか？
780:デフォルトの名無しさん
10/06/12 04:08:26
起きる起きない以前にそんなクソコード書かないで下さい
781:デフォルトの名無しさん
10/06/12 08:04:10
「同時に」の意味は？本当に同時にはできないから、先にSaveToFileしたほうは
成功して、後のほうは失敗するんだけどね。
782:デフォルトの名無しさん
10/06/12 09:56:46
あとの方で上書きされると思ってたが違うのか？ｗ
783:デフォルトの名無しさん
10/06/12 10:12:36
>>777
2.3.4の間違いだよね？
784:デフォルトの名無しさん
10/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
10/06/12 18:23:37
>782
ああ、先のほうの保存が終了てから後の保存が行われるならその通りだね。
「同時に」って言葉に引っぱられすぎだ。
786:デフォルトの名無しさん
10/06/12 19:31:59
>>784
失敗したときは違うHTMLがかえってくるよ。
check.plを経由してhome.plにいくみたい。
787:デフォルトの名無しさん
10/06/12 20:17:10
ミクシィに詳しくない俺でもこれは失敗だとわかる・・・（ｷﾘｯ
うわあ・・・これは恥ずかしい
こいつに足りないのはリファラじゃなくて頭だな
788:デフォルトの名無しさん
10/06/12 21:14:20
＞UA、リファラ、IP、クッキーのいずれか
他のヘッダで弾いてるところもいっぱいあるよ
成功したかどうかの確認は帰ってくるURLとかじゃなくてクッキー見たほうがいい
789:デフォルトの名無しさん
10/06/12 22:17:16
オミトロンなりWireSharkなりを使って、ブラウザで認証OKだったときの挙動をキャプチャしてみると
何か見つかると思うよ。
790:デフォルトの名無しさん
10/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:デフォルトの名無しさん
10/06/13 01:42:01
さすがにTimer使っといて同時はねーだろ。別スレッドとか別プロセスじゃないと。
同一スレッド上ではシーケンシャルにしか処理は動かないんだから。
792:デフォルトの名無しさん
10/06/13 02:52:43
>>790
ばかだねー（´・∀・｀）
793:デフォルトの名無しさん
10/06/13 13:51:21
いやそうじゃなくって・・・
>>791
だから中身はtimer2になるはずでしょ？
間違ってたらスマンが。
794:デフォルトの名無しさん
10/06/13 14:15:28
>>793
Timer1のイベントが先に実行されるって決まってるんですか？
795:デフォルトの名無しさん
10/06/13 14:46:53
無知なのは別にいいがそれをあたかも常識のように言うのはやめていただきたい
796:デフォルトの名無しさん
10/06/13 15:01:52
Timer2のイベントが存在していないのに、Timer2になるって脳内お花畑か。
まあそれより、ず～っと以前の問題なんだけどな。
797:デフォルトの名無しさん
10/06/13 16:17:28
えっ？
798:デフォルトの名無しさん
10/06/13 20:29:08
イベントはTimer1とTimer2で共有ってことだろ。
>>794
決まってないと思うが、どちらのタイマイベントが先に発生するにせよ、
そのイベントハンドラの実行は同時に実行される事はない。だから、
後の方で上書きされるだけ。
タイマー使ってもマルチスレッドにはならんよ。
799:デフォルトの名無しさん
10/06/13 20:35:01
↑
明らかな間違いだぜ
イベントが共通だったとしても
Timer2になることは無いのだよ。
ヒント：タイマーはひとつだけ！
800:デフォルトの名無しさん
10/06/13 21:28:47
１個のformには１個のTimerしか使えない。理由はWindowsの仕様だから。
ハイ、次の質問。
801:デフォルトの名無しさん
10/06/13 21:56:43
>>800
では次の質問。
procedure TForm1.Timer1Timer(Sender: TObject);
begin
Memo1.Lines.Add((Sender as TTimer).Name);
end;
Timer1とTimer2が交互に追加されて表示されるのですが、なぜですか？
802:デフォルトの名無しさん
10/06/13 21:59:00
うそはよくない。TTimerは別々にウィンドウを保持してるので独立して動作する。
ただしメッセージループが動作していないといけないし、Windowsのタイマはもともと
指定時間を経過したことを示すフラグなのでそのあたりも注意が必要だが。
803:デフォルトの名無しさん
10/06/14 00:34:30
>>800
ばかだねー（´・∀・｀）
804:デフォルトの名無しさん
10/06/14 00:46:36
>>790 ファイル保存するときに排他処理やってないとかいうオチ？
805:デフォルトの名無しさん
10/06/14 01:23:22
>>804
お前は何を言ってるんだ？
806:756
10/06/14 12:02:13
みなさん、レスありがとうございます。
あれから色々やってみたのですが、相変わらず
<meta http-equiv="refresh" content="0;url=/check.pl?n=%2Fhome.pl">
が返ってきます。
今はLive HTTP headersを火狐に入れて、正常にログインできたときの情報を確認しています
が、オミトロンを使用し、ブラウザとIdHTTP両方で確認してみます。
Indy使ったことがないので、勉強がてらやってみたのですが、俺にはてごわすぎる・・・。
807:デフォルトの名無しさん
10/06/14 14:21:55
それが正しいんじゃないの？ ほんとにブラウザの動きを確認してる？
808:デフォルトの名無しさん
10/06/14 20:59:05
>>806
ブラウザの動き的にはそれであってるんじゃないの？
次にそのHTMLから/check.pl?n=%2Fhome.plにアクセスして
その次にhome.plに行けば成功じゃない？
809:デフォルトの名無しさん
10/06/15 04:36:11
>>806
（´・∀・｀）
810:デフォルトの名無しさん
10/06/15 08:49:21
>765
漏れはこれで成功してる
MixiURL = 'URLﾘﾝｸ(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
10/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('URLﾘﾝｸ(mixi.jp)')を行ったのですが、ログイ
ン前の画面しか取得する事ができませんでした・・。
(ログインされていない状態)
もしよければ、最初のpost以降どのようなロジックでログイン後の画面を取得され
ているかアドバイスいただけないでしょうか？
812:デフォルトの名無しさん
10/06/15 12:18:50
>>811
もう数年前のコードで、内容をすっかり忘れてるし、今のmixiにログインできるかどうかすら解らないです
暇になったらDebugしながらどうなっているか確認してみます
が、期待しないでね
813:デフォルトの名無しさん
10/06/15 12:38:29
>>812
OSをWindows7にした時にDelphiをインストールし直したらコンポーネント不足でもうコンパイルすら出来なくなってたorz
なので自力で頑張ってくれ
確認だけどPostしてCookieもらってGetする前に
IdHTTP1.Request.ContentType:='';
ってやってる？
それくらいかな？
ほんとにCookieもらったあとは読みたいページを直で読みに行ってるだけだから
814:デフォルトの名無しさん
10/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:デフォルトの名無しさん
10/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('URLﾘﾝｸ(mixi.jp)',PostData,Req);
IdHTTP1.Request.ContentType:='';
Buf:=IdHTTP1.Get('URLﾘﾝｸ(mixi.jp)');
Memo1.Text:=Buf;
PostData.Free;
Req.Free;
end;
816:765
10/06/15 13:54:33
>>814
コードありがとうございます。
が、なぜか同じコードを実行してみても、自分の環境ではログインされていない状態になるよう
です(ユーザー名とパスワード入力画面が表示される)。
TIdHTTP1でcookieを扱うために特にしなければいけない事はTCookieManagerの登録以外に
何かありますでしょうか？
うーん、まだPOSTしきれていない情報があるのか・・・？
817:デフォルトの名無しさん
10/06/15 14:24:07
>>816
一度新規にProjectを作ってやってみたらどうですかね？
と言うのは、IdHTTP等のプロパティの値が違うと取得できないケースがあります
ちなみに私のコードはDelphi起動、Project作成後に何も考えずにコンポーネントをペタペタやっただけです。
ちなみにDelphi2007です。
818:765
10/06/15 18:06:06
>>817
新規で作ってみましたが、やはりログイン前のmixi.jp/home.plの画面が表示されますね・・。
(パスワードとIDの入力画面)
postでIDとパスワードを送っているにもかかわらず、ログインできていないという事か・・？
ちなみにIndyはD2009/2010版の最新のものを入れています。
819:デフォルトの名無しさん
10/06/15 18:54:38
del2006だけど成功したよ。>>814-815
820:デフォルトの名無しさん
10/06/15 19:55:13
>>818
Delphi2010はStringのエンコードがややこしいので普段使ってないのですが、Delphi2010でやってみたけど出来ました。
何が違うんでしょうね
821:デフォルトの名無しさん
10/06/16 02:19:57
頭・・・ですかね
822:デフォルトの名無しさん
10/06/16 08:33:05
>>821
お前の？
823:デフォルトの名無しさん
10/06/16 13:30:08
>>822の。
824:デフォルトの名無しさん
10/06/16 14:09:14
他のアプリのウィンド内の文字列を取得するアプリを作っているのですが、
文字列を取得する時に、そのウィンドがアクティブになっていれば正常に取得できるのですが、
非アクティプの時に取得しようとすると ？Ｍａｉｎ と言う文字列が返ってきます。
目的のウィンド内の別のところの文字列は非アクティブでも取得できます。
どういう情報を書けばいいかよく分からないので、分かりにくい質問とは思いますがよろしくお願いします。
825:デフォルトの名無しさん
10/06/16 17:50:46
なんてソフトの
どんなところを
どうやって取得しているのか？
826:デフォルトの名無しさん
10/06/16 23:01:31
VCLベースアプリの可能性が高い感じ。
メインフォームの他に隠しウィンドウ持ってるから。
827:765
10/06/17 10:24:12
>>819、820
ひとつ確認させてください。
同じhome.plでもログイン前とログイン後の両方があります。
みなさんはログイン後のhome.plが表示されましたか？
828:765
10/06/17 10:28:55
ちなみにログイン前のhome.plだった場合、getで取得された情報の中に、「いますぐ利用す
る（無料）」や「すでに登録済みの方は、こちらからログインしてください」などの文字列が
入っています。 ログインされていない状態のhome.plですね。
俺がやると、なぜかこっちになるんだよね・・・。
829:デフォルトの名無しさん
10/06/17 10:58:30
いい加減、httpでアクセスして自分の送ってるパケットぐらい調べろ
httpsonlyだったり正常ならレスポンス時のカスタムヘッダを列挙しろ
それも駄目ならリクエスト時のカスタムヘッダに直接クッキー押し込め
それでも駄目ならアカウントが死んでる
クッキーコレクションだったか？あれはヘッダからクッキーを抜いて保持しとくだけの物なんだよ
使えなかったら直接ヘッダにぶち込め
つかな、もうこれdelphiスレで何度も何度もいってるんだよ
デバッグが出来ないならネットワークのプログラミングはやるな
つかRFC読んで仕組みを勉強しろ！
830:デフォルトの名無しさん
10/06/17 11:17:53
↑
スレタイさえ読めないおバカさんですか？
このスレのタイトルは、
くだすれDelphi(超初心者用)その51
＞Delphi(デルファイ)について、他のスレッドでは書き込めない超低レベル、
＞もしくは質問者自身何が何だか分からない質問を
＞勇気を持って書き込むスレッドです。
＞Delphi使いが優しくコメントを返しますが
＞お礼はDelphiの布教と初心者の救済をお願いします。
831:デフォルトの名無しさん
10/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をヘッダーに送ったりもしていますが、やはり同じ結果(ログオンされていない状態に
なる)になるのです・・・。
ログインからの流れとしては
URLﾘﾝｸ(www.atmarkit.co.jp)
を参考にしています。 受け取ったcookieを持ってれば認証が必要なページにアクセス可能になる
ようですので、当方のCookieManagerの使い方がおかしいのか？と悩んでいるところです。
(他の方は成功しているようですので)
832:デフォルトの名無しさん
10/06/17 17:39:38
プロジェクト一式上げろよ
833:デフォルトの名無しさん
10/06/18 10:56:15
エクセルのファイルそのものを削除するにはどうすればいいのか誰か教えてくれないか
DeleteFile('C:\ファイル名'); でやるとTXTファイルなら削除できるのにエクセルだとなぜか削除されないんだ・・・
834:デフォルトの名無しさん
10/06/18 11:17:22
追記
別の名前で保存はできるが、名前を変更して保存（リネーム）もできない
835:デフォルトの名無しさん
10/06/18 12:14:20
D3のQuickReportのパッチのd3qrupd.lzhをお持ちの方居りましたらメールで送っていただけませんか？
サポート終了と言うことで本家から落とせなくて困っています。
836:デフォルトの名無しさん
10/06/18 12:22:27
>>832
うｐローダー探してのちほどうｐしてみます。
今日午後～火曜まで出張のため、来週半ばぐらいになるかもしれません。
837:833
10/06/18 15:14:23
すみません。自己解決しました。お騒がせしました。
838:デフォルトの名無しさん
10/06/21 17:47:50
bitmapのことで質問させてください。
canvas.draw(intX, intY, 別のビットマップ)
で画像コピーができることはわかったのですが、
これって受け手側の座標しか指定できないんですか。
100X100の大きさの受け手に対して、送り手の101, 201, 200, 300から
100X100だけ持ってくるにはどうしたらいいんでしょう。
839:デフォルトの名無しさん
10/06/21 18:31:51
ヘルプでTCanvasについて調べなさい
840:デフォルトの名無しさん
10/06/21 19:09:39
ありがとうございます。
メソッドにCopyRectってのがあったので、もしかしてこれかなと
思ってやってみたら、以下あっさりできました。
送り手.Canvas.CopyRect(Rect(0, 0, 100, 100), 受け手.Canvas, Rect(30, 30, 130, 130));
841:デフォルトの名無しさん
10/06/22 01:33:11
>>840
できたならいいけど受け手と送り手勘違いしてない？
あとDrawでもマイナス指定すればできるけど
842:デフォルトの名無しさん
10/06/22 22:06:48
ゲーム作っている人教えて。スーパーマリオなどのゲームって
スクロールしたとき、マリオをも背景も再描写させてるの？
843:デフォルトの名無しさん
10/06/22 22:22:30
そもそも昔のゲーム機はPCとは異なる概念で描画してるから
PCでは参考にならないと思うぜ
画面全体がタイル上に分割されていて、
どこにどのタイルを貼るかを指定する感じで描画する
背景は全体的にスクロールできて、
キャラは背景とは別に置けたんじゃなかったかな（所謂スプライト）
GBAの知識だからFCやSFCくらい古くなるとどうなってんのか知らないが
最近のゲーム機なら毎回レンダリングしてるんじゃないの
カメラが固定ならさぼってるかもしんないけど
844:デフォルトの名無しさん
10/06/23 09:37:41
最近、Delphi7のデータベースを使ったプログラムを作った時の
配布方法について教えて下さい。
データベースを使ったプログラム自体初めてなので、これから
本とか買って調べるのですが、データベースアプリってデータベースも含めて
Zipとかで配布できますか？
インストーラーとかよく分からないので、解凍して終わりな感じにしたいです。
845:デフォルトの名無しさん
10/06/23 09:40:18
>>844
そんな知識レベルで配布とかすんな。
846:デフォルトの名無しさん
10/06/23 09:51:04
Delphi は複数の DB 接続技術を利用できますから、あなたのアプリがどれを使うかによって
話は変わってしまいます。
まず、データベースアプリを作りましょう。
配布の話はそれからで十分だと思います。
847:デフォルトの名無しさん
10/06/23 10:22:34
>>845
答えてくれてありがとうなんだけど、ケチ付ける前に日本語読めるか？
これから調べて作るんだよ。
すっこんどけ。ヽ(`Д´)ﾉﾌﾟﾝﾌﾟﾝ
>>846
了解しました。
848:デフォルトの名無しさん
10/06/23 10:38:27
あと、せめてどのデータベースにつなげたいのかくらいは書いてね。
そういうのもまだ決まっていないならどうしようも無いけど
849:844
10/06/23 11:27:58
>>848
> あと、せめてどのデータベースにつなげたいのかくらいは書いてね。
> そういうのもまだ決まっていないならどうしようも無いけど
なにぶん、初めてでどのデータベースに繋げようかとか決まってないです。
一応、「Delphi DB&Webプログラミング」って本が手に入りそうなので、
それで調べようかなと思っています。
逆に、簡単に配布出来るものってあるんでしょうか？
850:デフォルトの名無しさん
10/06/23 11:54:09
デルファイでマリオ作ろうとしてるやつっておめでたいな・・・
851:デフォルトの名無しさん
10/06/23 12:07:02
>>849
何を構築しようとしてるのか知らないけど、多分、君にDBは必要無いと思うよ。
852:デフォルトの名無しさん
10/06/23 13:09:16
7をWindows7で使ってます。
TRicheditの背景色についてですが、
いったん表示されてから、Windowsのテーマ変更で背景色が変わった場合
TRicheditは背景色がclWindowに追随してくれません。(ほかにTTrackbarも)
テーマ変更時のイベントを捕捉できればいいのですが、eventにはそれらしき
ものが見当たりません。
ためしにonChangeイベントで
reRichedit.color := clWindow;
とやってみましたが、テーマ変更後の色に変わりませんでした。
いったんコンポごと消して再生成するしかないのでしょうか？
853:デフォルトの名無しさん
10/06/23 15:14:26
まぁ、確かに要らないかも何ですが・・・
あるデータを溜め込んで、andやorで抽出する必要があるんで
何かのデータベースを使った方が楽かと。
データリスト自前で作っても良いんですけどね。
854:デフォルトの名無しさん
10/06/23 15:18:23
・自分でフィルタリングするの面倒だからDB使う。
・インストール面倒だからzipでファイルだけ配布。
・調べるの面倒だから2chで丸投げ。
855:デフォルトの名無しさん
10/06/23 15:38:43
854 どれも立派な理由だと思います。
856:デフォルトの名無しさん
10/06/23 15:41:06
いやいや別に丸投げって、そんんぁ。
インストーラーみたいなのをやらないといけないかどうかだけだよ知りたいのは。
データベースによるわ、ヴォケ！ってなら ヾ(ﾟ∀ﾟ)ﾉ ﾊｲ で終わり
857:デフォルトの名無しさん
10/06/23 15:45:26
リレーショナル DB である必要がなく、データ件数が高々数万でよいなら
ClientDataSet を MidasLib ユニット経由で使えば、アプリケーションに
組み込み(追加の配布ファイルなし)で作れます。
一般の（リレーショナル）DB を使う場合には、そのサーバーそのもの以外に
DB メーカー提供のミドルウェア（接続用 DLL）が必要になります。
多くの場合、アプリケーションと同じディレクトリに置けば動く場合が多いですが
そうでない場合もあります。
858:856
10/06/23 15:52:28
>>857
ありがとうございました。
調べる的が絞れました。
859:デフォルトの名無しさん
10/06/24 02:31:28
ちょいちょい挟んでくるAAがイラッと来るなｗ
分かってやってるのかもしれんが
860:デフォルトの名無しさん
10/06/24 08:11:08
朝から引っ込んで炉よ、クズβακα..._φ(ﾟ∀ﾟ )ｱﾋｬ
861:デフォルトの名無しさん
10/06/24 16:06:04
SHFileOperationって、いわゆる非同期というやつなんでしょうか？
大量のファイル（フォルダ）をバックグラウンドでコピーするために
FOF_SILENTを指定してSHFileOperationを使ってみたのですが、
処理が終わるまで画面が固まってしまいます。
そこで↓みたいなワークスレッドを作ってその中で実行させてみたのですが
今度はすべてのファイルがコピーされないまま、SHFileOperationから抜けて
スレッドが終了してしまいます。
procedure TWorkThread.Execute;
begin
ShellAPI.SHFileOperation(ShellParam);
end;
こっち立てればあっち立たずな感じで困っています．．．
こういうときにDelphiでうまい対処法みたいなものがあるのでしょうか？
862:デフォルトの名無しさん
10/06/24 17:10:41
Outlook Expressの保存フォルダ(dbxファイル)の場所を取得するには？
863:デフォルトの名無しさん
10/06/24 17:46:25
>>858
分かってるとは思うけどDBのライセンスに注意してね
付属のIntereBaseも再配布不可どころか開発専用のライセンスだし。
Delphiの場合だとIBX+組み込み版Firebirdが手っ取り早いと思うけど
864:デフォルトの名無しさん
10/06/24 19:01:39
うるせーハゲ＾＾
865:デフォルトの名無しさん
10/06/24 19:59:16
>>861
画面の見た目にこだわらないのであれば
処理の進捗を表示するフォームを作成してからCopyFileExを呼び出して、
コールバック関数内で画面を更新させる手もある
866:デフォルトの名無しさん
10/06/25 09:09:38
>>861
TSHFileOpStructのウィンドウハンドルに0を指定でいいんじゃね。
867:デフォルトの名無しさん
10/06/25 11:48:40
他のアプリのフォントの色を取得するにはどうすればいいですか？
目的のアプリのコントロール？のハンドルは取得できています。
GetDCでデバイスコンテキストを取得して、
Label1.Font.Color := GetTextColor(DC);
みたいにしているんですが、「0」が返ってきてしまいます。
よろしくお願いします。