くだすれDelphi(超初心者用)その56->画像>8枚

Delphi(デルファイ)について、他のスレッドでは書き込めない超低レベル、もしくは
質問者自身何が何だか分からない質問を勇気を持って書き込むスレッドです。

Delphi使いが優しくコメントを返しますが、
お礼はDelphiの布教と初心者の救済をお願いします。

■Delphi XE6　Professional/Enterprise/Ultimate/Architect エディション(トライアル版有)
64bit Windows、Mac OS XからiOS、Androidのアプリも開発可能。ライブラリのソースコード付き。アカデミックライセンス有り。
旧バージョン（XE6/5/4/3/2/XE/2010/2009/2007/Delphi 7）のライセンス取得とダウンロードが可能。（アカデミック不可）
http://www.embarcadero.com/jp/products/delphi

■Delphi XE6　Starter エディション
個人／5人以下の企業・組織向け。年間売上1000US＄以内の商用開発可。
（※）Delphi、Visual Studio等の有償／無償の開発ツールユーザーが対象。インストール確認は特に行わない。
http://www.embarcadero.com/jp/products/delphi/starter

■Embarcadero RAD Studio XE6 （Delphi、C++Builder、HTML5 Builder等を含むビジュアル開発スイート）
http://www.embarcadero.com/jp/products/rad-studio

＜前スレ＞
くだすれDelphi(超初心者用)その55
http://peace.2ch.net/test/read.cgi/tech/1353119767/

＜過去スレ＞
DelWiki （Delphi 関連の過去スレッド）※行方不明
http://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

＜関連スレ＞
Embarcadero RAD Studio/Delphi/C++Builder その3 ※終了(次スレ無)
http://toro.2ch.net/test/read.cgi/tech/1346899529/

delphiで作った有名ソフトって何があるの？
http://peace.2ch.net/test/read.cgi/tech/1135654787/
【Delphi互換!?】FreePascal/Lazarus その2【GPL】
http://peace.2ch.net/test/read.cgi/tech/1261676778/

ネットワークゲーム作成のお勉強（Delphi専用スレ）
http://peace.2ch.net/test/read.cgi/gamedev/1028278884/
Delphiでアクションゲームが作りたい！！ Part2
http://peace.2ch.net/test/read.cgi/gamedev/1027482533/
delphiでMMO
http://peace.2ch.net/test/read.cgi/gamedev/1072515100/

＜兄弟スレ＞
くだすれC++Builder（超初心者用）その5
http://peace.2ch.net/test/read.cgi/tech/1334982374/

pythonスレとかブル紛らわしいタイトルつけてんじゃねえよ

すみません、お願いします。
delphi5（古い）を使いはじめた者ですが、.dfmファイルの中に

object　Image1：TImage
…
Picture.data={

文字列

}

というのがあるんですが、この文字列を動的に入れる方法はないんでしょうか？

Tpictureにdataというプロパティがないようなんですが…

pasではなくdfmで定義されてるってことだろ　そりゃpasのほうでやりゃええやん

今、出先で開発環境がないんですが、object以下をpasのどこかにカット＆ペーストする感じでいいんでしょうか？ｗ

あっ、wがついちゃった…

ごめんなさい。

あっ、wがついちゃった…

ごめんなさい。

>>4
自分は７なのでもしかしたらバージョンによって違うかもしれませんが…。
'Picture.Data = {'以降の文字列は意味のなさそうな数字の羅列ですよね？
だとすればオブジェクトインスペクタのTImage.Pictureに当たる部分だと思い
ます。画像データが文字コードに変換されて格納されているのでは？

dataのところはローダが解析して実際のイメージデータを作るために使うものだろ
フォームをロードする時だけ使われるものなので、動的に入れるなんて無意味

実行時にPictureの中身を差し替えたいって話なら、リソースくっつけといて
LoadFromResourceすればええ

まず連投になってたことをお許しください。新しいスマホが、戻る押したら投稿までしてしまうようで…

10さんの言われるようにbmp→bmpのようなのは何種か試してできたんですが、文字列→bmpみたいなのに面白さみつけたんですね。

テキストデータの中に画像データも埋め込められるかなと、

おそらくimage1:tpictureが保持してる画像を開発環境が文字列に変更したんでしょうけど、これをまた逆に画像に変更する関数をつくらなきゃならない、と思い至りました。StrToBmpみたいなやつですね。で、picture.bitmapに結びつけるみたいな。

どういうルールで文字列に変えたのか、調べることにしてみます。

何が目的なのかさっぱり分からん

「動的に」って言ってるんだから、実行時に
Image1の画像を変更するって理解でいいんだよな

だったら、
Image1.Picture.LoadFromFile('MyPicture.png'); // ファイルからImage1に読み込む
Bitmap.Canvas.Draw(0, 0, Image1.Picture.Graphic); // Image1の内容をBitmapにコピーする
Image1.Picture.Assign(Bitmap); // 既存のBitmapをImage1にコピーする
とかはダメなのか？

それとも、単に.dfmファイルの内容を解析したいとか？

目的は、別にないんです。

.xmbファイルだったと思うんだけど、文字の羅列が、IEであけてみたら画像で出てきたんで面白かったと。
で、dfmファイルのこの文字列も画像に戻せたら面白いだろうなって。

読み込んだ画像そのまま表示でなくて。
ただの遊びです。「あぶり出し」みたいでたのしかろうと。

>>13
picture.dataの内容は．．．

今実験してみたら、Delphiのバージョンによって違いがあるかもだけど
最初の20文字は不明だけど（たぶん画像の属性かも）、21文字目からは
オブジェクトインスペクタでImage1のPictureプロパティとして読み込んだ
ファイルそのまんまだ

もちろん、元はバイナリだから、それをHex文字列に置き換えてあるけど

最初の20字が不要ってよくわかりましたね…

じゃ、最初の20字カットしてHex文に変えたやつをコード上で代入したらできますかね？

もっとも試すのは先になりそうです。
実は学生で帰省してるんです…

>>15
代入って言っても、バイナリな画像ファイルイメージだからな

普通は1バイト分ずつ変換してストリームに加えていき
LoadFromStreamで一気に読み込む

むつかしそうですが、やってみましょう！

むつかしそうですが、やってみましょう！

TImage.Picture.Dataはプロパティとして特別扱いになっているので、もしソースがあるなら
デバッグ版DCUを使う設定にしておいてTImage.Createにブレークポイント置いてそこから
処理を追っかけてみるといろいろわかっていいんじゃないかな。

Explore('c:\users');
とやるとc:\users以下のフォルダの構造そのままなコンテキストメニュー出してくれるサンプルやライブラリないですか

見た目はこんな感じ
http://www5f.biglobe.ne.jp/~mujaki/pctips/img/linkbar2.gif

ファイル一覧のサンプルで十分だろ　一覧を取得しながらメニューを作るだけ　アイコン描画が若干面倒かもしれないが

それを一発でやってくれるライブラリを作ってってことだろ

プログラムが面倒ならプログラマなんてやめろよ

D7とFB2.5で開発中なのですがDBEditで登録済みのレコードの日付を修正する時にnullに戻すにはどうしたらいいでしょうか

>>24
DBEditのDataFieldプロパティに指定しているフィールドを
FieldByName('フィールド名').Clearとかでクリアすればいいんじゃない？

>>25
ありがとうございます
どのイベントに記述ればいいでしょうか
onchangeやonvalidateに書いてみたのですがうまくいきませんでした
やりたいことはレコードを読んでデータが入っている日付型のフィールドを
キー入力でクリアしたいのですが、Delキーで消して次のフィールドに移ろうとすると
「' / / 'は日付ではありません」というメッセージが出て先に進めなくなります
これを何とかしたいのです

>>26
う〜ん。細かい原因はデバッグしてみないと分からないなあ。
メッセージを見る限りDBEditをクリアしてもデータセットには' / / 'をセット
しようとてるみたいだから、何故そうなるのかを追及しないと。
最終的には問題の日付型のフィールドのOnSetTextイベントでどうにかできるん
じゃないかな。

データベースの主キーだからヌルにできないとか？

>>27-28
ありがとうございます
ネットをあさったところDBEditのonKeyDownにDelキーが押されたらフィールドをクリアするというのを見つけて
試してみたらうまくいきました
' / / 'が残るのはEditMaskの設定でそうなってます

的外れなことを聴く初心者です。
済みませんがお伺いいたします。

以下のサイトでボタンが1〜4までありますが
何の処理をしているのでしょうか？
http://delphi.cjcsoft.net/viewthread.php?tid=43607

作ってみた方が早い思い作ってみましたが、
何の変化もしないため、解釈に困っています。

見りゃ大体わかりそうなもんだが。1はCD-ROMドライブのボリュームの取得、2は設定、
3はAUX入力のボリュームの取得、4は設定だろ、多分。
http://msdn.microsoft.com/en-us/library/windows/desktop/dd756711.aspx

>>31
ありがとうございます。
ソースに普通にCDとAUXって入ってました。
全然動かなかったのでパニクってました。

もう1つご教授いただけないでしょうか？
PS3用のリモコンを使ってアプリを操作したいと思っています。
コマンドとして"VK_MEDIA_PLAY_PAUSE"を送った場合には
イベントハンドラにはどう反映させたら良いのでしょうか？

D7でボタンをいくつか縦横に並べてカーソルキーを使ってフォーカスのあるボタンを移動したいのですが
どうもボタンにフォーカスがあるとキーボードイベントが発生しないようでうまくいきません
上下矢印キーを押したときは上下に、左右矢印キーを押したときは左右にフォーカスを移動させたいのですが
どのようにしたらいいでしょうか
フォームにパネルを置きその上にBitBtnを配置しています
フォームのkeypreviewはtrueにしてあります

おれだったらTObjectの配列を用意して各ボタンを突っ込んでおく
それでメッセージループでキーボードイベントを受け取って、どこにフォーカスするか決める
１０ｘ１０列とかボタンが規則性のある並び方ならできると思う

Bitbtnかよw

>>34
BitBtn自体のKeyPressイベントに書いたらいいんじやないの？
例えば左にBitBtn1、右にBitBtn2を並べてBitBtn1にフォーカスがある時に→が
押されたらBitBtn2にフォーカス移動したいならButton1KeyPressに
if Key = '27' then Button2.SetFocus;と書けばいい。

Windows標準のコントロールの挙動で苦しめられるよりは自分で作ってしまった方が楽なことがあります。
全部作ると大変ですがグリッドコンポを使ってそれらしいものを作ってみました。イカソース(1/5)。

type
　{ フォームにDrawGridを置き、AlignをalClientに、DefaultDrawingをFalseに、FixedColsとFixedRowsを0に。}
　TForm1 = class(TForm)
　　DrawGrid1: TDrawGrid;
　　（※中略）
　private
　　{ Private 宣言 }
　　FPushed: boolean; // ボタン凹み中
　　FPushedCol, FPushedRow: integer; // どのセルのボタンが凹んでいるか
　　procedure PushDown(ACol, ARow: integer);
　　procedure PushUp;
　　procedure InvalidateCell(ACol, ARow: Integer);
　　procedure DrawCell(ACol, ARow: Integer; Rect: TRect; State: TGridDrawState);
　　procedure ButtonClicked(ACol, ARow: Integer);
　　procedure ResizeCells;
　end;
（※中略）
//　偽ボタンクリック時の処理。
procedure TForm1.ButtonClicked(ACol, ARow: Integer);
var
　msg: string;
begin
　msg := format('[%d,%d]のボタンが押されたよ！', [ACol, ARow]);
　Application.MessageBox(PChar(msg), 'ボタンが押されたよ！');
end;

//　指定されたセルを描画します。
procedure TForm1.DrawCell(ACol, ARow: Integer; Rect: TRect;
　State: TGridDrawState);
const
　cPushedOffset = 2;
var
　IsThisCellPushed: boolean;
　uState: uint;
　str: string;
begin
　str := format('[%d, %d]', [ACol, ARow]);
　//　このボタンは押されている？
　IsThisCellPushed := (FPushed and (ACol = FPushedCol) and (ARow = FPushedRow));
　//　ボタンそっくりの絵を描く。
　uState := DFCS_BUTTONPUSH or DFCS_ADJUSTRECT;
　if IsThisCellPushed then
　　uState := uState or DFCS_PUSHED;
　Windows.DrawFrameControl(DrawGrid1.Canvas.Handle, Rect, DFC_BUTTON, uState);
　//　ボタン文字列の描画。
　DrawGrid1.Canvas.Brush.Style := bsClear;
　if IsThisCellPushed then
　　Windows.OffsetRect(Rect, cPushedOffset, cPushedOffset);
　Windows.DrawText(DrawGrid1.Canvas.Handle, PChar(str), Length(Str), Rect, DT_NOPREFIX or DT_CENTER or DT_SINGLELINE or DT_VCENTER);
　if IsThisCellPushed then
　　Windows.OffsetRect(Rect, -cPushedOffset, -cPushedOffset);
　//　現在位置のボタンならフォーカスの点線枠を描く。
　if gdFocused in State then
　begin
　　DrawGrid1.Canvas.Brush.Style := bsSolid;
　　Windows.DrawFocusRect(DrawGrid1.Canvas.Handle, Rect);
　end;
end;

//　グリッドのOnDrawCellイベントハンドラ
procedure TForm1.DrawGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
　Rect: TRect; State: TGridDrawState);
begin
　DrawCell(ACol, ARow, Rect, State);
end;
//　グリッドのOnKeyDownイベントハンドラ
procedure TForm1.DrawGrid1KeyDown(Sender: TObject; var Key: Word;
　Shift: TShiftState);
begin
　if Key = VK_SPACE then
　　PushDown(DrawGrid1.Col, DrawGrid1.Row);
end;
//　グリッドのOnKeyUpイベントハンドラ
procedure TForm1.DrawGrid1KeyUp(Sender: TObject; var Key: Word;
　Shift: TShiftState);
begin
　if Key = VK_SPACE then
　　PushUp;
end;
//　グリッドのOnMouseDownイベントハンドラ
procedure TForm1.DrawGrid1MouseDown(Sender: TObject; Button: TMouseButton;
　Shift: TShiftState; X, Y: Integer);
var
　MouseCol, MouseRow: integer;
begin
　if Button = mbLeft then
　begin
　　DrawGrid1.MouseToCell(X, Y, MouseCol, MouseRow);
　　PushDown(MouseCol, MouseRow);
　end;
end;

//　グリッドのOnMouseUpイベントハンドラ
procedure TForm1.DrawGrid1MouseUp(Sender: TObject; Button: TMouseButton;
　Shift: TShiftState; X, Y: Integer);
begin
　if Button = mbLeft then
　　PushUp;
end;
//　フォームのOnResizeイベントハンドラ
procedure TForm1.FormResize(Sender: TObject);
begin
　ResizeCells;
end;
//　指定されたセルの再描画をWindowsにお願いする。
procedure TForm1.InvalidateCell(ACol, ARow: Integer);
var
　aCellRect: TRect;
begin
　aCellRect := DrawGrid1.CellRect(FPushedCol, FPushedRow);
　InvalidateRect(DrawGrid1.Handle, @aCellRect, True);
end;
//　ボタンを凹ます。
procedure TForm1.PushDown(ACol, ARow: integer);
begin
　FPushed := True;
　FPushedCol := ACol;
　FPushedRow := ARow;
　InvalidateCell(ACol, ARow);
end;

//　凹ませたボタンを戻す。
procedure TForm1.PushUp;
begin
　FPushed := False;
　InvalidateCell(FPushedCol, FPushedRow);
　ButtonClicked(FPushedCol, FPushedRow);
end;
//　ボタン群のサイズ調整。
procedure TForm1.ResizeCells;
begin
　with DrawGrid1 do
　begin
　　DefaultColWidth := (ClientWidth - GridLineWidth * (ColCount - 1)) div ColCount;
　　DefaultRowHeight := (ClientHeight - GridLineWidth * (RowCount - 1)) div RowCount;
　end;
end;

以上です。Turbo Delphi Explorer / Windows 7 (64bit)で作りましたが古いバージョン、古いOSでも動くと思います。
このサンプルではDrawGridを使っていますが
StringGridを使ってボタンのテキストをCellsプロパティに持たせてもよいでしょう。

以前書き込みした見当違いの質問をする初心者です。

wavやmp3ファイルの時間単位の長さ(5分12秒とか)や
現在の経過時間(1分16秒とか)を取得するには
どういう手続きがいるのでしょうか？

まず、wavやmp3のファイル構造を調べます。

長さはファイルに記録されているだろうし経過時間は再生開始時間との差を見ればいいけど、
それ用のコンポーネント任せにすれば簡単だろうね　ビットレートとかタグとか知りたい情報あるだろうし

>>45
そんなに難しいとは思えないのですが、
いくら探しても情報が出てこないんです…。

何を使って再生してんのか、話はそこからだ

で、wavやmp3のファイル構造を調べたの？

無視されて腹が立ってるけど、
次は、Delphiでのファイルの取扱の作法を学びます。
いろいろありどれもよいものだが、個人的にはここでは TFileStreaｍあたりだろうか。
とりあえずここまで。

日記は他でやれ

>>49
すみません。
>>44さんとかの仰っている意味がしばらく分からず呆然としていました。
mp3は後回しにしてwavの構造なんかはフォーマットを見ながら確認しました。
wav構造で44.1kHz,16bitステレオなのでそこから計算していけば良いのでしょうか？
全然分かっていない感じですみません。

>>47
FileListBoxで選択したファイルをTMediaPlayerに丸投げするだけのソフトです。

TMediaPlayerクラスにない機能を追加したいってことだろ　継承して作ればいいじゃん

情報の取得にTMediaPlayerの何らかの機能が使えるわけでもないし、
わざわざ継承して作る意味を感じないんですが？

>>52
実現できる知識があれば、困らないわけで…

コンポーネントですとか、解説しているサイトなどありましたら
教えていただけないでしょうか？

目の前の便利な箱で調べてみたら?

しつこく探しましたが、見つからなくて困ってます。

TMediaPlayerはCurrentPositionや、Duration等の情報も公開しています

たとえば「Delphi mp3 演奏時間」とかでググってみた？
読んでないけど
http://drang.s4.xrea.com/program/tips/lib/use_mp3infpW.html
とか
http://www.sm.rim.or.jp/~shishido/mp3dev1.html

Delphiは結構古いコードでも動くからとりあえず動かしてエラーが出たら直していって
色々試してみればいい

ｈｔｔｐ：／／ｗｗｗ．ｋｏｂｍｏｖ．ｓａｋｕｒａ．ｎｅ．ｊｐ／ＤｅｌｐｈｉＴｉｐｓ／ｍｃｉＳｅｎｄＳｔｒｉｎｇ．ｈｔｍ
ってNGワードなんだな

delphi wav 再生時間
なんかのキーワードで検索してもヒットしないんです。
http://www.bvbcode.com/jp/1o89mx6g-1654126
なんかはそれっぽい感じもしますが。

CurrentPositionや、Durationについては、再度ヘルプを見てみます。

検索のしかたを覚えるのが先だね

>>60
>>58 の三つのアドレスは開いて読んでみた？
「読んでないけど」とは書いたけど一応ざくっと目は通してから書いたんだが

http://peace.2ch.net/test/read.cgi/tech/1353119767/
前スレにもmciやMediaPlayer絡みの質問あるけど、君なんだろ？
１年以上たってる？がまだそんなことも自己解決できんとは正直全然進歩してないな・・

英語が得意だと、delphiの英語の資産を調べていくらでも解決策が見つかる stackoverflowのフォーラムとか
意外とそんなところでつまづく人もいるのかな　日本語情報は英語情報の３割ぐらいしかないと感じる

>>59
そこのレンタルサーバー関係がNGワードになってますね。
タラコ唇のあいつがそこを借りて大量アクセスしてましたから。

>>62
教えていただいたリンクについては、ソフトを作るときに最初に目を通しています。
手元に印刷して取ってありますが、DLLの取り扱いが必要なことと、
TMediaPlayerでMP3の再生ができるので、活用していませんでした。申し訳ありません。

>>63
まさしくその通りで、時間があるときにDelphiをいじっている感じです。
1年前から全く成長していないのは自覚しています。
未だに、wavとmp3でボリュームコントロール一本化できないのはなぜか分かっていません。

>>64
明らかに必要なタイトルが分かるページは目を通していますが、
フォーラムなんかだとほとんど分からないレベルです。

http://code.google.com/p/beer-media-server2/
このソースを参考に mediainfo.dll を使用してみては。

スタックオーバーフローか
最近ロシアと交流してたせいかロシアの固有名詞に見えたよ

数年ぶりにソフト作りたくてこのスレ見ました。
Del7のことがレスされてますが、win7 64bit環境でDel7使うときの注意事項ってUnicode位なものでしょうか？

UAC
Unicodeは逆にあまり気にしてもしょうがない(できたプログラムはANSI=Shift_JISだから)
あと可能ならIDEはXPモード上で動かせ

BDE

Delphi7の RegisterClass API リソースリーク関連
unit Classes;
procedure DeallocateHWnd(Wnd: HWND);
var
Instance: Pointer;
TempClass: TWndClass;//Add
begin
････
if Instance <> @DefWindowProc then FreeObjectInstance(Instance);
Windows.UnregisterClass(UtilWindowClass.lpszClassName, HInstance);//Add

unit Controls;

procedure TWinControl.DestroyWindowHandle;
var//Add
Params: TCreateParams;//Add
begin
CreateParams(Params);//Add
････
finally
Exclude(FControlState, csDestroyingHandle);
Windows.UnregisterClass(Params.WinClassName, HInstance);//Add
end;

続き

destructor TWinControl.Destroy;
var
･････
Params: TCreateParams;//Add
begin
CreateParams(Params);//Add
Destroying;
･･･
if FHandle <> 0 then DestroyWindowHandle;
Windows.UnregisterClass(Params.WinClassName, HInstance);//Add

unit Forms;
destructor TApplication.Destroy;
begin
･････
DestroyWindow(FHandle);
end;
Windows.UnregisterClass(WindowClass.lpszClassName, HInstance);//Add

visual studioではなく、delphiを使う
利点を教えて下さい。delphiは使った事は無いのですが、visual studioと同じくらい完成度の高い統合開発環境ですか?

逆にVisual Studio使った事がないんだけどコンパイルが早いんで少しずつ作っては
試しで実行するのがストレスなく出来るとかかな？

どうしてvisual studioを使わないんですか? intelではなくAMDのパソコンを買う
ような感じですか?

会社で担当してるプロジェクトがDelphi製のシステムだからだよ。
趣味で両方使ってる人のほうが的確なコメントが出来るかもね。

>>76
どっち使っても目的とする物ができたらいい
VSだろうがDelphiだろうが道具
必要十分であればそれでいい

1.単体で動くexeが作れる
フレームワークの有無やバージョンに関わらず動作させられる

2.マルチプラットフォームで動作するアプリが作れる
特にアンドロイドかな？CPUはARMになるけど

3.さらにはWebサービスがほぼDelphiの知識のみで簡単に作れる

ざっとあげただけでもメリットは多いよ

>>79
＞1.単体で動くexeが作れる
＞フレームワークの有無やバージョンに関わらず動作させられる

本当ですか?frameworkいらないんですか?
驚き桃ノ木です。delphiに乗り換えようかなと本気で思いました。検討します。

うーん、結局好みで選べばいいのかな？
自分にとってのメリットは他の人に当てはまるかどうかはわからんし…

>>80
実行環境にフレームワークは要らないですよ。
ただ今はデフォルトでフレームワークは入ってる時代だけどね
でもフレームワークのバージョンによっては動作しないアプリもあるしね

visual studioだとc#のアプリ作ったら簡単に逆コンパイル出来ますがdelphiだとどうなるんですか?frameworkいらないならc#でもネイティブなexeが出来るんですか?

>>82
どんなコンパイラを通そうが動作するアプリケーションはすべてリバースエンジニアリングできる
出来上がりの可読性が高いか低いかは別問題だけどなー

C#っていうか.netはJITでしょ？
単体で動く実行形式はできないと思われ

Delphiはリバースエンジニアリングについては普通のネィティブコンパイラと同じなのかな？
アセンブラレベルには戻せるだろうけど
やったことないからわかんないです。

あと.netは難読化しないとwwだからなぁ〜

>>83
vsのc#だと逆コンパイルするとほぼ完全にソースコードレベルまで復元出来ますが
delphiのc#でも同じですか?

delphiのc#wwwww

>>85
相当な勘違いしてる？
C#とDelphiでは利用するプログラミング言語自体が違うよ
DelphiはPascal系の拡張言語、対するC#はC/C++系の文法を踏襲してる
またDelphiはCPUネィティブなコンパイラなのに対して、C#は中間言語＋実行環境

うーん難しい、、説明しきれない…
とりあえずDelphiの場合はマシン語レベルまで実行形式が翻訳されるから、高級言語のソースレベルまでリバースするのは困難かな？

Delphi7で範囲チェックが発生するのでFix

function SetFilePointerEx(hFile: THandle; liDistanceToMove: Int64;//Add
var lpNewFilePointer: Int64; dwMoveMethod: DWORD): Boolean; stdcall;
{$EXTERNALSYM SetFilePointerEx}
function SetFilePointerEx; external kernel32 name 'SetFilePointerEx';//Add

function FileSeek(Handle: Integer; const Offset: Int64; Origin: Integer): Int64;
{$IFDEF MSWINDOWS}
{
begin
Result := Offset;
Int64Rec(Result).Lo := SetFilePointer(THandle(Handle), Int64Rec(Result).Lo,
@Int64Rec(Result).Hi, Origin);
end;
}
begin
if not(SetFilePointerEx(Handle, Offset , result, Origin)) then//Fix
Result:=-1;//Fix
end;

C#とDelphiを天秤にかけて何を迷う必要があるの？
今のC#ならJITコンパイラのおかげでC++よりも
パフォーマンスが上になる状況も多いのに
Delphiは最適化が糞だから遅いよ

.net の呪縛から逃れられる利点は大きいと思う

C#www

マルチプラットフォーム対応のアプリを作るにはいい選択じゃないかな
xamarinとかでC#でもいけるみたいだけどMSはやはりWindows基準になるから、マルチプラットフォーム対応してもいつ潰されるかわからない

C#のがC++より速いってマジ？
vsのC#とDelphiXE6で簡単なテストプロ(XorShift乱数を発生)で比較したら、3.5倍以上Delphiのが速いんだけど…

コンパイラの実行速度比較はしちゃいけないんじゃなかった？
MSが言い出したんだっけ
なんだそりゃww
C#なんて所詮そんなもん

最適化具合や特定の処理によっては速いってだけでしょ
でもまぁC#をネイティブ化する「.NET Native」ってのも
予定されてるみたいだし、将来性は語るまでもないよね
サポート体制も段違いだし
普通の企業ならBMPの不具合も早々にパッチ出してるよね
あげく、ユーザーにソース修正させるとかないわ

>>95
.netの実行ファイルのネィティブ化って昔から言われてるけど未だに実現してないしなー
ってかネィティブ化したら.netなんて意味ない
(´`:)
あとマルチプラットフォーム開発を視点にするとVSにはまともな将来性などありません

スレ違いなんで落ちます(´V`)♪

>>95
上でStarter使用者はソースないからBMPの不具合を
修正できないって言ったものだけど、エンバカにメールしたら、
ソース提供はしない、金払ってアップグレードしてくれと言われた

普通の不具合だったら、百歩譲って、それもアリとも思うが
セキュリティに関連した不具合だからね

予想はしてたけど、さすがに呆れた．．．

普通以下の体力しか無い企業としてはサポート切れの製品は新しいの買ってくれというのは仕方ない
天下のMSですらそんなもんだ
あっちは体力があって尚且つ政府レベルの圧力がある関係上、
サポートが10年単位とかアホみたいに長くて無償で何でもかんでもやってくれる印象があるんだろうけど、
普通にサポートが切れた製品は新しい製品に移行してくれと言ってる
最近パワポでBMPの比じゃない致命的な脆弱性が見つかったけど、XPはサポート外として非対応だし

まあ正直Starterくらい買えよと思うが
自力で修正できるProユーザーはその分金払ってんだし

Xpとdelphiを比較する？

Xpは10年以上前だし、XEシリーズなんか
バージョンアップが多いけど、出てまだ4年だし

自分は趣味でフリーソフト公開してるだけだけど
開発環境に金出すとか無理だし、Starterが限界

でも最近はさすがに他への乗り換えを考えてる
メインのソフトは2万行越えてるから移植は無理だけど
新規はdelphi使わない積もり

うだうだ言ってないで好きなの使えばいいんじゃね

選択者のセンスの問題。情報弱者が.netを選ぶ

ところでみんなどのバージョンのDelphi使ってるの？

>>103
いまだに2007。

>>100
未練タラタラのかまってちゃんはウザいので最近といわず今すぐ乗り換えてくれないですかねぇ

>>100が貧乏で開発環境に出す金すらないことは責めないであげて
悪いのは日本の政治だから…

>>106
だって、昼飯代を引くと小遣い15kしか残らないんだよ
Proとか夢のまた夢．．．

おれはDelphiは軽自動車だと思ってる 最高速を出したいなら向かない
小回りは利いて便利なんだけど、速度面で不満は残る

たぶんメモリの使い方に難があって、関数のインライン展開ってXEではできるはずなんだけど効果が薄い
C系のコンパイラはインライン展開でメモリをドカ食いするけどその代わり速い

>>97
embarcaderoのホームページに記載されてるけどHotfixが出てる
Starter用のもある
95が言ってるパッチは既に出ている
>>95 >>97この人たちは何が言いたいんだろう？

>>109
そのページどこよ
XE4以前のバージョンの対応が欲しいんだけど
メールでの告知も9/25にXE6についての１通来たきりなんだけど
新バージョン買えって言い分は分かるけど
いくらなんでもバージョンアップサイクル早くしすぎだろ

上の方で音声の再生のことで聞いた者です

流れちゃった…

再生ボタン�@とFileListBoxに出ているファイルリストを1つずらすボタン（次の曲）�A
のソフトを作っていていますが、notfyイベントが起きたときに�Aを押しますが

ボタン�@でwavを流しているときに、�Aボタンをおしてカーソルを移動した後
�@の先頭から処理をさせるにはどうしたら良いんでしょうか？
分かりにくい文で済みません

>>112
ホント分かりにくい

「�@の先頭から」ってどういう意味？
�@って再生ボタンじゃなかったっけ？

>>110
>>109じゃないからそのページについては知らないが、
別にTBitmap等のクラスを必ず使わないといけないわけじゃないし、
TSpeedButtonみたいにTBitmapがプロパティにあって使わざるを得ない場合も
TBitmapで直接読まずにWIC等を経由すればいいだけだからパッチが無くても回避方法はいくらでもある

>>113
済みません
省略しすぎでした。

まずはwavがまともに扱えられねばと言うことでやってます。
TMediaPlayerには再生に必要な手続きをとっています。
playボタンを押すとnotfyがfalseにセットします。
曲の再生終了でnotfy=TrueになりOnNotfyイベントで
FileListBoxを1つ移動させます（次曲ボタン処理）。

この時に次曲ボタンを押してPlayボタンのprocedureの頭からまた
再生するにはどうしたら良いのでしょうか？

BASICで言う所のgosub,return処理みたいなことを行いたいのです。
ソースを見ていただいた方が早いでしょうか？
よろしくお願いいたします。

皆さんは、delphiの知識というのは何から学ばれているのでしょうか？

お前さんはまずコミュニケーションの勉強から始めようか…
>>113は省略されて分からないとは言ってない。文章の意味そのものが分からないと言ってる
そして>>115でも文章が破綻してる
お前さんが何をしたくて今どうしてるのかなんて誰にも分からないんだから、
もう少し他人に理解できるような文章を書いてくれ

関数Bから関数Aの処理を呼びたいって話なら簡単にできるけど？

まさかそんな単純なことでつまづいてんのか

なにがわからないのかわからない

まさかbutton.onclickイベントかどっかで再生終わるまで
while true do begin
application.processmessages;
if 再生終了判定 then break;
end;
とかやってたりして。

ですなぁ。>>112とか>>115を自分で読んで、(前提なしの他人が読んでも)きちんと理解できる質問なのかを
まずは考え直してほしい。

すいません
本人がどう説明していいか分からなくて…

>>117のような感じで
Button1の処理の最中にButton2を呼び出して
Button1の処理を最初からやる感じなんですが。

どう説明したらいいかわからない質問にどう答えたらいいの？ってこった。とにかく細切れ、省略、いいわけを
全てやめて、最初からきちんと質問をまとめ直したほうがいい。>>121みたいな書き方は非常に答えにくい。
『...な感じで...感じなんですが』、だったらそういうコードを書けば？と思ってしまう。

>>121
Exit

procedure TForm1.PlaybtnClick(Sender: TObject);
begin�@
MediaPlayer1.filename:=filelistbox1.FileName;
MediaPlayer1.Notify := false;
MediaPlayer1.open;
MediaPlayer1.Rewind;
MediaPlayer1.Play;
MediaPlayer1.Notify := True;
//ここでNextBtnClickの処理をさせたい
//ここでbegin�@に戻りたい
end;

procedure TForm1.NextBtnClick(Sender: TObject);
begin
if FileListBox1.ItemIndex=FileListBox1.Items.Count-1 then
FileListBox1.ItemIndex:=0 else FileListBox1.ItemIndex:=FileListBox1.ItemIndex+1;

end;

こんな感じです。イロハのイだと思いますが、
調べても分からず困っています。

>>121
こんなことしたいのかねぇ？

procedure TMyForm.PlayButtonClick(s:TObject);
begin
// 再生を開始
end;

TMyForm.NextButtonClick(s:TObject);
begin
// 停止
// 次曲に進める
// 再生を開始
end;

こんな感じ？

procedure TForm1.NextButtonClick(Sender: TObject);
begin
if FileListBox1.Items.Count > 1 then begin
if FileListBox1.ItemIndex = FileListBox1.Items.Count - 1 then
FileListBox1.ItemIndex := 0 else FileListBox1.ItemIndex := FileListBox1.ItemIndex + 1;
PlayFile(FileListBox1.FileName);
end; end;

procedure TForm1.PlayButtonClick(Sender: TObject);
begin
if FileListBox1.FileName <> '' then PlayFile(FileListBox1.FileName);
end;

procedure TForm1.PlayFile(Filename: string);
begin
if FileExists(Filename) then begin
MediaPlayer1.FileName := Filename;
MediaPlayer1.Wait := true;
MediaPlayer1.Open;
MediaPlayer1.Play;
end;
end;

procedure TForm1.StopButtonClick(Sender: TObject);
begin
MediaPlayer1.Stop;
end;

なんか前向きに

PlaybtnClick 内でNextBtnClick(Sender);　って直接呼べる　クリックイベントを起こさなくても

あと、BASICでいうgotoは、Delphiでもできる

　var
　　label: LABEL1;
　begin
　LABEL1:

　　〜何かの処理〜

　//関数の先頭に戻る
　goto LABEL1;

ただし永久ループになってはいけないので注意が必要

こういうレベルの人にgoto教えるとかやめて…

>>128
これはやってしまいましたなあ

>>126
ソフトのソースをいただけませんか？
色々勉強させていただきたいのです。

>>128
NextBtnClick(Sender);　
の形で他のブロックに処理命令が出せるのを初めて知りました。
利用させていただきます。
レベルの低い質問で申し訳ありません

>>131
ソースいただけませんか？ってソース丸々あるのに何を言ってるんだね君は。

>>132
ミュージックフィルターというのが使ったことが無いのと
全体的に指令を出しているのがどのコンポーネントなのかと
手元で動かしてデバッガーを使いながら勉強させていただきたいと思いました。

PlayFileでエラーが出ていまして、どういう定義を行っているのかと
確認したいと思っています。

>>131

>>126だけど、ソースって言っても、ここに書いたものがすべてだよ

ただ、一曲の再生終了後に次の曲に移る部分だけは追加実装してみた

さらにTrackBarを追加しようと思ったけど何かヘン
TMediaPlayerの曲のLengthの値が異常に大きい

たぶんVBRなmp3だとそうなるのかも

検索すると、この問題を解決するにはmp3ファイルから直接
何らかの方法で曲の長さを取得する必要があるとか

気が向けば夜にでも追加部分を…

>>134
エラーが出たならまずエラーの内容を書くのが当然でしょ…
誰がそちらのPCで出たエラーの内容を知っていてそれに答えられると思ってる？
というかメソッドのことをブロックと呼んでいたり、
今までの言動を見ても基礎的な知識が圧倒的に足りなさすぎるから、
レベルの低い質問を詫びるくらいなら最低限の知識は身につけて来なよ

>>135
>>126で頂いたソースを私の方で入力したものとエラー画面をキャプった画像と
私が今まで作っていたものをロダにあげました。
http://fast-uploader.com/file/6970198542024/
pass:delphi
です。

>>136
仰る通る、いくら初心者用といえど限度があるのは事実ですので
もう少し勉強して（言語ガイドになるのでしょうか）出直してきます。
用語の使い方が分かっていないのは致命的ですので。
失礼しました。

>>137
えー・・・　TForm1はPlayFileという名前のメンバを含んでいませんって
IDEさんがちゃんと教えてくれてるのになんでメンバを含ませようとしないの？

>>138
！
完全なぽかミスです。修正したら動きました。
>>135-136
>>138
お騒がせいたしました。
ありがとうございました。

>>139
朝言った追加と修正だよ
1曲終わったら次の曲に進むやつ

procedure TForm1.MediaPlayer1Notify(Sender: TObject);
begin
if MediaPlayer1.Position = MediaPlayer1.Length then begin
NextButtonClick(nil);
end;
end;

procedure TForm1.PlayFile(Filename: string);
begin
if FileExists(Filename) then begin
MediaPlayer1.Close;
MediaPlayer1.FileName := Filename;
MediaPlayer1.Open;
MediaPlayer1.Play;
MediaPlayer1.Notify := true;
end;
end;

>>140
改良までしていただきありがとうございます。
頂いたソースはどれも読みやすく勉強させていただきます。
今まで使い方が分からなかった手続きの処理など勉強になりました。

>>137
ちょっと今気づいたけどDelphiのプロジェクトファイルを公開するとき
***.dpr、*.dfm、*.pasだけにしたほうがいいよ

他のプロジェクトファイルには意図せず個人情報が含まれてたりするから
（Windowsのユーザ名が個人名だったりするとね）

Delphi7のリーク修正
destructor TCustomForm.Destroy;
begin
if not (csDestroying in ComponentState) then GlobalNameSpace.BeginWrite;
try
if OldCreateOrder then DoDestroy;
MergeMenu(False);
if HandleAllocated then DestroyWindowHandle;
Screen.RemoveForm(Self);
FCanvas.Free;
FIcon.Free;
FreeAndNil(FActionLists);
if FClientInstance<> nil then//Add
Classes.FreeObjectInstance(FClientInstance);//Add
inherited Destroy;
finally
GlobalNameSpace.EndWrite;
end;
end;

>>142
ありがとうございます。
ネットとかで.dprojファイルとかが無いのは、
プライバシーのためなんですね。
以後気をつけます。

Delphiで新規ユニットや新規フォームを作ったときの
デフォルトのusesを変更することって出来ますか？
generics.collections, types, math等を追加したいのですが

どっかのIDE関係のbplだかjaだかに埋め込まれてるので、これを書き換えれば…ただし最近の
バージョンではbinの下に署名のない、あるいは無効なファイルがあると起動しない(アンチクラック)ので、
まぁ無理だと思ったほうがいい。リポジトリを使うしかないかな？

今無料で使えるのってトライアル版の30日試用しかありませんか？
ぐぐると出てくる6.0Personalの公開ってなくなったんですよね？

どっちも『はい』
あとはAppmethod(30日以降はC++Builder/Androidのみ)

6.0Personal　はＣＤさえあれば、今でもインストールして使用可能

無料にこだわる人はJava Eclipseにすればいいんじゃないの　CだってVC ExpressとかBCCとかあるし
古いDELPHIは結局あちこち手を入れないと使えないので初心者向きじゃない

Delphi6の一番良いところは.NETを使わなくてすむところ

Lazarusでいいっしょ

GExpertsの
implementation 以降の
{$IFDEF MSWINDOWS}
{$ENDIF}
{$IFDEF MSWINDOWS}
{$ENDIF}
がずれるのを修正

procedure TCodeFormatterFormatter.doExecute(_Tokens: TPascalTokenList);

rtCompEndif: begin
// pop and free the saved stack
if not FStackStack.IsEmpty then
begin//Add
FStackStack.Pop.Free;
if not FIsInInterfacePart then//追加
FLastPopResType:=FStack.Pop;//追加
end;//追加
end;

Delphiで「\u3042」であれば「あ」という文字に変換するようなコンポーネントなどありますか？
あれば教えて欲しいです。

んなもんぐらい作れよ。プログラミングが面倒ならプログラマなんてやめろ

>>154
コンポーネントっていうより、下のような関数じゃだめなの？

function UniCodeToStr(Code: string): string;
begin
if (Length(Code) = 6) and (Copy(Code, 1, 2) = '\u') then
result := Char(StrToInt('$' + Copy(Code, 3, 4)))
else
result := '';
end;

ShowMessage(UniCodeToStr('\u3042'));

それとも質問の意味を誤解してる？

>>156
まさしくその通りです。
関数でも良かったので参考にさせていただきます。
素早い回答ありがとうございます。

参考にさせていただきます=ソース丸パクリさせていただきます

プログラマ向いてない

宿題終わったんだろｗ

おまいら
このスレのタイトルすら読めない阿呆なのか

知り合いに巻き込まれ、はじめてRAD Studioでプログラムを書くことになりました。
httpsなどでサーバに認証付きで接続してデータをやりとりするのですが、
認証のためのユーザ名やパスワードをどのようにプログラムに埋め込もうか悩んでいます?

そのまま埋め込んでビルドすると、stringsとかでさっくりユーザ名とパスワードが見えてしまってなんだかまずい感じです。
これらを暗号化してコードの中に…とは思うのですが、標準的(?)なやり方が分からず，我流でやっちゃうのも怖いなーと思っています。

どなたか一般的な方法など教えていただけないでしょうか。

認証用のユーザ名、パスワードをプログラムに埋め込むのはいかがなもんか、って気もするけど、それはともかく、
OSレベルでそういうのは用意されてんじゃね？WindowsならCrypt APIとか。ちなみにぼくのかんがえたさいきょうの
あんごうかを実装、は、ダメ。絶対。

>>162
ユーザー名とパスワードが固定なのか、使うユーザー毎に違うのかでも変わってくるけど、MD5とかのHash値比較でパスワードそのものはやり取りしない実装が多いんじゃないかなー。

だな。OSレベルで用意されてそうだけど。winなら資格情報なんたらってのなかったっけ？

Encrypt.dllとか言うのを使うのはどうだろう？

>>163
使用するユーザごとのユーザ名とパスワードもあるのですが、
こちらは、saltを付けてハッシュ化したものをDBに突っ込んでいて、
https接続した後のやりとりで登録したり認証したりするようにしていて、
https接続自体は全員で同じユーザ名、パスワードを使おうと思っています。
(というか、恥ずかしながら今のところそういう風にしか考えられていません。)

で、プラットホームなのですが、Windows, Mac, andoroidを対象としたいと思っています。
これらプラットホームに依存しない方法で暗号化してやれればと思っているのですが、
その鍵をそのままコードに埋めてしまっては結局意味が無いのかなーと思っています。

>>164
おっしゃってることはhttps接続の上でユーザごとでやっているので、
いっそ、httpsの接続はパスワードを無しにして…とも思ってきましたが、
httpsを生で叩かれ放題というのもなんだか怖い気がしています。

ユーザのパスワードも「毎回入力したくない」などと言われると、
何かしら安全な形で保存しておかなければいけなさそうですし、
双方向な(ハッシュでない)暗号化と鍵の管理は考えなきゃいけないんだろうなとは思っています。

>>165
まずはdelphiで使いやすそうな双方向な(ハッシュでない)暗号化方式を探してみて、
その鍵を実行ファイルの何か(ハッシュ?)から生成するとかな方向で考えてみようと思います。

ダラダラと同じようなことばかり書いてしまい恐縮です。
引き続きご助言などいただければ幸いです。

>>167
IDとパスワードをサーバーに送る

サーバーにIDとパスワードを保存する

ランダムなキーファイルをクライアントに送ってキーをサーバーに保存する

クライアントはキーを暗号化して保存する

キーをキーをサーバーとクライアントでハッシュ化して付き合わせる

ユーザー名とパスワードでキーを再発行する

ではいかんのか？

そういう仕事を請け負ったってことでしょ　なに質問スレで他人に頼ってんの　自力解決しろ

>>167
すみません、何か分かるような分からないような感じで、
実は理解できていません。

最初のIDとパスワードを送ってサーバに保存するところで、
他のアプリ(もしかするとブラウザからでも)ガンガン保存させられ放題な気がするのですが、
私の理解不足でしょうか?

仕事じゃないですー。
仕事でdelphi使ってないですー。

>>使用するユーザごとのユーザ名とパスワードもあるのですが、
>>こちらは、saltを付けてハッシュ化したものをDBに突っ込んでいて、
>>https接続した後のやりとりで登録したり認証したりするようにしていて、
https接続の後にユーザーごとに認証するならこれだけでいいだろ。

>>いっそ、httpsの接続はパスワードを無しにして…とも思ってきましたが、
>>httpsを生で叩かれ放題というのもなんだか怖い気がしています。
防ぎようないから。Twitterだって、公開してるAPIは叩かれる。
もちろん、https接続の後にユーザーごとに認証を通ってない
不正なアクセスは4xxの適切エラーのステータスコード返すようにして。

>>172
ありがとうございます。

やっぱり何重にも難しく考えすぎていたんですね。
サーバ側のユーザ認証だけで守るように全体の設計を考えなおしてみます。
(恥ずかしながら、現状は設計がメタメタでこれだけでは守れない部分があるのです。)

とはいえ、いずれユーザのパスワードもクライアント側で安全に保存したりしたいので、
何かしらの方法で暗号化というか、そういうことをしてローカルに保存しなきゃいけなそうなのですが、
そういうのってどうするのが一般的なのでしょう?…って、これはもうdelphiの質問じゃないですね。
自分でちゃんとお勉強してみます。

>>169
171の書き込みも私自身なのですが、あまりにも説明がなさすぎて失礼かなとも思い、改めて状況だけ説明しておきます。

以下、経緯です。長いので興味のない方は読み飛ばしてください。

友人が趣味でアプリを作っていて、これまではそのアプリを動かした結果…
といいますかスコア的なものをローカルでしか保存していなかったのですが、
サーバ上に保存してランキングなど見られるようにしたいと言われまして、
「じゃ、私がプライベートで動かしているサーバを使っていいよ」と提案したのですが、
httpsでの通信方法が分からないと言われたので、私自身は不慣れなのですが、
友人が使っているDelphiでサンプルのプログラムを作って渡したんです。

そのサンプルが、https接続のためのユーザ名やパスワードをそのまま埋め込んだもので、
友人がそのサンプルをそのまま使ってしまいそうなので不安になり、
何とかしたいと考えてここで相談させていただきました。

>>171
delphiの問題じゃないから

>>とはいえ、いずれユーザのパスワードもクライアント側で安全に保存したりしたいので、
>>何かしらの方法で暗号化というか、そういうことをしてローカルに保存しなきゃいけなそうなのですが、
これも、OS毎に用意されてる方法で格納しとけばいいでしょ。Androidなら、アプリごとのプライベートな領域が
あるからそこに格納しとけば、暗号化しなくても、ルートとってない限り他の悪意あるアプリからは読めないし。
Windowsの場合は・・

タブを盗んだ奴に解析されて終わりじゃん

おはようございます。

上の方で恥ずかしい質問をしていた者です。
やっとまともに動くソフトができました。
お時間がありましたらご評価頂けないでしょうか？

http://www1.axfc.net/u/3382478.rar
DLkey:delphixe5

ご教授頂いた前スレ503さん126さんありがとうございました。
MCIを使おうとしましたが、TMediaPlayerで十分でした。
体験版は１時間過ぎると終了してしまうんですね。
プログラミングは４０過ぎてから始めたので
いろんな意味でキツかったです。

>>177

>>126を書いた者だけど、自分は50過ぎてプログラミングを趣味で始めて
今はもう60歳だよ

>>177
興味があったのでダウンロードさせていただきました。
ソースは見てないので、使ってみて気付いた点をいくつか挙げます。
ちなみに使用環境はWin7 32bit環境です。

・「|<」 のボタンが押しても効かないような気がします。
「>|」ボタンはちゃんと動作しました。
・mp3ファイル演奏中に対応していないファイルを選択
　→「MCIの初期化で・・・」のメッセージボックスがひたすら立ち上がります。
　致命的です。
・画面右上の最大化ボタンを押したときに他のコントロールが拡大しない。
　最大化ボタン無効にすべきだと思います。

とりあえずこんな所です。頑張ってください！

>>178
更に先輩が…。
>>178を見たときに>>177が失礼な物言いだったと反省しています。
MediaPlayerの使い方を教えて頂いたのに、
MCIを使おうとしたのは、現在経過時間を取得するためでしたが
>>126をみてMediaPlayer1.Lengthを見てMediaPlayer1.Positionを
ヘルプで発見してMCIを使う必要がなくなりました。
>>126のソースが非常にわかりやすかったため理解が進みました。

>>179
Win32環境下でメッセージボックスが出るエラーは先ほど私も確認しました。
OSそのものが停止してしまう事態が起きて他のソフトも巻き込んでしまっていたら
申し訳ありません。[|<]と最大化の問題は修正しました。
MCIエラーは拡張子フィルターを掛けて例外処理を施します。

前スレ50さんが仰っていたソース見た／見ていないと言っていたの真意と
フィルター掛けた／掛けていないことに確認されていたことに
今更ながら気づきました。
直接関係ない別の内容でも今でもあの時はこのことを指していたのかと思うことがあります。

完全に修正をした後に再度ご評価頂ければと思います。

>>177
俺も何度かレスしたけど
Delphi始めたのは三十後半だった

サバ読んでいますね活きの良いのが。
S48なのでそれなりですが。
Delphi4だか6でやたら分厚い何かをボーランドから買った記憶はありますが

さすがにスレチになてきたので

自分でスレチと言いましたが補足をすると、
それ以前からコンパイラは買っていましたが、
本が1冊10000円とかする時代だったので
手が出ませんでしたが、最近やっと買える値段になったので。

本は著作権などや資金的にクリアになったら
スキャン業者に依頼してもいいかもです。
国会図書館の方がいい気もしますが。

>>177
［|<］ボタンに対応するイベントの内容がおかしいね

こうすればどうでしょうか？

procedure TForm1.RevBtnClick(Sender: TObject);
begin
if FileListBox1.Items.Count > 1 then begin
if FileListBox1.ItemIndex > 0 then begin
FileListBox1.ItemIndex := FileListBox1.ItemIndex - 1;
PlayFile(FileListBox1.FileName);
end;
end;
end;

>>184
おはようございます。
「I<}ボタンのイベントハンドラな内のメソッド(?)が間違えていました。
FileListBox1.Items.Count < 1
になっていたためです。
>>184さんのソースを解釈していたため遅くなりました。
ぱっと見全て治ってそうなものはできましたが、MCIエラーの
対処が完全ではないため後ほどロダにあげますので、
再度ご評価頂けないでしょうか。

よろしくお願いいたします。

MediaPlayerを使っていた副産物でmp4がサポートできているのを
確認しました。

こんにちは
先ほど修正したファイルをロダにあげました。
アドレスはhttp://www1.axfc.net/u/3383127?key=delphixe2
です。

ぜひ、不具合やご意見がありましたらお知らせください。

LV := Word((DWORD($FFFF * Pos)) div 100);
RV := Word((DWORD($FFFF * Pos)) div 100);

>>182
さば読んでるって俺のことかな？俺は三十八年生まれだよ
Delphi 1 から買って少しだけ（俺自身が）まともに使えるようになってきたのは3.1の頃
職業も普通のサービス業でDelphiが初めてのプログラミングだったから
本もいっぱい買ったし毎日Niftyの書き込みを理解できないまま読みまくってフリーウェア作家にいきなり質問メール出したり
ネットが普通に使えるようになってからはググりまくった
ほとんど夜勤だったので睡眠時間を削って勉強した
しまいにはメルマガを書くようになったよ自分の勉強も兼ねて
途切れ途切れで結局十年以上続いたよ
ココまで書くと特定されるかも知れないけど

>>188
特定できませんでした

それはありがたいｗ

>>186
ご苦労さんです。
プログラミング的には問題ないと思います。

ただ、アプリとして少々．．．

1. DirectoryListBox1に初期ディレクトリを設定したほうがいい
繰り返し使うと、起動直後が結構メンドクサイ。レジストリや
Iniファイルを使うのが理想的だけど、そこまでしなくても、
MyMusicフォルダを初期値とするとか（SHGetSpecialFolderPathを利用）

2. ボリュームコントロールが少しぎこちない
以下のサイトを参考にするのもいいかも
http://www.swissdelphicenter.ch/en/showcode.php?id=618

3. PlayFileメソッドの入り口で、最低でも拡張子のチェックをしたほうがいい

4. サウンドファイルの拡張子として *.wma もお忘れなく

>>188
サバを読んでいたのは私でした。
最初にこのスレに書き込んだのはRAD Studio2010を購入した頃でしたが(確か)、
勉強し始めて質問したのは2013年四月頃でしたので、当時は30後半でもアリ
今は40過ぎでもあり…。最近はIEの倍率が150%位で使っていますが。

私はWizard常連だった瑞輝智佳さんという方がPascalへの熱い思いを語ってるのを聞いて。
2000年頃4を購入した記憶が…。
知り合いにプログラミングを進められたときにRAD Studio2010を買って今に至ります。

>>187
waveOutSetVolumeと言うものがあるんですね。さっきまで調べていました。
ボリュームコントロールだけは分からないと決めつけて忌避していたので、
どうしたら良いのかは少々お時間をいただけないでしょうか。

ボリュームコントロールは私の手元ではノイズが乗ったりしています。
なぜなのが分からないのですが。

ディスプレイの調子が悪くて、デスクトップを乗っ取ってネットブックから書いているため
見難いためレスが荒いのをご容赦ください。

ところで、>>186について、どうでもいい感想．．．

同梱の実行ファイルって、こんな小さいなアプリなのに
11MBもあるけど、なんで？

自分の環境（XE）だと、普通にコンパイルして1MB程度だけど

XE5でコンパイルしてるみたいだけど、XE5の問題？
それとも作者がデバッグ情報とか、なんか途方もないものを
実行ファイルに含めてしまってる結果？

>>191
１は仰るとおりマイミュージックが無難だと思います。
元々関連づけの勉強するためでもあったので
後回し気味でした。
２は私の環境由来なのか分からなかったのと、教えて頂いた方法では
wavのボリュームコントロールができなかった気が…、
ただ単にあるべき場所似なかっただけかもしれないので
そちらについては追追試します。
１．２に時間がかかるかもしれません。

たとえば、今回だとStopBtnのProcedure〜bigin〜end;の間を
イベントハンドラと言って、MediaPlayer1.Stop;をメソッドで良いのでしょうか?
191を見ていて大きな間違えをしている気がしました。

>>194
>wavのボリュームコントロールができなかった気が

確認した。Waveだとダメなんだね。

自分の環境だと、TrackBarを動かすと、イベントが発生しすぎて
再生がギクシャクしてしまう。で、以下のような変更するといい感じ


var
fVolume: DWORD = 0;

function VolumeChange(Pos: Integer):Boolean;
var
Volume:DWORD;
begin
// TrackBar1.Positionが100以上変化した場合のみ音量調整
if Abs(fVolume - Pos) > 100 then begin
Volume := ($FFFF * Pos) div 100;
Volume := MakeLong(Volume, Volume);
waveOutSetVolume(WaveDevID, Volume);
fVolume := Pos;
end;
end;

>>193
なんの確認もせずに憶測で書くけど（186のリンク先すら見ずに）

実行時パッケージを使わずに作っているだけじゃね？

明けましておめでとうございます。
>>196
そうです。
チェックを入れたら、2MBくらいになりました。
ただ、今まで作ったものだと「エラーがあります」とだけでて
コンパイルできないので、新しく作り直したらMCIのエラーがでて
困っている状況です。

昨日のうちに解決する予定でしたが、ダメでした。

こんにちは
先ほどファイルをあげました
いつのアーカイブの中に2つのアーカイブが入っています。
1つが今までのものと大差はありません。
ファイルサイズを小さくするために実行時の〜に
チェックを入れ得コンパイルすると「エラーがあります」
とだけ表示されて止まってしまうもの。

もう一つは実行時〜にチェックを入れるために作り直した者です。
こちらはファイル静は小さいですが、MCIのエラーが出ます。
原因はFileListBox.Filename=''でMediaPlayerに渡しているためと
推測していますが。デバッガーで追う前に停止してしまう状態です。
194の後ずっといじっていましたが分かりませんでした。
お手間をおかけしますが、お知恵を頂けないでしょうか?
http://www1.axfc.net/u/3383878?key=delphixe5
です。
特殊フォルダの指定は、勉強に時間がかかるため積み残しています。
今は、紙に出力して赤ボールペンで理解している状態です。
よろしくお願いいたします。

すいませんここデバッグ依頼スレじゃないんで(^^;

そんなつもりはなかったのですが、
そう映ってしまったのでしたらスマンです。

別にいいだろ。誰もいないんだし。

>>199の能力が低くて理解できなかっただけなのでお察し下さい

>>198
実行時パッケージを使わないでコンパイルが通るならそれでいいんじゃね？

＞原因はFileListBox.Filename=''でMediaPlayerに渡しているためと
＞推測していますが。デバッガーで追う前に停止してしまう状態です。

・エラーが発生していると推測するコードの前後にブレークポイントを仕込む。
　「前のブレークポイントは正常に停止、後ろのブレークポイントで止まらずエラーが出る」ならその間のコードに問題があると判断できる。
　（エラー箇所を特定する）

・TButtonを適当にくっつけてOnClickイベントにエラーが起きていそうなコードと、それの実行に必要な最小限のコードを書いて実行してみる。
　MediaPlayerにどういうデータを渡すとエラーになるのかを調べる
　（エラーの理由を調べる）
　→理由が分かったならそれを回避するコードを書く

で、Filenameが空でMediaPlayerに渡すとエラーになると思うなら、渡さないコードを書けばいいんじゃねーの？
（あとアップロードされたファイルはrarなんで見ていない。）

できました。
５５分毎に保存と再起動。
しかも、作り直したものはMCIのデバイスエラーが消えず、
昨日あげたものはなぜか実行時〜チェックしても
コンパイルできてた。サイズは2MBくらい。直近１５時間くらい返して欲しい。

ご評価ぜひともお願いいたします。
http://www1.axfc.net/u/3384092?key=delphixe5
寿命は3時間くらいです。

書き込みが…

rarはダメなんですか。rrつける癖が付いているので何も考えずに圧縮してました。
lzhとかの方が良いでしょうか?

自分が解凍できない（解凍ソフトを入れる気が無い）だけでダメとかじゃないよ

こんばんは。
>>203
しつこくステップで1行ずつ動かしていましたり
try-except-end構文など試しましたが、渡す前というか、
フォーム作った瞬間にMCIオープンエラーが出ています。

あたらしく作ったものは履歴をとっていて
プロトタイプ(FilelistboxとplayBtnとNext<Stop,ediaPlayer)
のものだとエラーが出ていなかったので
ちゃんと調べると実力が付くかと思っています。
突然出始めたのではっきりとした理由が分かっていません。

43さんのエラーの説明はよく分からない。ごめん。

それとは別に、自分だったら、こう作るかなっていうサンプル
http://www.geocities.jp/eqwatch2012/delphi/SoundPlayer.pas

43さんのコードは、インデントなし、コメントなし、使用されてない変数宣言あり、
変数や関数／メソッドの宣言場所が不適切．．．
まだまだ勉強すべき部分が多々あるような気がする

がんばってください

>>208
おはようございます。
すごい…
ボリューコントロールのうちポインタを使う方法の例もありましたが
Cを諦めた理由の1つでもあったのでポインタを使う方法は避けていました。
後は>>191と>>187でした。
印刷して読んで他はついていけそうです。
今こそ、ちゃんとオフィシャルコースとかを読むべき時期が来たかと

＞43さんのエラーの説明はよく分からない。ごめん。
エンジニアは技術を言葉に翻訳できないと話にならないのですが、
分からないところをが分からなかったので上手く説明できませんでした。

総じて40年生きていた人間の文章ではありませんでした。

大晦日から助けてくださった皆様ありがとうございました。
自分の力で何とかできるよう精進いたします。

>>209
これからコードを示す時は>>208みたいにソースの状態でアップするか、
それができないならpastebinやgistみたいなサービス使った方がいいよ
圧縮ファイルになってるだけでブラウザ、アーカイバ、エディタと必要な手順が多くてそれだけで人を選ぶ
ブラウザだけで見れた方がまだ見てくれる人は多いと思う

>>210
>>203

>>210
>>203で
>>（あとアップロードされたファイルはrarなんで見ていない。）
で、アーカイバの形式のことをさしていたのかと
ボケをかましましたが、上野他の方は皆ソースを書き込んでいたのを思い出し
あとで、それがこのスレのお作法なのだと後で気づきました。
このスレだけでは無いとも思いますが。
プロジェクトファイルが必要なのは自分だけですし。

あのソースでも整形を掛けるとだいぶ見やすくなりましたが、
検討中の残骸を残すよりも、文章で書いてあった方が自分でも分かります。
たくさん勉強させていただきました。

せめて圧縮するならWindowsのエクスプローラも標準で対応してるzipでいいと思うけど。rarとか実質1社しか圧縮ソフトだしてないようなフォーマットは俺も嫌いだわ。

203だけど・・・

>>212
＞アーカイバの形式のことをさしていたのかと
＞ボケをかましましたが、
自分を巻き込まないでくれｗｗｗ
>>213も言っているが、自分は普通にアーカイバの形式のことをさしていたんだよ
XP以上ならzipは標準対応だしlzhならまだ利用者はいると思う

＞あとで、それがこのスレのお作法なのだと後で気づきました。
単純にそのほうが早いからというだけ
ファイルをアップロードさせるのは面倒だし、
同時に相手方もダウンロードする（リンクを踏む）必要があって読まれない可能性が高い。
あとは丸々ソースコードアップするのは恥ずかしいｗという人もいるｗｗｗ
だが部分的なコードで説明するよりは全体を見てもらったほうが間違いを発見しやすい
どちらがいいかはケースバイケース

いろんな人がいますが
43の人がんばってください

>>208
午後まるまる掛けてソースを読んでいました。
学会的な質問できる箇所を探していましたが、
ポインタがらみの初心者的なことしなく…。

ただ、「このイベントの必要なのか」は、
本当はon ClickイベントでDirectoryListBoxで
シングルクリックでFileListBoxの内容が表示されるはずでした。
ポカで忘れてました。

array [0..1024] of char をstringにキャストするとヌルが切り詰められるのか

>>217
Nullで終わるarray of charをstringにするのは
キャストするか単に代入するだけでいいと思ったけど？

「ヌルが切り詰められる」って、どういうこと？
文字配列の最初のヌル文字までが文字列にコピーされると思う

実体は、PChar型を引数に受けstringを返す関数(名前忘れた、System.pasにあるやつ)が呼ばれてるんだっけ？

配列があらかじめゼロクリアされてれば、最初のnull byte (\0) までで文字列化だったかな

SetString

>>220
SetStringってヌルで終わらない文字配列の文字列へのコピーって感じかな

ヌルで終わる文字配列の場合はStrPasが簡単だけど今は非推奨？
てかStrPasのソース見ると代入してるだけ
function StrPas(const Str: PChar): string; begin Result := Str; end;

要するにヌルで終わる文字配列の文字列化はコンパイラがやるから
代入なり型キャストするだけでいいよって感じ？

そもそもdelphiの文字列の実体ってヌルで終わる文字配列の前に
各種情報を加えただけだしね

また分かりにくい質問でスミマセン。

d:\music\1．wav〜10.wavで、5.wavをダブルクリックしたときに
ListBoxコンポーネントなどで、カレントフォルダ内のファイル
を確認した上で5.wavから再生する方法はどうしたら良いのでしょうか？
サイトを見ていますが、難しいように見えて困っています。

>>222
FileExistsではいかんの？

>>223
やっぱり書き方が悪かったようです。すいません
コマンドラインの引数としてバイナリに渡したいのです。
??.mp4をエクスプローラー上でダブルクリックすると
wmpが起動して再生が始まりますが、あんな事をしたいと考えています。

>>224
ShellExecuteじゃいかんの？

わかりにくいと思うならわかりやすく書け

ParamStr(0)を解析する

まず下のページが理解できないと難しいかも

拡張子の関連付けの登録と削除
http://mrxray.on.coocan.jp/Delphi/plSamples/870_RegistEx.t.htm

>>222,224
残念ながらまだわかりません。
細々とした手段の話よりまず先に自分が何をやりたいか（目的）を伝える方が上手くいきやすいと思います。

あなたが作りたいものがWMPもどきのメディアプレイヤー（ぽいもの）で
エクスプローラー上で拡張子が.wavのファイルをダブルクリックすると
そのWMPもどきが起動してそのファイルを再生させたいのか、

それとも自作アプリのウィンドウに表示されている拡張子が.wavのファイル名を
ダブルクリックするとWMPを起動させてそのファイルを再生させたいのか、

あるいはこれらのどちらでも無いのか。

>>229
これまでの彼の発言を見てると明らかに前者だろうね

で、プログラムで拡張子の関連付けの変更はやめたほうがいい
レジストリを弄るから彼には危険すぎる
OSのツールを使った方がいい

後は>>227の言ってるようにパラメータをチェックして
再生可能ファイルだったら再生するとか…

こんばんは

>>226
>>226
分からないところが分からないって感じで…。お手数をおかけします。
キーワードを知らないことが多いです。
>>228
どうもです。最初Mr.XrayさんのところのドキュメントNo.480,485辺りを読んでいて
分からないところだらけで途方に暮れました。今年の正月に怒濤の修正がだいぶ入ったことを経験したのである程度なら読めます。
>>229
遠雷さんという方が作ったmp3再生君が目標です。
ソフト見ながら解説して頂けると良い感じですが、そこまでは図々しいですね。
今後は
こんなソフト作りたい→今ここではまって増すみたいな方が良いですか？

がんばってきます

>>231
このテンプ埋めるところからやろうぜ

・何がしたいか(最終目標)
・自分はどうやったのか
・何に躓いているのか
・エラーが出るならエラーの詳細
・必要な動作と違うなら何が違うのか

まだやる気かいな

まずコテつけろ(相手にしたくないと思ってる人もいるはずなので)
手を抜かず説明をしろ(現在置かれている状況と、既にわかっていることと、そこからやりたいこと)
読んだ人が労力をかけずにわかるようにURLとかをちゃんと書け

つまりは自分勝手ではなく、同じことを他人から質問されたときに答えたくないと思うようなことをするなってことだ

>>231
漠然と分からないじゃ答えられないよ

具体的にコードを示して、ここの意味が分からないとかじゃないと

で、拡張子の関連付けとか、たぶんDelphiの問題ってより
Windowsの領域でしょ

基礎が理解できてなくてプログラミングとか無意味

>>232-234
まず>>228を読んでみます。

>>235
理解してもしなくてももう帰ってこなくていいよ
あんたの日記帳じゃないんだからさ

>>232
テンプレの内容を満足できるところまで考えて落とし込みます。
>>233
もう少し頑張らせてください。
読んで頂ける方への労力を考慮していませんでした。
>>234
>>基礎が理解できてなくてプログラミングとか無意味
はい

Delphi(デルファイ)について、他のスレッドでは書き込めない超低レベル、もしくは
質問者自身何が何だか分からない質問を勇気を持って書き込むスレッドです。

Delphi使いが優しくコメントを返しますが、
お礼はDelphiの布教と初心者の救済をお願いします。

>>231
MP3再生君がどういうソフトなのかはサイトの説明で大体分かりました。
自作のMP3再生君もどきを自分で使うだけなら
拡張子.mp3と再生君もどきとの関連づけはプログラムを書かなくても
エクスプローラーで指定するだけでいいように思います。



> こんなソフト作りたい→今ここではまって増すみたいな方が良いですか？

はい、そうです。
自分がやりたいことの解決策だと思っていたことが間違っている場合もありますし
もっと良い解決策がある場合も多いです。

ちなみに伝えたいことを言葉にするのって自分の経験からすると難しいことだと思いますが
何度も何度もやってみていくうちにある程度は鍛えられると思います。

彼は去年からたびたびここに書いてるけど
表現力の点で進歩はないような…

最初のレスはいつも意味不明で

コテをつけるようにと言われているので、つけています。
>>239
関連付けのお手本がmp3再生君なのと、具体的な解説ページが
分かったとの少し筒勉強しています。

中学生以来の体験ですが、分からないところが分からなかったため、
スレ住人の方にはご迷惑をおかけしました。
でも、もう帰ってくるなとか言わないでくださいね。かなりショックでした。

>>240
とりあえず、文系ではないよねと言われていますが、
技術を言葉に翻訳できないのはエンジニアとしてどうかと思っています。

今年の年末の進行のおかげで、ソースをある程度の内容であれば
頭の中で追えるようになりました。

ここに書き込む前に下書きして、次の日それを自分で読んでみるといいよ
時間を置くのは推敲の基本
まとまって無い状態でアウトプットされて、それを読まされる方の身にもなろうね

読みたくないやつは無視すりゃいいんで、気にすんな。そのためのコテハンだし。

>>43

コードが書かれているわけじゃないが
ここの解説は役に立つかも

逆に言うと、この程度の基礎知識がないと
関連付けを使ったプログラミングは難しいかも

http://tunemicky.blogspot.jp/2011/11/blog-post.html

>>

ちょっと教えてください。

浮動小数点の内部表現の問題だと思うんですが、以下の例のように
その精度によってTruncの結果が異なるようです。
たぶん13が内部的に12.9999...となる場合があるのが原因だと思うんですが。

var s: single; d: double; e: extended;
s := 1.2; d := 1.2; e := 1.2;
ShowMessage(Format('1.2: single=%1.1f, double=%1.1f, extended=%1.1f', [Trunc(s*10)/10, Trunc(d*10)/10, Trunc(e*10)/10]));
// 結果1.2: single=1.2, double=1.1, extended=1.2
s := 1.3; d := 1.3; e := 1.3;
ShowMessage(Format('1.3: single=%1.1f, double=%1.1f, extended=%1.1f', [Trunc(s*10)/10, Trunc(d*10)/10, Trunc(e*10)/10]));
// 結果1.3: single=1.2, double=1.3, extended=1.3
s := 1.4; d := 1.4; e := 1.4;
ShowMessage(Format('1.4: single=%1.1f, double=%1.1f, extended=%1.1f', [Trunc(s*10)/10, Trunc(d*10)/10, Trunc(e*10)/10]));
// 結果1.4: single=1.3, double=1.3, extended=1.4

目的は実数を10倍して、小数点以下を「切り捨て」て整数として保存しておき、
必要に応じて10で割って元も実数に戻したいわけです。
どのようにしたらいいでしょうか？

環境はDelphi XEで作る32bitアプリです。extendedだと精度が高いせいか結果が正しいんですが
64bitアプリにすることも考えると、使いたくないと考えています。

よろしくお願いします。

> 実数を10倍して、小数点以下を「切り捨て」て整数として保存しておき、
もうわかっていると思うけど、このときに誤差が入る。切り捨てを前提とするなら、意図した値になるように
小さい値を足してあげればいい。

>>247
なるほど...

小数点のあとに9がどのくらい続くの分からないけど
0.000...1とか足してからTruncすればいいんですね

ありがとうございました。

そういう場合は浮動小数じゃなくCurrencyとかTBcdを使った方がいいんじゃないの
なんでわざわざ誤差を作りこむようなアホらしい処理が必要なのかわからないけど、
本当は対症療法よりもっと根本的な部分で解決した方がいいと思う

>>246
コンピューターでよく使われる浮動小数点形式では
なんと10進数の1/10（0.1）を正確に表現することが出来ません。
つまり1を10で割るだけで（切り捨てなくても）誤差が出てしまうのです。

これらの形式では数値は二進数として格納されていて、
10進数の0.1は二進数では無限小数になってしまうので有効桁数いっぱいで切り捨てられてしまい、
正しい値を表現できないのです。

ゆえに実数を10倍して10で割って元に戻したいならsingle, double, extended型は使ってはいけません。

ではどうすれば良いかというと>>249さんの通りです。
精度が小数点第4位まででよろしければcurrency型を使って下さい。変数型をこれに変えるだけでOKです。
この数値型は値を10000倍して64ビット整数型として格納しているだけなので
たとえば1は10000として、0.1は1000として格納されるので1を10で割っても誤差が出ないのです。

TBcd型は私は使ったことがありませんがBCDは「二進化十進数」と訳されていて
4ビットごとに10進数の各桁の0〜9の値を格納してあくまで10進数として扱う方法です。
専用の手続きで計算しなければならないようでめんどくさそうではありますね。

あるいは10倍したり10で割るというやり方そのものを見直す必要があるかもしれません。
目的とのことですが私にはどうも手段のようにも見えます（本当に目的だったらごめんなさい）。

>>249
そうですね。よく考えたらCurrencyを使うべきケースですね。
Currencyが固定小数点変数だということは頭の中にあったんですが
なぜだか今回は思い浮かばなかったです。

Currencyを使う方向で修正しみます。

>>250
分かりやすい解説ありがとうございます。

実は0<=X<10（あくまでも例です）の実数値の大量のデータがあり、
10〜10000倍してByteやWord型としてファイルに保存し、
必要に応じて読み込んで元の実数に戻すってことをやってるところです。

とりあえずトリップつけました。
>>243
このスレ見るのは結構怖いですよ。結構色々言われてましたし。
いわゆる荒しの方のいくら叩かれてもへこまない精神力というのはすごいなと思います。

で？
Delphiの質問は何かな？

まぁあの質問じゃいろいろ書かれんのはしょうがない気がする。ただ書くな、来るなってのは(ここに限らず)
違うと思う。>>43の書き込みが嫌なら見なきゃいいし、親切に回答してくれる人も何人かはいるんだから。
要するにめげずに質問する>>43は書くな、来るなとか書くやつよりは遙かにマシってこった。

>>253-254
連投規制だけじゃなくて花が咲いたとか出ていて書き込めませんでした。
年末にあげたものはMediaPlayer使いましたが、元々はMCIの勉強のために試作していたものでした。

凄い自演を見た気分だぜ・・・

さくらが咲いているとかでかきこめない

ちゃんと書き込めてるじゃん

ちゃんとした理由を書いた上で批判してる奴も全部荒らし扱いか
質問とは関係ない話でダラダラ伸ばすのが嫌いな奴も多いし、
馴れ合いがしたいならそういうのも気持ち悪いくらい相手してくれるMLに行けばいいのに

Delphi(デルファイ)について、他のスレッドでは書き込めない超低レベル、もしくは
質問者自身何が何だか分からない質問を勇気を持って書き込むスレッドです。

Delphi使いが優しくコメントを返しますが、
お礼はDelphiの布教と初心者の救済をお願いします。

コテハンとトリップ外して書き込まなくていいから

周りが全員敵に見えるようなら医者に見てもらったほうがいいぞ？

>>259のように指摘されるのが分かっているので
指摘されているのを怖いという趣旨の発言でしたが
上手く受け取っていただけない文章で申し訳ない。

荒らしというのは12/31から1/1の書き込んだ私の投稿をさして言っています。

さくら咲きまくり、どうしていいのか分からない、
世間話的なのはさくらが咲くルールが分からないから

もういいだろ
質問がないんだったら書き込むなよ

質問すれば答えがあるかもしれないし、ないかもしれない

ルールについての話は別の場所でやれ

delphi mciでググると最初に出てくるページの通りにすると
致命的なエラーが出ます。

自分のコードが悪いのか、お手本なのか切り分けができません。
他のサイトを見ながら修正しても、playでも音が出ません
音量ミキサーにもソフト自体が表示されません。

サクラとか規制のせいで説明しきれないのですが、良い方法はありますか？

{ Public 宣言 }
end;

var public
Form1: TForm1;

//implementationの前に以下関数をインポートする必要が有ります。

//mciSendString関数をインポートする
//mmSystemで無くDLL使うとPcha型キャスト不要
fnction mciSendString(lpstrCommand: string; lpSectorsPerCluster : string ; uReturnLength : Integer; hwndCallback : integer): integer;Stdcall;
external 'winmm.dll' Name 'mciSendStringA';

implementation

{$R *.DFM}

mciError := mciSendString('open "' + AFName +'" type MPEGVideo'+ ' alias '+FMCIEriasName, '', 0, 0) ;
mciSendString('window '+FMCIEriasName+' handle ' +
IntToStr(FMCIDsphandle),'',0,0);
など

ヒントなどいただけないでしょうか

Win32APIなのに引数にString型はねーだろ。PCharまたはconst PCharだ。

あー検索して最初にひっかかるサイトがダメなやつなのか。uses MMSystemを追加して、
fnction mciSendString...'mciSendStringA';は削除だ。

これmciSendStringの使い方サイトものを丸写ししたものなんです…。
アドレス入れると咲いちゃうので

そのページが間違ってるってだけ

PCharとconst PCharは意味も生成されるコードも全然違うから「または」なんてことにはならないんだが
初心者が初心者に教えるとどんどん深みにはまっていくパターンだなこれ

ついでに書くと（Unicode化以前のDelphiでは）PCharとすべき場所をstringにしても通るということは
stringの構造を知っていれば分かるはず
>>269が通らないのはUnicode化以降のDelphiだったからというだけ

>>274
> PCharとconst PCharは意味も生成されるコードも全然違う
ちゃんと読め。Win32APIでC文字列を渡すときはchar *かconst char *でインタフェースされる、
という一般論を書いてあるだけだ。

mciSendStringだけが提示されてるのにそれに対する答えじゃなく一般論であると取る方が難しいと思うんですが
それに指摘されてないけどvarやoutと違ってconstは必ず参照渡しになる保証がないから普通はPPCharのような形で使うのが正解
つまり二重の意味で間違ってるわけです

もういいだろ
>>43が置いてきぼり．．．

>>277
> mciSendStringだけが提示されてるのにそれに対する答えじゃなく一般論であると取る方が難しいと思うんですが

そう書いておいて

> それに指摘されてないけどvarやoutと違ってconstは必ず参照渡しになる保証がないから

はおかしくね？関数のパラメータの*PChar*はconst修飾されていてもいなくても必ず文字列の先頭アドレスが
渡される(必ず参照渡し)。

今日ブックオフで
Delphiオブジェクト指向プログラミング
108円でゲット

たまにブックオフお宝がある

>>278
今まであの系統のやり方では、まともに動かなかった理由が分かったのは僥倖。

それに、私のことは気にせずに、ガンガン議論をしてください。

でも、コテ酉外して書き込むなとか言わないで優しくしてくださいね。

>>281
コテ酉外して自作自演してたん？

>>280
技術評論社のだったら、あれは名著だよな
自分もむかし古本屋で見つけて読んだよ

あれ読んで、自分でもやっとクラスを書けるようになった
Delphi初心者卒業のための必読書だと思う

>>264
ERROR：さくらが咲いてますよ。っていうのが「宣伝と見なされたURLを書き込もうとした」というやつなら
例えばアドレスを適当に置換してみる（頭のhttp://は勿論外して ）
ぴーす.2ch.net/てすと/read.cgi/tech/1405783063/
とか
p@e@a@[email protected]@[email protected]@e@t/test/read.cgi/tech/1405783063/
「@を抜いてください」とか
要はフィルター逃れのスパムメール方式

さくら云々は実際に規制にあった人間かググった人間にしかわからないので
質問がないんだったら書き込むな、世間話はよそでやれとなる

>>282
コテ酉外せって言われた時に一瞬外しただけ


文体見れば特定できるかと

>>284
レス　サンクス
初めて見るメッセージだったから
連続投稿規制なのかと思ってた

mciについてかいてあるサイトのアドレスを書き込んだときだけ出ることに気付いてからアドレスいれるのを止めました

不快に感じた方スミマセンでした。

Delphi初心者どころか2ch初心者スレだな

UInt64型ってDelphi5やDelphi7あたりでも使えますか？

Int64がD6からでUInt64がD7からだったと思う

Turbo Delphi を使い始めてかなりたつのに uint64 型があるなんて知りませんでしたﾅｻｹﾅｲ

>>264
とある有名レンタルサーバーが2chの攻撃に使われたので
2chではレスの中にそこのURLやそこのレンタルサーバーの名前が含まれると
そのエラーメッセージが出てきて投稿できないようになったようです。
しかも分からないから何度も投稿を試みるとしばらく投稿できなくなるペナルティを食らう。
酷い目に遭いました。

>>280
ほぼ全編コンソールプログラムでめちゃくちゃ地味な本ですがオブジェクト指向とはなんで、
なんのためにあるのか、何の利点があるのかをわかりやすく書いてあると思います。

構造化プログラミングの説明から丁寧に説明しているのは昔のBASICしか知らない世代の読者にも向いていると思います。

Int64をIntegerに変換するのに
i := Integer(i64);
が普通だと思うのですがエンディアンを考慮して変換してくれますか？
それとももっと良い方法ありますか？

それで問題ないんじゃね

and でマスクする手もある

外部のライブラリでもいいんですけどLuaのTableみたいなデータ構造ってないですか
Luaを組み込みたいというのではなく
要素に値やらハッシュやら配列やらテーブルやらを柔軟に突っ込めるような使い勝手のいいもの

>>294
TList

Variant型を使うとよいよ

>>使い勝手のいいもの
十分探してもなければ自分でつくろう。その辺がスクリプト系とコンパイラ系の違い

TObject の二次元配列でいいじゃん　何でも入る

>>290
そういった背景があったんですね。納得しました。
今後はそういったことが無いように気をつけます。

さくらが咲いていますよ　情報総合スレ＠運用情報臨時
http://carpenter.2ch.net/test/read.cgi/operatex/1407384473/1

D7とFB2.5でIBXを使用してプログラムしてます
何らかの原因でFireBirdサーバーとクライアントアプリが切断されたとき
アプリ側でそれを検出してアプリを終了させたいのですが
DBにアクセスする箇所すべてでエラーハンドリングするしかないのでしょうか
どっか一か所にエラーチェックを書いておけばOKなら楽なんですが

D2010を使用しています

type
TForm1 = class(TForm)
const
AAAA : TSize = ( cx:0; cy:0 );
BBBB : PSize = @AAAA;
end;

例えばこういう定義をしてコンパイルすると、BBBBの定義の行で、undeclared identifier 'AAAA'といって怒られます。
原因がわからないのですが、色々試行錯誤した結果、

BBBB : PSize = @TForm1.AAAA;

に変更してコンパイルすると問題なく通りました。これはどういった理屈でこうなるんでしょうか？
なぜ、同じクラスの同じセクションなのに、そのままでは定義を見つけてくれないんでしょうか…。

前方にある定義は見つけないのが原則だよ。もちろん例外はあるけど
このケースはその例外ではないのだろうね。

答えがあるわけじゃないけど、これってポインタ型のクラス内定数だよね
こんな場合、コンパイル時にはどんなアドレスが割り当てられるの？

通常のポインタ型変数だと、実行時に絶対アドレスを代入して使うけど
この場合、コンパイル時にはクラスの先頭からの相対アドレス（？）しか
分かってないよね

なんか頓珍漢なこと言ってゴメン
ふと疑問に思っただけ．．．

>>300
データベース関連のプログラミングは最近やったことないけど
公開してる自作ソフトじゃ、ほぼすべてのメソッドに例外処理入れてるよ

エラーログファイルに発生場所と内容を記録して、
ユーザに知らせてもらってる

プログラマは、アマチュアでも、このくらいの労力を惜しんじゃ
ダメだと思う

>>300
サーバーとクライアントアプリが切断されたときなんらかの例外が発生するなら、
TApplicationEventsコンポーネントのOnExceptionイベントで処理すればいいだけ。
そうすりゃ１か所に書くだけですむ。たしかね・・

AAAAとBBBBの違いは？　AAAAだってTSizeのポインタだよ
BBBBを用意すること自体が無駄　あとコンパイラから見るとAAAAをいつ実体化すべきかが曖昧
実体化する前にBBBBを定義しようとすればエラーになる
@TForm1.AAAAはTForm1が実体化された後って意味になるので通ったんだろう

>>301のコードを手持ちのTurbo Delphiでためしてみたらたしかにコンパイルエラーなのですが
グローバル定数やローカル定数として宣言した場合はコンパイルできました。

それぞれの結果が意味のあることなのか不具合なのかは分かりません。

皆さんレスありがとうございます。
同一要素が複数存在するような、物凄く大きな配列constがあるのですが、
サイズを減らすために共通なものは同じものを入れるよう、あんな宣言をしています。

>>306さんの言うように @TForm1.AAAA って実体化された後って意味になるんですかこれ？
初耳でした。単なる名前空間的な意味合いのものかと思ってました。不勉強ですね。

>>308
大半が0で、一部だけ有意の値があるような配列なら、インデックスをキーにしてその値を突っ込んだ、sparse map作ると空間効率を上げれるかもしれない。

定数ではなくなるけど。

マップは、System.Generics.Collections.Dictionaryを使うのが手軽。

時間効率は配列よりは劣るが、Hash関数が十分ばらついていれば、劇的に劣ることは無いはず。

今気づいたけどTListviewってvirtualモードだと
チェックボックスを表示できない？

何かやり方があるのかなぁ．．．

>>310
放射線の所にネタがあったけど、仮想モードではチェックボックスはサポートされない
クリックもチェックの描画も全部自分で面倒見ないといけない

>>311
やっぱり．．．ありがと

ずっと色々試行錯誤していましたが、さっぱり解らず質問いたします。

上の方で出ていたmciSendStringはUnicode環境下では正常に動作しないと言う
書き込みがありました。

ならば、UnicodeからShift-JISかなんかにキャストすれば上手くいくのでは？
と思い色々試しましたが、全然動きません。
ただ、再生するだけならば、TMediaPlayerで構わないのですが、
PS3のBDリモコンを使った10ftGUIを実現したメディアプレイヤーを作りたいのと
再生速度を変更したいからです。

たとえば
uses
…,MMSystem;

procedure TForm1.Button1Click(Sender: TObject);
var
mciError: LongInt; //MCIの返り値
MusicName: String; //演奏ファイル名 openの前に名前を入れておきます。
begin
//演奏方法
//open命令でファイルを開いて、play命令で演奏を開始します。
mciError = mciSendString(PChar('open ' + MusicName + ' type sequencer alias midifile'), nil, 0, 0);
mciError = mciSendString(PChar('play midifile'), nil, 0, 0);

end;

海外のフォーラムでは、PansiCharが動とか、DSPackを使えとか書いてありましたが、
XE5でインストールできるのか？とか純粋に使い方が解らず前に進めていません。

ヒントなどありましたら、レスいただけないでしょうか。よろしくお願いいたします。

>>313
下のコードで普通に再生されたけど？
ちなみにXE無印

procedure TForm1.Button1Click(Sender: TObject);
begin
if FileExists(Edit1.Text) then begin // Edit1.Textにmp3のファイル名
mciSendString(PChar('open "' + Edit1.Text + '" alias MusicFile'), nil, 0, 0);
mciSendString(PChar('play MusicFile'), nil, 0, 0);
end;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
mciSendString(PChar('stop MusicFile'), nil, 0, 0);
mciSendString('close MusicFile', 0,0,0);
end;

>>314
ありがとうございます。
あっさりと実現しました。

なぜ今まで上手くいかなかったのかが解りません…
ソフトの作成に戻りたいと思います。

>>315
それは良かった

ちなみにパスはダブルクォーテーションで囲うのが原則
"c:\music\aaa.wav"

それと、PCharによる型キャストは変数を含む場合のみでOK
「'」で囲ってる文字列定数だけ場合はPCharはなくてもいい

四月までにアップデートサブスクリプション付きでXE7買えば価格据置で四月頃？のXE8と九月頃？のXE9までは手に入る……かもってことでおｋ？（皮算用

>>316
文字列だけの場合はキャスト不要ですか。ありがとうございます。

Unicode環境下なら、API操作もUnicodeで大丈夫なんじゃないのか？
と思っていましたが、上手くいかないためキャストしなければならないのかもと混乱していました。

解説サイトのパスが長くなったときの対策のためにダブるクオテーションで
くくると書いてあって？だったのですがそのいみがわかいました。

>>318
＞パスが長くなったときの対策のために
ある意味あってるけどちょっと違う。

('open ' + Edit1.Text + ' alias MusicFile') 　←>>314さんのダブルクォーテーション無しVer

c:\music\aaa.wav　というパスならいいけど　c:\Personal music\aaa.wav というパスだったらどうなるか。

('open ' + 'c:\Personal music\aaa.wav' + ' alias MusicFile')　→　('open c:\Personal music\aaa.wav alias MusicFile')
ってなるよね。

つまり本来のパス指定がスペースが区切りと見なされるせいで　c:\Personal　になってしまうので正常に動作しない。
ダブルクォーテーションで括っておくと

('open "' + 'c:\Personal music\aaa.wav' + '" alias MusicFile')　→　('open "c:\Personal music\aaa.wav" alias MusicFile')

こうなってダブルクォーテーションから次のダブルクォーテーションをパスと認識してくれるようになるので正常にパスが渡せるようになる。

そのプログラムの利用者の環境は不明でパスに空白が含まれていることなんてしょっちゅうだから
パスの長さではなく　「パスをコマンドとして渡す場合は」　必ずダブルクォーテーションで括るってことが重要。

>>319
解説ありがとうございました。
私の理解では、ダブルクオテーションでくくってある場合は無条件でファイルのパスと見なし、
中身の全てを処理先に渡すと言うことでしょうか？

極端な例では"d:\春　 唄\20. 春なのに　.wav"なんていう場合には
ドライブレターから.wavまで文字列を加工せずに渡しちゃうという理解で良いでしょうか。

mciSendString(PChar('open "' + d:\春　 唄\20. 春なのに　.wav + '" alias MusicFile'), nil, 0, 0);
こんな具合だと理解しました。

追記
ダブルクオテーションでくくっておかないと
d:\春　で切れてしまうと言うことでしょうか。

勉強になります。

>>320
>mciSendString(PChar('open "' + d:\春　 唄\20. 春なのに　.wav + '" alias MusicFile'), nil, 0, 0);

これってエラー出てコンパイルできないでしょ


この場合だと
mciSendString(PChar('open "d:\春　 唄\20. 春なのに　.wav" alias MusicFile'), nil, 0, 0);

また、普通はユーザ指定のファイルを取り扱うはずだから、こんな感じ

var
Filename: string;

Filename := 'd:\春　 唄\20. 春なのに　.wav';
mciSendString(PChar('open "' + Filename + '" alias MusicFile'), nil, 0, 0);

>>321
そんな感じ。

コマンドライン引数ってのは、基本的に空白区切りで分割し、アプリケーション側がそれを理解する。
何行目がどういう意味か、というのはアプリケーションやコマンドごとによって異なる。
今回はたまたま2行目がパス指定。

('open ' + Edit1.Text + ' alias MusicFile')　で　Edit1.Text　が c:\Personal music\aaa.wav　の場合
open
c:\Personal
music\aaa.wav
alias
MusicFile

という形で渡されてしまいコマンドライン上の2行目がパスとして処理するため c:\Personal としてしか見てもらえない。
ダブルクォーテーションで括っておくと
('open "' + Edit1.Text + '" alias MusicFile')　で　Edit1.Text　が c:\Personal music\aaa.wav　の場合
open
c:\Personal music\aaa.wav
alias
MusicFile

と渡されて正常に処理される。
この辺は自分で試してみたほうが理解しやすいかと。
Delphiだと（BCBでも)ParamStr(int)やParamCount(void) っていう関数があると思うからいろいろ試してみると良いよ。

バインド変数について質問させて下さい

(省略)
SQL.Add('項目A = :バインドA')
(省略) ← (1)
SQL.Add('項目A = :バインドA')
(省略) ← (2)

上記のように同一のバインド変数を使う場合
バインド変数の設定(ParamByName)を(1)だけで
行うというのはNGでしょうか

(2)で行った場合と比較し、(1)で行った場合はレスポンスが
遅い気がしたのですが、環境が悪かったのか
判断出来なかった為、質問させて頂きました

ちょっと教えてください。

XEでGifアニメを作る部分をやってるんですが
作ったアニメが終わりに達する前に最初に戻って
再び再生されることがあります。

このバグについては、検索の結果、原因も対処法も分かってます。

お聞きしたいのは、最新バージョンではフィックスされてるんでしょうか？

何のバージョン？

具体的に書いてくれないと検証しようがない

TGifImageでGifアニメを作り、保存したファイルにゴミが入ってる。
IEだとそれを無視して最後まで再生、でもFireFoxやChromeだと
そのゴミの位置で再生が終わり、最初に戻ってしまう。

ゴミとは、途中のImageBlockとGraphicControlExtensionの間に
間違ってゼロが一個入ってることです。

ここの投稿に説明あり

http://stackoverflow.com/questions/25476193/delphi-tgifimage-animation-issue-with-some-gif-viewers

XE6だと再現しなかったとのコメントがあるんですが
もしそれが本当なら、この際、最新バージョンに
アップデートしようかなと思いまして。

それがメインならわざわざアップグレードしないで、
修正の方法書いてあるんだから、ソース修正すればいいじゃん・・

GIFImgは64bit対応くらいでほぼ何も変わって無いよ

>>329
ええと使ってるのStarterなので

>>330
そうなんですか…

gif作るなら、Windows Imaging Component使ってもいいんじゃね？XEにヘッダーのwincodec.pas用意されてるし。TWICImageもあるけど。

>>333
ありがとうございます。

ちょっと調べて検討してみます。

XE7のインストールに2時間以上かかった
死にたい

昔、RADstudio2010の頃はヘルプ特にドキュメントエクスプローラのインストールにやたら時間がかかってたけど、
なぜかxe5でもなぜかたいしたもの入れてるわけじゃないのに数時間コース決定ですから…。めんどくせ

ふとTMediaplayer.pasをみていたら、コマンドの発行は全てmciSendCommand出行ってるみたいなので、
一部乗っ取ってプレイスピードをとぼけてmciSendCommandで発行したら、手間は最低限になるのでしょうか？

新しい2ちゃんのログ参照するように設定したらスレが全滅に近くなってます。

>>336
>コマンドの発行は全てmciSendCommand出行ってるみたい

当たり前でしょ。MCIをカプセル化したのがTMediaPlayerだから。
TMediaPlayerをメインで使って、不足するものがあったら
自分でmciSendCommandを使うのが普通だと思う。



てか、相変わらず表現が下手だなぁ。投稿する前に一度
文書の推敲くらいしたら？

他人が理解できるかどうかについて、
自分の文書を客観視できないとダメだと思う。

>>337
この考え方に気づいたのが最近でして…^^;)
最初はmciSendStringで発行しているのだと思って
エイリアスが解ればそののまま流用しちゃえばいいやって言うことに気づきました。

>>323でsuggestionも頂きましたが、試してみたいと思います。
あと、プログレスバーの上にLabelコンポーネントをのせて表示させるというのは不可なんでしょうか？
試していますが、なかなか上手くいかなくて…。

色々抱えていますが、何か一つは完成させねばと思っています。

つ TStaticText

>>337
>>338でさえもつける薬がないなという文章を書いてしまっています。
節と節の間に必要な語句がないので、解りにくいだと思いますが。
後は、技術について理解していないからかなとも思いますが。
少なくてもmciSendCommandにエイリアスはいらないはずですし。

ですが、mciSendCommandというキーワードを調べることで、
以前ずっと悩まされていたmp3で発生していたMCIがらみのエラーの由来
というのが、おぼろげながら分かりかけては来ました。

>>339
やっぱりあるのですね。手元にあるリファレンスガイドには記載が無く
（Delphi6&7と書いてあるので本が古いせいだとは思いますが）、
検索でも見つからなかったため途方にくれていました。
今ヘルプを見ながら、使い方については調査中です。

亀ですがちょっと気になったので手元のTurbo Delphiで試してみました。

設計時にフォーム上のプログレスバーコンポの上にStaticTextコンポを載せようとすると
プログレスバーの子にはならず同格（フォームの子）になりますね。
子にならないということはプログレスバーが移動するとStaticTextコンポがズレるということです。
たとえば可変サイズのフォームでAlignやAnchorsでプログレスバーをフォーム下端に固定するような場合はだめということです。
（サイズ固定のフォームなら問題ない）

この場合はコードでStaticTextコンポの親コンポをプログレスバーに指定すれば
プログレスバーの子にすることが出来ます。
（※このとき、位置もコードで指定して下さい。しないと見えない位置になってしまい、焦りますw）

procedure TForm1.FormCreate(Sender: TObject);
begin
　StaticText1.Parent := ProgressBar1;
　StaticText1.Left := 0;
　StaticText1.Top := 0;
end;

なおこの方法はラベルコンポでもできました。

＃ちなみにTStaticText自体は結構古いです。Delphi 3あたりでOLEだかCOMだかのために実装されたと記憶しています。普段はTLabelで全く問題ありませんからね。

>>341
TPanelの子にTProgressBarのAlignをClientにして置いてその上に表示されるようにTPanelの子としてTLabel置いて、TPanelのAlignで管理したらいかんのか？

>>342
それだとラベルがプログレスバーに隠れてしまいます。
しかしラベルの代わりにStaticTextを使えば大丈夫です。
私の案と違ってコードを1行も書かなくて良い（位置合わせも簡単）のは利点ですね。

Delphi 2009
ジェネリック型をおしえて下さい
配列がうまくいかない

program test;
{$APPTYPE CONSOLE}

type
TTest2<T> = record
a : array [0..2] of T;
end;

procedure test2;
var
t2 : TTest2<Integer>;
begin
writeln( SizeOf(t2.a) ); // 3 と表示される
end;

begin
test2;
end.

Integer 型だからサイズは 12 になってほしいんだけど
3 になる
なんで?

XEから12

ありがとう
すっきり

こんにちは
mciSendStringの利用に取り組んでいます。
再生スピードを変えようとsetコマンドを使うと
エラーが出てコンパイルできません。
良い知恵があったら教えていただけないでしょうか。

procedure TForm1.Button3Click(Sender: TObject);
var
Speed : intger;
FMCISpeed : string;

begin
Speed := 500;
FMCISpeed := IntToStr(speed);
mciSendString(PChar(('set '+MusicFile+' speed + FMCISpeed'), '', 0, 0)) ;

よろしくお願いいたします。

end;

該当箇所を書き出します。
procedure TForm1.Button2Click(Sender: TObject);
begin
mciSendString(PChar('stop MusicFile'), nil, 0, 0);
mciSendString('close MusicFile', 0,0,0);

end;

procedure TForm1.Button3Click(Sender: TObject);
begin
FMCISpeed:= IntToStr(speed+500);
mciSendString('set '+MusicFile+' speed '+ FMCISpeed);
end;

procedure TForm1.Button4Click(Sender: TObject);
begin
FMCISpeed:= IntToStr(speed-500);
mciSendString('set '+MusicFile+' speed '+ FMCISpeed);
end;

続き

procedure TForm1.FileListBox1Change(Sender: TObject);
begin
if FileExists(FileListBox1.FileName) then
begin
end;
end;


procedure TForm1.PlayBtnClick(Sender: TObject);
begin
if FileExists(FileListBox1.FileName) then begin // Edit1.Textにmp3のファイル名
mciSendString(PChar('open "' + FileListBox1.FileName + '"type MpegVideo'+ 'alias MusicFile'), nil, 0, 0);
mciSendString(PChar('play MusicFile'), nil, 0, 0);
end;
end;

MCIのこと分からないけど、コンパイルエラーだったら
どの行で、どんなエラーが出たかくらいの情報は欲しい．．．

>>347

mciSendString(PChar(('set '+MusicFile+' speed + FMCISpeed'), '', 0, 0)) ;

これはこうじゃない？
mciSendString(PChar('set MusicFile speed ' + FMCISpeed), '', 0, 0) ;

MusicFileってDelphiの変数じゃなくてMCIのエイリアス名でしょ。

>>348-349

それと、ちょっと検索したけど書式がおかしくない？

これが基本でしょ
mciSendString('set MyMusic speed 500', nil, 0,0);

末尾の「, nil, 0,0」がない行があるから、構文チェックで
パラメータが足らないって怒られない？

>>347
エラーメッセージをコピーし、そのまんま提示するのが吉。
エラーダイアログの内容も Ctrl+C でコピーできる。

こんにちは
>>３５２
こんなコマンドがあるとは知りませんでした。
>>３５１
構文チェックでは、setコマンドでの括弧の位置がおかしいとだけ指摘されてました。
修正した後のsetコマンドを送る(?)と下記のエラーが出てます。
---------------------------
soundplayer_by_mci
---------------------------
モジュール 'winmm.dll' のアドレス 72606C7A でアドレス 004026F8 に対する書き込み違反がおきました。.
---------------------------
OK
---------------------------

>>353
プログラミングする人なら全角半角に気を遣えよ…。
アンカーすらまともに打てないようだと、誰も相手にしなくなるかもよ？

＞こんなコマンドがあるとは知りませんでした。
　　CTRL+X 切り取り
　　CTRL+C コピー
　　CTRL+V 貼り付け
これらは特別な「コマンド」ではなく、Windows標準のキー操作だよ。
Delphiのエディタ画面を右クリックしたり、あらゆるアプリ（例えばブラウザ）の
メニューの「編集」をクリックすれば、ほぼ必ず表示されると思うが。
それがダイアログの内容のコピーにも適用できるってだけの話。

そのまんま提示とは言ったが、余計な線とかOKは要らない。
とりあえず、「修正した後のsetコマンド」とやらを出してみたらどうだ。

あと、コンパイルエラーで質問するときもエラーメッセージをコピーして提示、な。

>>354
アンカーは、IME任せで入力してしまい…
全角だとアンカーと認識されないんだな。
と知りました。

修正したsetコマンドのイベントハンドラで良いのでしょうか？
状況としてはButton1でwavファイルの再生をしている時に
Button3でsetコマンドを送信すると>>353のエラーダイアログが出ますが、
再生は継続されています。


procedure TForm1.Button1Click(Sender: TObject);
begin
if FileExists(FileListBox1.FileName) then begin // Edit1.Textにmp3のファイル名
mciSendString(PChar('open "' + FileListBox1.FileName + '" alias MusicFile'), nil, 0, 0);
mciSendString(PChar('play MusicFile'), nil, 0, 0);

end;

procedure TForm1.Button2Click(Sender: TObject);
begin
mciSendString(PChar('stop MusicFile'), nil, 0, 0);
mciSendString('close MusicFile', 0,0,0);
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
mciSendString(PChar('set MyMusic speed 500'), nil, 0,0);
end;
end.

嫌われることばかりやってすみません。

コピペ爆撃厨にしか見えないｗ

>>356
mciSendString(PChar('set MyMusic speed 500'), nil, 0, 0);
・ エイリアス名をMusicFileに変えたら動作した。
・ wavファイルの再生速度は変更されず。mp3なら低速になった。
・ どうやってもエラーは出なかった。

という、つまらん結果になった。

>>358
私の方でも確認できました。
エイリアス名を書き換え
mp3と（元々の目的だった）mp4での速度変更の確認。
mp4だと元が4:3でも無理矢理16:9にしてしまうため、
ちょっと考えなければなりません。
wavでも普通にテストしている分にはエラーは出ませんでした。

procedure TForm1.Button1Click(Sender: TObject);
begin
begin
if FileExists(FileListBox1.FileName) then begin // Edit1.Textにmp3のファイル名
mciSendString(PChar('open "' + FileListBox1.FileName + '" type MPEGVideo'+' alias MyMusic'), nil, 0, 0);// ^^^^^^^^^^^^^^^^^^
mciSendString(PChar('play MyMusic'), nil, 0, 0);
end;
end;
下線部を書き足したらwavでも速度が変えられるみたいです。
示唆いただきありがとうございます。

下線が変なところに…

書き足したのは"type MPEGVideo"です。

下線とか不要
使ってるブラウザもフォントも違うからね

それと行頭の半角スペースは削除されると思う

クラスの勉強しているのですが
←のところで(self)がないとコンパイルできません。なんで？


implementation

{$R *.dfm}

type
Tchild=class(TForm1)
procedure hello;
end;

procedure Tchild.hello;
begin
ShowMessage('こんにちは');
end;

procedure TForm1.Button1Click(Sender: TObject);
var
child:Tchild;
begin
child:=Tchild.Create(self);←selfがないとコンパイルできない
child.hello;
child.Free;
end;

end.

nilはだめですか

>>362
TChildの先祖に、TComponentがいて、そのコンストラクタ、
TComponent.Create(owner: TComponent)
をずっと引きずってる(overrideされてきてる)から。

根っこのTObject.Createが潰されるのはなんでだっけかな？

>>362
クラスの勉強をしているのか、コンポーネント作成を勉強しているのか分からないけど、
前者なら、コンポーネント作成は奥(闇)が深いので、単純なTObjectを親とするところから始めてみるのがいいと思う。

>>362
そもそも引数無しのCreateは定義されているのかい？
それを調べればなぜコンパイルできないかも分かると思うが。

type
Tchild=class
procedure hello;
constructor Create;
end;


constructor Create;
begin
end;

これでもよい。

特別やることなければcreateの中身は空でOK。ていうかconstructor いらんね
派生元無指定の class　だけの場合は自動的にTObject指定

>>364
自己レス

TObjectには、そもそもコンストラクタが用意されておらず、
派生クラスでコンストラクタを作らなかった場合にのみ、引数なしのデフォルトコンストラクタがクラスに挿入される。

一方、TComponentは明示的にコンストラクタを用意しているために、デフォルトコンストラクタが挿入されない。
結果、引数なしではコンパイルエラーになるでよかったっけ？

挿入とかでなく、引数のないデフォルトコンストラクタがあるでOKでは。

>>369
うん、それだと、TObjectにはある引数なしのコンストラクタが、TFormやTComponentから呼べないのはなぜ？にうまく答えられてあげれない気がするんだよね。

まあ、デフォルトコンストラクタが理解できれば、そんな思いは杞憂なんだろうけど。

ヒント: overload

>>370
呼べないってどういう意味？

>>362 TChild=class(TComponent) にすれば通った
TForm1を継承すると循環参照になるんじゃないかな？？

>>372
TComponent.Create; で、コンパイルエラーになるのを、呼べないと書いてしまいました。

そもそもコンストラクタは継承されないはずじゃなかったか？

他にコンストラクタを持つTComponentにデフォルトコンストラクタはない。
TObject.Create;　があったとしても、それは継承されない。
TComponent.Create; という呼び出しを実装したいなら明示的にオーバーライドする必要がある。

というだけなはず。

同じ名前の関数は存在できないので、上位のTComponentにCreate(owner: TComponent)が存在していることにより、TObjectから続くCreate;が握り潰されているのでは

procedure TForm1.PlayBtnClick(Sender: TObject);
begin
begin
if FileExists(FileListBox1.FileName) then begin // Edit1.Textにmp3のファイル名
mciSendString(PChar('open "' + FileListBox1.FileName + '" type MPEGVideo'+' alias MyMusic'), nil, 0, 0);
Timer2.Enabled := True;
LengthBtnClick(Sender);
mciSendString(PChar('play MyMusic from 0 ' ), nil, 0, 0);
FileListBox1.FileName:='';
end;
end;
end;

procedure TForm1.StopBtnClick(Sender: TObject);
begin
mciSendString(PChar('stop MyMusic'), nil, 0, 0);
mciSendString(PChar('close MusicFile'), 0,0,0);
end;

procedure TForm1.CurrentBtnClick(Sender: TObject);
const
Pos: Cardinal = 260; //元は'MAX_PATH';
var
Bufpos_widechar : array[0..260] of WideChar;//mciSendString1から文字を受けるバッファー
position_time :String;//曲の長さの整数型時間
begin
Bufpos_widechar := '';//初期化
//SetLength(Bufpos_widechar, Pos);
mciSendString(PChar('status MyMusic position'),Bufpos_widechar, Pos, 0) ;
position_time := WideCharToString(Bufpos_widechar);
pos_times_int := StrToInt(position_time);
ProgressBar1.Position := round(((pos_times_int/length_times)*100));
Label2.Caption := FormatDatetime('nn:ss', pos_times_int / 1000 / (24*60*60));
end;

上の書き込みですが、FileListBox内のアイテムを適当に再生させても
一番前のファイルの曲を再生して、カーソルが動いても次の曲になっても最初の曲が再生しています。

良い方法はあるのでしょうか？よろしお願いいたします。

見放されたんっですねｰ
自分で何とかしてみます…

みんな年度末で忙しい

自己解決しました。

>>381
そう言えば今日から新年度ですしね。
私は会計とかは経理に丸投げの、毎日季節感のない仕事をしているので
気がつきませんでした。

>>382
たった二日で自己解決出来ることをわざわざ質問すんなよ
質問したら答えてくれるわーって自分で考えること放棄してるんちゃうんかと

超初心者スレだよここ

>>384
そうだよね超初心者スレだよね。
ちょっと考えたらわかる事を思考停止して他の誰かに丸投げして考えてもらうスレじゃないよね。

正直MCIはもうお腹いっぱい

糞な質問されて文句出るようならスレタイ変えなきゃあかんね

過疎スレで喧嘩すんな

喧嘩なんか誰かしてた？

何とか団体作って､過疎化してるのでここで弱者を叩きのめして
九打巻きやろうがいるな

>>390
日本語でおk

図星か

>>392
いや、本気で全く意味がわからん

整数の条件判定で以下の記述方法がありますが、どれが一番処理速度が
速いのでしょうか。
１．if (AAA = 1) or (AAA = 2) or (AAA = 3) then
２．if AAA in [1, 2, 3] then
３．case AAA of 1, 2, 3:

>>394
forループで処理速度を計測してみたら？

その結果を俺も知りたい

>>383-385
おはようございます
いつも、質問した後も原因調査し続けていて
今回はたまたま翌日にわかっただけですよ。

>>351
基本のmciメソッドをを教えていただいてから
mciSendstringの理解が進みました。
なぜnilが必要なのかとかです。

mci君が書き込む
叩かれる
何故か擁護が湧く
ID変わった頃に本人登場して言い訳

パターン化されてきた

>>394
D2010だと
1．AAA=1だったら、AAA=2だったら、AAA=3だったら条件実行。と最大3回比較が行われている
2．と3．は同じで、AAA-4が0未満なら条件実行、という比較が1回。になっている(最適化の結果)

2または3が早いと思われますが、AAAの比較条件が1、2、3と連番になっているのと、なっていないのではまた話は変わってきます。

>>397
ここがそうとは言わないが
これって典型的な自演のパターン

DelphiXe2Proってデータベースアプリの開発配布って出来ますか？
自分がデータベースに関して疎いので、ネットで機能一覧を見ても
使えるデータベースの種類は少なくても可能なのか、開発テストは出来ても
配布は出来ないのか、イマイチよく分からないのです。

>>398
連番だったのでうまく最適化されるケースだったのですね
書きやすい2．のやり方でコーディングして気になったら計測してみます
ありがとうございました

>>400
オラクルやSQLServerならADO(ODBC)経由ならデータベース接続は可能だったと思うよ
ただ処理速度はﾈｨﾃｨﾌﾞ接続より相当に遅い
DBGoってやつ

あ、忘れた。。
配布は可能なはず
ODBCドライバは各データベースベンダーのが使える

>>402
ありがとうございます。
もう少し教えてください。
配布先にオラクルとかのデータベースがあって、
そのODBCがあれば配布できるって事ですよね？
配布先にアプリと一緒に配布できるテータベースは
XE2PROには入っていないのでしょうか？

TIdHTTPでクッキーをファイルに保存したり
ファイルから読み込んだりするのって
いったいどうやるんだろ

クッキーマネージャのコレクションに
SaveToFileとかないよね

ループでまわしてコレクションアイテムごとに保存していけばいいんじゃないの
読み込み保存自体はTIniFileに任せるでも良いし

>>404
いまいち状況がわかんないね。
クライアントサーバータイプのデータベース、OracleとかSQLServerなら独立した製品だから配布というより個別にサーバーに導入だよ
その際クライアント側には各メーカーから提供されてるODBCドライバをインストールして接続設定する。
クラサバといいつつ一台のPCでも環境構築は可能

ローカルデータベースを使う場合も基本同じ
いづれにしろデータベースは別導入と考えた方がいいよ
昔はBDEとネィティブデータベースのパラドックスなんかは一緒にインストール出来たみたいだけど今はサポート対象外みたいだね

あと、SQLiteはローカルデータベースだけど実体はDLLなんで一緒に配布できるのかな？
ライセンス的にはOKなのかどうかわからないんでサイトとかで確認して

Firebied EmbeddedもSQLite同様、組み込みDBなので、dllの同梱で実現できる

クライアントライブラリには、公式にサポート保証はしてないけど、現時点ではImterbase Express(IBX)が同じように使える。XE2 Proに入ってるのか知らないけど。

ほかには、Unified Interbase(UIB)を使うというのもあり。
こっちは公式でFirebird保証してたはず。
http://sourceforge.net/projects/uib/

>>406
ありがと

やっぱ自力で保存・読み取りする必要があるのか．．．

>>410
コレクション渡されたらStringlistにでも読み込ませる関数書いたらいいよ

>>411
TIdCookieRFC2109の各パラメータを保存しておき
こんどはそれを読み込んでコレクションにaddするって感じですよね

>>412 パラメータじゃなくプロパティだった．．．

>>413
なんかこんな感じ。
保存だけ書いたけど読み出しは面倒だから書いてない。

http://www.dotup.org/uploda/www.dotup.org251323.zip.html

>>414
おお、ありがとう

もっとも自分の使ってるindyって
ちょっと前のバージョンだから
TIdCookieってクラスはないけど
基本は同じだね

ありがとう

あれだけ上でたたかれましたが、いろいろ試しましたが、どうしてもわからず質問します。
mciでボリュームを変えたい時

MCISendString(PChar('setaudio MyMusic volume to 500'), nil, 0, 0);
だとボリュームが変化しますが、
VolumeValue　:=500;
MCISendString(PChar('setaudio MyMusic volume to '+'VolumeValue'), nil, 0, 0);
だと微動だにしません。
変数から値を取り出して代入というのは可能でしょうか？

'VolumeValue' → IntToStr( VolumeValue )
でどうですか？

コンパイルはエラーなしでできてるってことだよね？

1)実行時にLabelかなにかにVolumeValueの値を表示してみる
2)構文が正しいかチェックするために、+ 'VolumeValue'の代わりに
+ '500'として実行してみる

それと自分には最後の行の意味が分からない

てか、よくよく見たら、VolumeValueは文字列変数だから
前後に ' ' は不要じゃん

MCISendString(PChar('setaudio MyMusic volume to '+VolumeValue), nil, 0, 0);

寝起きでオレもどうかしてた．．．

43ってまったく進歩してないな
数ヶ月前の最初のmci関連レスでやったミスを
繰り返してるだけ

Delphi/プログラミングの基礎をまったく理解してなくて
単にサンプルを無分別に変更して
たまたま動けばOKって感じで

本当に理解してないのに次に進んじゃダメだよ

このスレの一部住人から非難されてるのも
実際にはその点だと思う

NG機能のおかげでトリップNGですっきり

Delphi(デルファイ)について、他のスレッドでは書き込めない超低レベル、もしくは
質問者自身何が何だか分からない質問を勇気を持って書き込むスレッドです。

>>422
43が叩かれる素振りがあるとこれ必ず書き込まれるけどなんで？

>>418
volume to 500'などの数字を直接指定すれば、
エラーが出ないことがわかったので、>>418の
レスで理由がわかり勉強させていただきました。

>>420
.プログラミングの教育を受けておらず、
経緯はどうであっても、安易に質問し続けたことに申し訳ないと思っています。
今の私の状態では、テーマを見つけてトライアンドエラーで習得して行くしかない
と考えます。
上の方で丸投げと書き込まれていましたが、自分で考えてそれでも分からず
その上での質問ですが、安易だったと反省しています。

>>423
私ではありませんが、自作自演といわれています。

>>422
何はともあれ、手にとってもらえるものを作りたいと考えています。

>>394
これAndで一度にまとめて if (AAA and 3 > 0) でいいんじゃないの
判定の回数を減らせば高速だよ

>>398 引き算が余計 And演算のほうが速い　DELPHIコンパイラはヘボイから最適化がたいしたことないな

上位２ビットしか見てないから３ビット以上が立っているかどうかの判定も足して
if (AAA shr 2 = 0) and (AAA and 3 > 0) then

>>425
if (AAA and 3 > 0) としてしてる意図がよくわからないけど、
それだと例えば7でも成立しませんか？
そこまで単純化できないのではと思います

独り言

そんな条件判定が膨大にあるならともかく
普通はどういう条件を判定してるのかが
一目瞭然な書き方にしたほうがいいと思うが

後で見て　ぱっと見て何してるか意味がわかる書き方が一番いい
多少の速度向上なんて意味ない

>>394-395
ためしてみたのですが100万回繰り返しても目に見える差は出ませんでした。
1億回繰り返すと1が1.5倍くらい処理時間がかかりました。

トリップ検索のように膨大な数の処理を繰り返すのでなければ多少の高速化すらなさそうです。
やはり>>428,429のとおり、見やすいコードを書くことが大事だと思います。

複雑なコードでもないしデバッグで実際にマシン語にどう変換されているか見たほうが早くね？
特に時間を計測して比べるつもりなら目的とするコードで試さないと本番で異なる結果になるかもしれない。

昔でいうコンパイラ（コンパイル）で変わるってやつだな

privateなフィールドに対して単純に読み書きしかしないプロパティって
そのフィールドをpublicした場合と意味は同じですか

意味って？何が知りたいの？

>>433
自分でいろいろ試してから聞けよ
いつも人に聞いてそれを信じてるお前を孫引キーラーと呼ぶことにするよ

XE7のWinapi.ActiveXでSystem.Variantsが無いと出たので
F1026
Winapi.ActiveXのimplementationの下に
uses
System.Variants;
追加したらコンパイルできるようになりました
これでいいですか

（デフォルトの）ユニットの検索パスに System.Variants.dcu が
ない状態というのが解せません。

System.dcu、SysInit.dcu、System.Variants.dcu
は特殊なユニットで、他のすべてのユニットのコンパイルで必要となる前に
事前にユニット検索パスにコンパイルされた .dcu ファイルが存在していないと
場合によって、他の問題を引き起こすかもしれません。

自分でいろいろと勉強して、メディアプレイヤーの形になりました。
再度ご評価いただけないでしょうか？

>>438
エラーなく動いて、不明な部分がないんだったら評価なんか不要じゃね？

すいませんメディアプレイヤーなんてFMX使えば5分でできるんで(^^;

>>440
FMXって不安定な頃の記憶しかなかったので
使ったことがありませんでした。

>>439
とりあえず、エラーなく動作しています。
ありがとうございます。

mci君に不安定って言われちゃうFiremonkeyさんマジ不憫

みんなちっさ過ぎるw

援護が来た…
いつもの流れになるのか？

>>397参照

Delphi MCI陰謀論者
監督 mci君
主演 mci君
脇役 mci君
Aとうりすがりの人 mci君
Bとうりすがりの人 mci君
Cとうりすがりの人 mci君

観客 mci君

Firemonkeyなんてゴミじゃん

FMXは正直言ってどうでもいいが、
そこまでFMXにこだわるなら何か作って見せてみーよ

FMXにl拘ってる人って、ここにいた？

ファイルの日付時刻取得について教えてください。
TSearchRecのtimeやftCreationTimeを使ってもコピーや移動で出来た日時になります。
ファイル自体が出来た日時を取得するにはどうすればいいでしょうか？
エクスプローラーの日付時刻が知りたいのです。
よろしくお願いします。

>>450
検索
delphi ファイル タイムスタンプ 取得

返事が遅くなってすみません。
ありがとうございました。
検索した結果、ファイルのタイムスタンプについて
色々間違って覚えていたのがわかりました。
助かりました。

TTabControlのタブに×（閉じる）ボタンがついてるコンポーネント
どこかにありませんか？

StringGridのパラメーターの保存に関して教えてください。
セルのデータ等はStringListで保存、読込すればいいと思いますが、
各列の幅や行の高さ等もforで回して記録していくしかないですか？

Steamにコンポーネントぶっこめばほぼ全自動でやってくれるけど
フォントやら何やらも保存されてかなり無駄なことになる
といっても今のHDD/SSDを圧迫するほど巨大というわけでもないので気にすることもないが

delphi - Best way to save & restore a form? (FOSS) - Stack Overflow
http://stackoverflow.com/questions/3163586/best-way-to-save-restore-a-form-foss

蒸気にぶっこんだらホカホカになってまうがな

「コンポーネントまん、はじめました」

7月1日に「うるう秒」があるんだけど
Delphiの時間処理で何か問題が発生する可能性ある？

1秒ずれるだけで問題なんてないだろ
自分が問題の起きるコードさえ書いていなければ

昔、造幣局の機械で使ってるプログラムの質問メールが来たことがある
医療機械とか不都合の出る場合もあるかも知れない

>>459
うーん微妙

1秒毎にネットから日時がファイル名のデータを取得してるんだけど
第一の問題は相手側がそのファイルを用意してるかどうかだよね

その1秒をスキップするように修正しておいたほうが無難か...

第二の問題は、うるう秒後、PCのハード時計が1秒ズレているはずだから
アプリ内時計を用意して時間調整する必要があるかも

なんか面倒になってきた

なんでそんな仕様にしたんだよｗ

今の Delphi コンパイラは C で書かれているそうですが、
いつ頃からそうなったんでしょうか？
昔は Delphi は Delphi で書かれているのが売りでしたよね？

コンパイラはアセンブラで書かれて？

世の中にはちょっとしたことでも影響受けるわけわからんシステムが走ってるもんだなｗ
そんな繊細ならそもそも秒レベルのズレが生じたときの検出と対処くらい用意してしかるべきだが

PCの時計ってそもそも不正確だから1秒なんてすぐずれるし、そんな影響受けるシステムなんて作ってるって話自体眉唾だけどな

>>463
>昔は Delphi は Delphi で書かれているのが売りでしたよね？
Delphiで作っていたのはIDEだけでは？
コンパイラやリンカーはアセンブラとPascalじゃなかったけ？

いまは知らんけど、DCC32.EXEとDCC64.EXEのバージョンを見ていれば。

>>465-466
時間関係については、1時間に1回NTPで時刻合わせをし
さらにサーバ側でファイルを準備するのに要する時間(タイムラグ)を
20分毎にチェックしてる

これで4年間24時間稼働で大きな問題が発生したことがなかったんだけど
唯一、不意に時計が1秒ズレることは想定してなかった

このままだと1秒未来のファイルを取得しようとして404が返され続け
受信待機モードに突入してしまう

まあ次のNTP時刻合わせかタイムラグのチェックで
アクセスが再開されるハズなんだけどね

何も対策しないか、または1秒スキップを実装するか思案中…

あほか
404返ったら1秒前のファイル取得しに行って成功するまで繰り返したらいいだけだろうが

空想上のシステムの話延々してんじゃねーよ

>>469
はいはい、これで終わりに

過疎ってたんで話題作りをしようとして失敗…

だから問題の検出と対処が甘いと言ってるのに
悪いのはシステムでも閏秒でもない、作った奴の頭だよ

単純にファイルが無いと返ってきたら
エラーリスト作るようにして手動選択するようにしておく方が無難だと思う。
リトライなんか繰り返せばトラフィックの増大を招く

だいたい>>468 インターネット経路の不具合まで考慮してないだろ
プロバイダのサーバーメンテナンス対処まで想定してない

ま、勝手にアクセスして取得してるんじゃなければ先方に最新ファイルのパス返すAPI用意してもらったら解決するんだけどな

1秒単位でうんたらかんたら滑稽で面白かったよ

>>473
>勝手にアクセスして取得してるんじゃなければ

あくまで仮想の話だけど、あるサイトでブラウザのスクリプトで
1秒ごとに更新されるライブ画像を勝手にDelphiで取得するって感じ

だから相手側の仕様は変更できない
ただ、うるう秒の画像が作成されるかどうかは問い合わせ中
（たぶん返事はないと思うけど．．．）

>>472
>手動選択するようにしておく

手動はちょっと，，，あくまでも自動で24時間稼動が目標
自動で取得して内容を解析して必要であればメールやTwitterで通知するてな感じ

アクセス関連のエラー処理は、連続すると一定時間の待機モードに入るくらい
あと経験上「エラー # 10054」でIndyコンポーネントの解放と再作成くらいかな

>リトライなんか繰り返せばトラフィックの増大を招く

そもそもサーバ側で画像作成のタイムラグにムラがあり404が頻繁に返ってきて
そのつどリトライしてる。あまりよくないかも

．．．というような空想上のお話でした

図書館相手にやって訴えられてた人が過去にいたような気がする
岡崎市中央図書館 DDoS でググレ

これか
インターネット関連会社社長を偽計業務妨害容疑で逮捕

>>475
たぶんその点は大丈夫だと思う
基本的にサイトのJavaScriptがやってるのと同じことを
Delphiでやってるだけだから

一応UserAgentもブラウザのそれを偽装してるし
AccsessLogからは区別つかないんじゃないかと

まあ2ちゃんのレスをスクレイピングしてるのと同じになるけど

で、犯罪自慢が超初心者スレに何の関係があるのかね

日記ならblogでも書いてて

犯罪といえばスクレイピングを利用した２ちゃんブラウザは違法？
まだ完成してないけど、公開は無理っぽいな

FireMonkey製？

>>478
超初心者スレって、Delphiにまだ初心者とかいるのかよ
いまからDelphi始めようってヤツがいるとは思えん

初心者が居ない事とスレの私物化は別の話じゃね

個人開発者はどんどん切り捨てられてる方向だもんな
いまさら他に移れないって既存ユーザーだけだよこんな言語使うの
俺とか

このスレッドは役目を終え自然消滅ってのが
Delphiらしくていいかもよ

最近の人材と言うと期待の新人mci君くらいか

>>482
誰が私物してるかは君が決めるようなことではないし、もちろん俺が決めるようなことでもないよ

>>486
じゃーなんでレスしてくるんだ
絡んでくるなうっとうしい

初心者がいなくなって書き込みなく
今の状態になってるわけだし
もうDelphi雑談スレでいいんじゃね

賛成

反対

賛成

反対

賛成

反対

そろそろ天才バカボンが出てくる頃

Win32MinorVersionの値がおかしくない？

Win7で「1」が返るのは当然として
Win8.1で何で「2」が返るの？「3」でしょ？
Win10でも「4」でなくて「2」が返ってくるけど．．．

Win32MinorVersionの値は今じゃ使っちゃいけないの？

Win8 -> 6.2
Win 8.1 -> 6.3
ただし manifest ファイルでターゲットが 8.1 になっていないと 6.2 を返す
といった OS側の仕様

すばやいレス、ありがとう

OSの仕様．．．Manifestファイル．．．やったことないよ

面倒だからレジストリのCurrentVersionを直接読もうとしたけど
Win10がWin8.1と同じ「6.3」だった．．．使えないね

NTDLL.dll の RtlGetVersion API 使うとか？

RtlGetVersion API ですか。ちょっと検索してみる


調べた結果、以下のコードでWin10でもうまくバージョン取得できる
http://delphi.about.com/od/kbcontrolole/a/delphi-window-os-installed-version-name.htm
だけど実行ファイルがKasperskyにウイルス扱いされて消される

XE2以降だとTOSVersionが使えるらしいけど自分はXE無印だよ

Win8.1以降の仕様の変更とはいえ、OSのバージョン取得にこんなに苦労するとは

>>500
ウィルス対策ソフトって簡単なコードだと誤検知しやすいよなぁ

よくよく見ると、Win10のレジストリにはCurrentVersionだけじゃなく
CurrentMajorVersionとCurrentMinorVersionが新規追加されてた

CurrentVersionはWin8.1もWin10も「6.3」だけど、これで何とか
Win10を識別できる

お騒がせしました

xe7がまだ買えるみたいだけど8とどっち買った方が良い？
今使ってるのはdelphi7
自営なんだけど趣味レベルで各種台帳をdelphiで作って使ってた
やっとPCが壊れてくれてWin8.1乗ったの買うことになったしこの際ソフトも新しくしようかと

>>503
xe7を買おうと思う理由は？

>>503
xe8買うとxe7もついてくる

関数一覧は、ヘルプからどんなkeywordで検索を掛けると取得できますか？

>>506
「言語ガイド」で検索して「標準ルーチンと入出力」とか？

>>504
どうみても7つながりでしょ。

(1) 関数が何もエクスポートされていない偽のUXTHEME.DLLを用意する。
　　　　　　　　　　　　　　　↓
(2) Delphi7以降で作られたEXEと同じフォルダに(1)の偽DLLをコピーする。
　　　　　　　　　　　　　　　↓
(3) Windowsの設定をクラシック表示(ビジュアルスタイル無効)にする。
　　　　　　　　　　　　　　　↓
(4) (2)のEXEを起動すると偽DLLがロードされてエラーになる。

これはVCLの脆弱性なんだろうか？

DLLインジェクション
https://ja.wikipedia.org/wiki/DLL%E3%82%A4%E3%83%B3%E3%82%B8%E3%82%A7%E3%82%AF%E3%82%B7%E3%83%A7%E3%83%B3

DLL プリロード攻撃を防止するためのライブラリの安全な読み込み
https://support.microsoft.com/ja-jp/kb/2389418

Delphi2010のWebBrorkerで作ったCGIが
WindowsServer2012のIIS8.0で動きません。

エラー内容
HTTP Error 502.2 - Bad Gateway
The specified CGI application misbehaved by not returning a complete set of HTTP headers. The headers it did return are "".

Windows8.1のIIS8.5では正常に動くのですが…。

Delphi2010はWindowsServer2012は対象外なので、
XE8でコンパイルすれば動くなら買おうかとも思うのですが、
同じく対象外のwindows8.1で動いているので他に原因があるのかと思いまして。
心当たりのある方は小さなことでも構いませんので情報くださいませんでしょうか。
よろしくお願いいたします。

>>511
トライアルでコンパイルしてみたら？

>>512
返信有難うございます。
今も悪戦苦闘しておりました。
明日やってみます！

XE8のトライアル版でコンパイルしてみましたが症状変わりませんでした…。

IISの設定は
・ISAPIおよびCGIの制限
　特定できないCGIモジュールを許可するにチェック

・「ハンドラーマッピング」
　「要求パス」に*.exeを入力、「モジュール」でCgiModule
　「要求の制限」のアクセスで実行にチェック
　「機能のアクセス許可の編集」で読み取り、スクリプト、実行にチェック

これでwindows8.1の方は正常に動作するのですが、
WindowsServer2012の方だと502.2エラーが出ます。
WS2012でもphpは動いているので、動的コンテンツがブロックされてる訳ではなさそうです。
どなたか引き続きアドバイスをいただけないでしょうか。
よろしくお願いいたします。

IISを入れ直したら正常に動作するようになりました。
原因は分からないままですがお騒がせいたしました。
ありがとうございました。

>>515
ところで515さんのようなWebBrorkerを使う案件って
データベースはなにをつかってるんですか？
MS SQL ？ Oracle？

>>516
遅くなり申し訳ありません。
以前はSQL Serverを使ってましたが、今はMySQL使ってます。

Win7Pro 64bitにDelphiXE5ProをインストールしてIDEは普通に起動したんですが
ヘルプを開こうとすると
C:\Program Files (x86)\Embarcadero\RAD Studio\12.0\Help\Doc\rad.HxS
が開けないというエラーが出てExplorerで確認するとDoc以下のフォルダ、ファイルが全く存在しません
インストール時に全てチェックを入れましたし、修復、変更等を行ってもヘルプがインストールされません

インストールはdelphi_xe5_upd2_esd.exeで行いました

XE2等は普通にヘルプが表示されてます

どうすればヘルプが表示されるようになるんでしょうか

同じ環境ですがヘルプ入ってます。
ただし、Cドライブではなく、ほかのドライブにいれましたが。

Vcl.MPlayer.TMediaPlayer.Back
なんですが、ヘルプでは
＞現在ロードしているメディアのフレーム（フレーム数は Frames プロパティの値で指定）を逆向きに移動します。
＞実行時にメディアプレーヤコントロールの［Back］ボタンをクリックすると Back メソッドが呼び出されます。
とありますが、TMediaPlayer.Backについて書いてあるサイトがなく
どうイベントハンドラを書いていいのか悩んでいます。
ヒントだけでもいただけないでしょうか。

>>520
イベントハンドラを書くって意味が分からないが、

これは　Back(); というメンバ関数だよ。
Frames というプロパティがあると思うが、この値分だけバックさせる。

要するに、「メディアプレーヤコントロールの［Back］ボタンをクリックすると Back メソッドが呼び出されます。」というのは
すでに実装されている動作なので開発者がどうこうする必要はない。
また、ユーザによる操作以外のプログラムコードでフレームをバックさせたい場合に
メンバ関数として呼び出すというだけのもの。

>>521
メンバ関数でしたか！
てっきり、Backイベントが発生した時に適切な処理をイベントハンドラに記述しなければダメだと勘違いしていました。

今入院しているので、退院したもう少しいじってみます。

メソッドという言葉は使い慣れていないので、イベントハンドラと書きました。

何というか メソッドとイベントはまるで別物だよ
RADなプログラミングの三種の神器が「プロパティ・メソッド・イベント」
メソッドとイベントを混同するようじゃイカンよ

バックイベントが発生したときに、イベントハンドラ内に記述し処理するのですね。勘違い

？？？

いい表現が見つからず、申し訳ない。
仰っていることは、十分にわかります。

使いなれてないからって全く別物の事を自分の好きな単語使って説明してたらただ混乱するだけやで

エンバカデロのサイトでも、「メソッドいう」と記述がありました
気をつけます。

もそっと基礎的なところを固めてから手を広げたほうがえんちゃうん

イベントハンドラの記述をメソッドで行う、のだから。　てかいて通じるのだろうか。

□begin
　begin
　　begin
　　　■

■からトップレベルのbeginの□までジャンプする方法ないですか
^beginで上方向に検索すればいいんだけど
ショートカットキー一発でやりたい

最初にprocedureからend;までをイベントハンドラだと、最初に刷り込まれたので、未だに使ってました。
多分、メソッド＝イベントハンドラだと思っています。

正直、今現在ではDelphiの言葉についてはじしんがありません。

だから　自信とか、思うとか　そういうのは要らないんですよ。
普通に勉強してくださいと。

私はみなさんがリンゴと言っている果物をみかんだと刷り込まれたからリンゴをみかんと言います。

正直果物について自信がありません。

あ、このみかんおいしいですね。

mciとかTMediaPlayerとか使う人ってヘンなのが多いのか？

>>530
>ショートカットキー一発でやりたい
一発じゃないけど[Shift]+[Ctrl]を押したまま、[↓]または[↑]を二回押すと”□begin”の下の行先頭になる。

>>532
まずは勉強ですね

ちょっと教えてください。

メインフォームの表示時には通常のアプリと同じだけど
最小化したら、タスクバーではなくタスクトレイに収まるような
アプリを考えています。

どうのようにしたらいいでしょうか？

ちなみに起動時にタスクトレイに常駐するようなアプリは
作ったことがあります。

よろしくお願いします。

>>537
最小化時のイベント拾って、常駐化の時と同じことをすればいいはず。

最小化イベントは、Applicationか、またはApplicationEventsのOnMinimizeイベントでハンドルするんだったかな。

一度最小化すると元に戻す術はないので、タスクトレイのアイコンに対して、クリックイベントやコンテキストメニューを介して明示的に表示させる

適当にググっただけだけど、再表示について、たぶん参考にはなるはず
http://www2.big.or.jp/~osamu/Delphi/tips.cgi?index=0207.txt

>>538
ありがとうございます。

紹介されたリンク先は使えそうです。
ちょっと試してみます。

いまだにｘｐで２０年近く前の３を使ってるのですが
（１０年くらいのブランクがあります）
メインのフォームができて、
別のフォームも作って
メインから別のフォームを開けるようにしたところ
メインのフォームが表示されなくなってしまいました。
実行しようとしても、お互いのDCUファイルが見つからないと出て
２つのフォームのusesの部分を消して実行しようとすると
TF_Mainのリソースが見つかりませんと出て
Application.Runの部分で止まってしまいます。
新しいほうをプロジェクトから削除しても同様です。
どんな情報を提示すればよいのかもわかりませんが
どなたか助けてください。

追記です。
OS再起動でもだめです。
フォームのソースは開くことができます。

プロジェクトをつくりなおせばいいんじゃないの？

>>542
そうですね。
丸１日の苦労が水の泡ですが
仕様をを考えたり、わからないことを調べたりしながらなので
作り直しは早くできるかもしれませんので作り直します。
ありがとうございました。

いやそうじゃなくて、プロジェクトだけ新しくして、フォームや.pasはそのままつかえばいんじゃないのって

>>544
フォームはコードしか表示できないので保存もできないのです。
多分、意味がわかってないです。(~_~)
すでに半分以上復元できましたので、やり直しを続行します。
ありがとうございました。

意味わからん

>>546
>多分、意味がわかってないです。(~_~)
意味がわかってないのは私ですので。
わかりにくくてすみませんでした。<(_ _)>

「新規プロジェクトを作って丸１日かけてやっていたけど保存しようと思ったら保存できない」ってことやろね。

何かの拍子にIDE自体がハングアップしたりして保存もままならなくなることがあるから保存はこまめに。

OS再起動って言ってるから違うか

OS再インストルからやり直せ

ここで聞く内容じゃないかもしれませんが．．．

標準の画像ビューアの開き方がWindows10で変わった？
以下の方法で表示されません。

ViewerdllPath := 'C:\Windows\system32\shimgvw.dll, ImageView_Fullscreen ';
ShellExecute(Handle, 'OPEN', 'Rundll32.exe', PChar(ViewerdllPath + Filename), nil, SW_SHOWNORMAL);

自己レス

単にTiffしか表示しなくなったそうです

AssignFile/Reset/ReadlnがUTF8対応してないということなので
TFileSteamに変えようと思うんですが
TStringList.LoadFromFileのように一気に読まずに
1行ずつ読んでは捨てという処理を書くのはどうすればいいですか

1文字ずつ処理するといかにも遅そうなので
パフォーマンスと正しさを備えた現実的なサンプルがあったら教えて下さい

バッファ分だけ読み込んで
（ここのバッファサイズを大きくすればするほど処理速度は上がるはず）、
バッファ内を１文字ずつ走査して１行ずつ（つまり改行コード毎に）処理するだけ

Delphi2009以降ならTStreamReaderを使うといいよ
http://www.gesource.jp/weblog/?p=5125

サブフォームで済みそうなことを回りくどくやってる感じ

age

XE8ってダウンロード販売しかないの？
探しても箱売りが見当たらない

　　　　　　　　 ／￣＼
　　　　　　　　|　　　 　|
　　　 　　　　　＼＿／
　　　　　　　　　　|
　　　　　 　／ ￣ ￣　＼
　　　　　／　　＼　／　　＼
　　　 ／　　 ⌒　　　⌒ 　　＼
　　　 |　　　　（__人__）　　 　　
　　　 ＼　　　 ｀ ⌒´　　　　／　　　☆
　　　　/ヽ､--ー､＿＿,-‐´ ＼─／
　　 ／　> 　　ヽ▼●▼<＼　　||ｰ､.
　 / ヽ､　　　＼ i　|｡|　|/　 ヽ　(ニ､｀ヽ.
　.l　　　ヽ 　　　 l　|｡|　| ｒ-､y　｀ﾆ　 ﾉ ＼
　l　　　　 |　　 　|ー─ | ￣ l 　　｀~ヽ＿ノ＿＿＿_
　　　　／￣￣￣￣ヽ-'ヽ--'　　／　　　　　　 ／|
　　　.|￣￣￣￣￣￣|／|　　　 |￣￣￣￣￣￣|／| ＿＿＿＿＿＿
／￣オプーナ／|　￣|__」／_　　　　　　／|￣|__,」＿＿_　　　　／|
|￣￣￣￣￣|／　　　　￣／￣￣￣￣|／ オプーナ ／|　　／　.|
|￣￣￣￣￣|￣￣￣￣￣|／l￣￣￣￣|￣￣￣￣￣|／|　／
|￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣|

D7でクイックレポートで帳票を作ってるのですが
合計行を太字にしようと思ってフォントのfsBoldをtrueにしたところ明細行と幅がずれて印刷されてしまいました
太字と細字で同じ幅に印刷するにはどうしたらよいでしょうか
フォントはMS明朝、サイズは9です

その太くなっちゃうところのフォントを幅狭く指定すればいんじゃないの？

英字フォントだと、Arial とか選択肢はあるんだけどな。

>>561
>>562

ありがとうございます
色々試してみましたがうまくいかないので諦めました

XE7の初心者です。Delphiのユニットでは、
unit fForm1;
interface
uses
type
TfForm1 = class(TForm)
end;
var
implementation
のように続きますが、
function func1(); Integerl　のような関数ってどこに書けばいいのですか？
function TfForm1.func1(); Integer　のような関数ならできるのですが。　

interfaceとimplementationの間のどこかに宣言書いて
implementationの下に実装を書くんだよ
そのユニット内だけでしか使わないのなら
implementationの下の実装だけでもいいけど

>>565
ありがとうございます。そうやったつもりなのですがうまく行かなかったことがありました。
いずれにしてもいろいろとやってみます。

#if 1
aaa
bbb
ccc
#else
xxx
yyy
zzz
#endif
に相当するコードってどう書いてますか？
{$define True}

{$ifdef True}
...
などとすれば一応は出来ますが
Trueと言った文字列を自分で定義するのはやや抵抗があります

{$IF TRUE}
でいいじゃん。
$IFDEF は識別子だけど、$IF はBoolean型の数式。

http://stackoverflow.com/questions/25353684/delphi-inline-assembler-and-class-properties
function TList.IndexOf(item: Pointer): Integer;
const
FItems = 4; //data offset of FItems
FCount = 8; //data offset of FCount
asm
mov ecx, [eax].FItems //ecx = @FItems
mov eax, [eax].FCount //eax = FCount
dec eax //test zero count!
js @Exit //if count was 0 then exit as -1
@Loop: //repeat
cmp Item, [ecx + eax * 4]
jz @Exit
dec eax
jns @Loop //until eax < 0 (actually -1)
@Exit:
end;
もう知ってると思うがこれやって見たら
3割早くなった
改造は自己責任で

質問させていただきます。
時間があるときしかコンパイラを使えないので亀のような遅さですが、
TMediaPlayerを断続的にいじっています。

ソフトに早戻しを実装させたいと思っています。
しかしながら、ネットで見ると開始(00:00)から終了をひっくり返せば良いというような
記載が多いのですが、簡単なんでしょうか。

作りたいのは、ひっくり返したりせず、再生しているところから早戻しを実装したいのです。
ひっくり返すと言うことが、どうしてもわからず、制作が止まっています。
ごぞんじな方教えていただけないでしょうか。

エロAV見るのに必死ですな

自分がやりたいことのためにプログラムを書くのは正しいことだと思います。

早戻しなんていう定義のはっきりしない曖昧な言葉を使われてもなぁ

>>570
もしかしてTMediaPlayerとかMCIを以前からやってる人？
言ってることがイマイチ分からない

>>570
逆再生のことでしょ？
これは試してみた？

MCIWndPlayReverse

これに再生速度の指定をすれば「早戻し」になるかも

ただし圧縮ファイルとかは無理だと思うよ

どうせ女子アナのパンチラシーンを何度も見たいとかいうしょーもない理由だろ

エロを感じる事でアドレナリンを活発させ頭の回転をフルパワーにさせる
ほら､物事が簡単にうまくいく
エロを侮るな

皇太子様はオナニーなどしないよ

そりゃあ幼少の頃から選び放題お相手を用意されてるからな

f

Tを文字列に変換するのってどうやるんでしょうか？
TにはIngeger, String, record, enum, TObjectの派生型が指定される可能性があります

type
　TMyData<T> = record
　　 Value: T;
　　 function ToString: String;
　 end;

{ TMyData<T> }

function TMyData<T>.ToString: String;
var
　 v: TValue;
begin
　 v := Value; // ここでエラー
　 Result := v.ToString;
end;

>>581
v := TValue.From<T>(Value);
Result := v.AsString;

アライグマ ●ascal

Result := Letter.From.Canada:

Builderスレにも書いたのですが、反応がないのでここにも書かせていただきます。

フリーカーソル無効化アドインのソースが欲しいのですが、HPは消えてしまっていて
移転先もないようです。

どなたか置いてある場所を知りませんでしょうか？
もしくは丸ごとアップロードしてくれる方いらっしゃいませんでしょうか？

>>585
http://web.archive.org/web/20090201213015/http://homepage1.nifty.com/fuu/software/nonfreecursor.htm

余計なお世話かもしれないが
「誰かうｐって」的なことは書かない方がいいと思う

「Turbo Delphiではじめる Windowsプログラミング」を購入したので、これから少しやってみます。
毎度、記述方法に引っかかるけど、おもしろいね。

初心者は買った方がいい本合ったら教えて下さい。

糞がちゃ！ぶつくんか

Delphiで質問です。
フォームの大きさに応じて、ボタンなどのサイズと上下左右の間隔を
自動で変更するにはどうしたらいいでしょうか。

[akTop,akLeft,akRight,akBottom]ではサイズのみが拡大されてしまします。
上下左右の間隔も合わせて変更する方法を教えて下さい。

やはり、プログラムで書くしかないのでしょうか。
見本があれば、一番助かるのですが。

どれくらいの比率でとか、いろいろ個別に考慮しないとそういうのはまともにならない。
だからがんばって自分で書いてください

それで、現実策としては、フォームの伸びに追随して動く部分は最小限にとどめ、
固定レイアウトのメニューバーみたいなものを作って操作系はそこにならべておく。

>>592
ありがとうございます。
ディスプレイの大きさに合わせて、フォームイメージのまま拡大させようとしましたが、
簡単にはいかないようですね。
サンプルがあれば、それを元に考えようと思いましたが見つかりませんでした。
勉強して出直してきます。

>>593
Firemonkeyを使うという力業な解決策もあるっちゃある

>>590
LazarusでいいならAnchorsプロパティでできるよ

>>595
フォームとボタンを１つずつ設置し、ボタンのAnchorsプロパティで
[akTop,akLeft,akRight,akBottom]を有効にする。
兄弟と書いてあるところを４カ所ともForm1にしたのですが、そのほかの設定がわかりませんでした。
ヒントもらえますでしょうか。

LabelやPanelの枠線の色を変更するにはどうしたらいいでしょうか。
簡単にできると思っていたのですが、プロパティが見つかりませんでした。

>>597
VCLだとは思うが、WindowsのPaintイベント(WM_NCPaint)拾って、自前で描画するとかかなぁ

参考までに、ググって上位に来た所

http://www.devsuperpage.com/Articles/views/Delphi/Art_1-951.asp

すみません。わかりました。

何も配置されていないフォームに、OnCreateで配列からボタンやパネルを配置できましたが、直線だけはコンポーネントがなくできませんでした。
どうしたら良いでしょうか。
ボタンを押せば引くことはできますが、フォーム作成時に描く方法がわからないので教えて下さい。

IDEから実行したのとexeを起動させたので挙動が違う場合があるの仕方ないのかなぁ

>>600
OnCreateでbutton1click(button1)でも走らせたらいいんじゃないかな

幅1ピクセルのコンポーネントを置けば直線ぽくなる

>>600
Firemonkeyなら、直線とかもビジュアルコンポーネント化されてるけど、そうゆう話ではないわな。

OnPaintで描くのが普通じゃないの？

皆様ありがとうございます。
http://mrxray.on.coocan.jp/Delphi/plSamples/160_CreateComponent.htm
↑のリスト4を参考にして、配列にしたデータを元に複数のButton、Shape、Panelを定位置に、FormのOnCreateで配置しました。
同じように直線を引こうとしたところ、コンポーネントがなく、Tpointが使えるかとも思いましたができませんでした。
仕方なく一本一本線を引こうとしたら表示せず、記述か間違っているのかと思いましたが、ボタンのクリックにコピーしたら表示しました。
それで悩んでいるところです。

>>602
他に方法がなければ、これしかありません。

>>603
後に線の色を変えるプログラムなので、コンポーネントが理想ですが、点はさすがに困ります。

>>605
onPaintは生成時のイベントのようです。少し勉強して試してみます。

Lazarusにも慣れてきたので、こちらでもいい方法があれば教えて下さい。

FormCreate で TPaintBox 作って、TPaintBox の OnPaint で複数線描画

>>606
OnPaintの認識は間違ってる。

Deliphiが〜以前に、Windowsはイベントドリブンという仕組みで動いている。
イベントというのは、ボタン押したとか、テキストボックスに文字入れたとか、ウインドウ移動させたとか、ウインドウ広げたとか、様々なあらゆる事象。

OnPaint(再描画)もイベントの一つ。

通常、イベントドリブンの世界では、ボタンを押したアクションの中で直接、線などを描画せず、再描画の依頼だけ行う。

そうするとWindowsは、ボタンアクション後に再描画のイベントを発行してくれる。
ので、そこで必要な描画処理を行う。

>>606
なんで、こんな面倒な作りになっているかといえば、再描画を一箇所に集中できるから。
ウインドウを広げれば、拡大箇所の再描画が必要だし、
覆いかぶせてた別ウインドウをどければ、露わになった所の再描画が必要と言った感じ。

ボタンなり、テキストなりがちゃんと描かれるのは、Delphiが再描画イベント拾ってく、適切な描画を肩代わりしてくれてるから。

ただの線や、点の描画を自動的に肩代わりしてくれるものはないため、自身でOnPaintなどの再描画イベント処理を用意してあげる必要がある。

Shape とか Bevelとか好きなの貼り付ければいいだけじゃないのかね

TPaintBox の OnPaint で、起動時にMoveTo/LineToを使い一本一本線を引くことはできました。
ありがとうございます。
しかし、Tpointの配列から読み込んで線を引くことはできませんでした。自分の勉強不足です。

もうひとつ疑問ができました。
描いた直線を配列に入れ、色を変えたり、太さを変えたりしたいのですがどのように記述したらよいでしょうか。

>>611
Trecordで自作のレコード型つくってTListに入れてforで回す

>611
線を書く＝オブジェクトを作るわけではないので、
OnPaintで毎回色や太さを指定して描画します。
なんらかのタイミングで色変更したいとき、
データを変更してから TPaintBox の Repaint メソッドを呼ぶと、
次に OnPaintに制御が渡ったときに新たなデータを元に再描画できます。

>>612-613
ありがとうございます。
自力でもう少しがんばってみます。

よくある購入相談なんだけど、相談というか教えて下さい。
XE2までは購入して趣味でアプリ作っていました。
その後はXCODEでiPadとかのアプリを作っています。
XCODEを使っているのはiOSがバージョンアップした場合、Delphiが対応
してくれるまで何か不都合な事があっても、自分で対処できるスキルが
無いためです。（新しいインターフェイスは当然使えないだろうと言うのもあります。）
実際のところ作るアプリにもよるのは当然なのですが、iOSのバージョンアップがあっても
気にする事は無いでしょうか？
また、iOSに新しいインターフェイスが追加された場合の対応は早いですか？
よろしくお願いします。

保証なんてなにもないのだから
メリットとデメリットを比較するしかないですな

1つのformにunit1とunit2があるとします。
unit1でボタンクリックしたとき、unit2に書いてある動作をさせたい場合、具体的にどのように書いたら良いのでしょうか。
uses部の記入とグローバル変数はわかったのですが、記述方法がわかりませんでした。
すみませんがよろしくお願いします。

>>617
unit2.関数名

>>618
ありがとうございます

617です。
うまく動かなかったので教えてください。
unit1からunit2(Formなし)を呼び出すときの記述方法ですが、次のように書いたらコンパイルではじかれました。
procedure TForm1.Button1Click(Sender: TObject);
begin
Unit2.Tclass.MyProcedure;
end;

usesには登録済で、変数はまだ使っていません。
どのように書いたらいいのでしょうか。

MyProcedureはクラスメソッドとして作ってあるの？
でなくて普通のメソッドならインスタンス参照しないとだめよ?

procedure TForm1.Button1Click(Sender: TObject);
var
AObject: Unit2.TMyClass;
begin
AObject := Unit2.TMyClass.Create;
AObject.MyProcedure;
AObject.Free;
end;

＜代案＞
・　クラス使うとめんどいからただの手続きを宣言して interface に出しておけばよろし

>>617
覚えた単語だけ羅列して意味は全くわかっていないといった感じにしかみえないが・・

Unit1
interface

type
TForm1 = class(TForm)
button1: TButton;
procedure button1Click(Sender: TObject);

implementation
uses Unit2;

Procedure TForm1.Button1Click(Sender: TObject);
begin
MyProcedure;
end;
end.
−−−−−−−−−−−−−−−−−−−−−−−−−−−−−
Unit2
interface
　Procedure MyProcedure;

implementation
Procedure　MyProcedure;
begin
showmessage('わかっていません');
end;
でいかが？

end;.

やっと通りました。
ありがとうございました。

配列にある文字列xxxxから読み込んで
cntl_btn[i].OnClick := xxxx ;
としたいのですが、xxxxの部分を文字列から何に変更したらいいのでしょうか。

イベントハンドラに文字列を代入して何をしたいのかわからないぞ。

ボタンのキャプションを変えたい？
ボタン押したときの動作を変えたい？

ちなみにOnClickという「変数」にはメソッドポインタというものが代入される。

FormCreateで複数のボタンを配置し、それぞれのOnClick時の動作を書こうと思っています。
配列に入っている文字列から変換して、サイズや位置やCaptionは変更できました。

ボタンごとのイベントを書くにはPrivateにProcedure xxxk(Sender : TObject); を書いておき
cntl_btn[i].OnClick := xxxx ;
とすればいいのかと思いましたが、違っていますか。

見よう見まねでやっているので、根本的に間違っていることが多いと思います。

>>626
(cntl_btn[i] as TButton).OnClick := 関数名;

処理を外したい場合は

nilを代入しる

質問の仕方が悪くて、すみません。
文字列を関数名にできませんか。

if s = 'A' then
func := a
else if s = 'B' then
func := b
else
func:=nil;;

cntl_btn[i].OnClick := func;

もちろん工夫のしようはまだあるが

ありがとうございます。
知識不足なので、少し勉強してやってみます。

>>626
まあ普通は >>629 のやり方だろうな
626 は「コンパイラ言語」がどんなものか理解していないのか？
それとも 実行時型情報を使えばできますよね とか言いたいのか？

んだな　　もうちっと質問者は素性をさらしなさい。
現状、答えるほうは何をどこまで説明すべきか見当がつかない

まあ関数名の文字列の配列てのを
関数ポインタの配列にするってのが
if で分けるよりオサレかな。
初心者にはやや難だと思うけど。

あとそもそも論として、全てのボタンのクリックを
１つの イベントメソッドで処理して
Sender で分けるという方法もあるよ。どちらかというとこっちが基本的な気がす

sender理解した時は自分が劇的にレベルアップしたように思えたなぁ
なんかソースがえらいスタイリッシュになったようにも感じた

いまさらですけど>>626,628さんのやりたかったことって
ボタン情報の中に押したら何をするかも文字列で指定してあって
XXXXっていう文字列だったらNantokaButtonClickっていうイベントハンドラ、
YYYYならUntaraButtonClickっていうイベントハンドラ、
みたいなのをコンポのFindComponentメソッドみたいなので簡単に取得できないかって思ったのではないかな？

こんなのか
http://www.gesource.jp/weblog/?p=642

今時のDelphiだとIntegerやStringの汎用自作ユーティリティ関数ってどうやって作るの？
例えば

function dbl(s: string): string;
begin
　result := s + s;
end;

というルーチンを作ったとしたらmystrutilsユニットに関数としてベタ置き？
それとも

class function TMyStrUtil.dbl(s: string): string;

みたいにするんだろうか

>>637
ユーティリティのような状態を保持するものでなければ、クラスにせず、そのまま関数にすればいいんじゃないのかな

呼び出しは単に

dbl('abc');

でもいいけど、
個人的には文脈を明示したいので、

MyStrUtil.dbl('abc');

と、ユニット名を付けて呼んでる

>>637
今時だと、class helper (record helper)
ってのがあって、これ使えば

'abc'.dbl()

なことができるんだけど、
一つのクラス(or レコード)にひとつだけという謎の制限があって、そしてStringには標準で用意されてるから、どちらかの使用になってしまう。

知識はXE8レベルで止まってるので、今の最新版なら、もしかして制限なく使えるのかも(未確認)

TStringHelper を承継すればいいんでない

初心者なので、初歩的な質問です。
Ａ、Ｂ、Ｃの３つのボタンを配置しました。

Ａを押下後タイマーで５秒間、ＢとＣのボタンが有効になるプログラムを作成しました。
Ａを押しＢを続けて押したとき、ＢのプログラムがWhileでループになっているときは、５秒経っても有効な状態が続き、無効に戻りません。
どうしたらいいでしょうか。ヒントをお願いします。

whileループの間にApplication.ProcessMessagesして、メッセージキューの
メッセージを処理してやればいんじゃね。

とりあえず、それでごまかせるけど。、
whileループ内などで時間のかかる処理してそうだけど、
本来重い処理は、UIスレッド以外のスレッドでやるべきだが、
まぁ、初心者で１個ずつ勉強すると思うのでいいかな。

>>642-643
ありがとうございます。わかりました。

思うようにできませんでした。
書く方が悪くてすみません。
Aボタンを押しBボタンを押した時のループはそのままで、Aボタンを押した時の有効のみを無効にするにはどうしたらいいでしょうか。

>>645
Aボタンを押した時の有効？

客観的に読んで意味が通るかどうか確認してから出直してください

A、B、Cのボタンを配置し、Aボタンを押してから5秒間はBとCのボタン有効となります。この間AボタンはTrueです。5秒経過したらFalseに戻ります。
Bボタンにはwhileのプログラムがあります。
Cボタンにはwhileから出るように書きました。

Aボタンを押し(True)、Bボタンを押しwhileでループ状態の時に、5秒経過した時AボタンがTrueのままでFalseになりません。
Bボタンのwhileのループそのままにしておきたいです。
どうしたらいいでしょうか。

>>647
解A
>>642 で提示されたProcessMessagesを使う。
組み方によっては、まれに予期せぬタイミングでイベント処理が走ったりするので、個人的には使用していない。

解B
>>643 で提示されたTTheadによるマルチスレッドプログラミング。
今のプログラミングスキルでは、手が出ないと思うので、そうゆうものがあるんだということだけ知っておけばいい。

解C
今の仕様と大体同じ動きになるよう、少し変える。

ボタンBではループを回すのではなく、別のTTimerを用意し、このタイマーを有効にする(だけ)。
このタイマーは、たとえば10msecごとに走るようにさせておく。
タイマーでは、ボタンBのwhileループ内の処理を実行させる。

ボタンCは、タイマーを無効にする。

仕様として書かれてないけど、ボタンAによる5sec有効にするのもTTimer使ってるんだよね？

わかりやすい解説ありがとうございます。
自分で調べた限りでは解Bしか見つからなかったのでお聞きしました。

解Aについては途中で止まるとキリが悪い場合が多いのでやめておきます。

TTimerを使っていますが、他に拾ったfunctionでも試しました。どちらも一緒でした。
解Cのタイマーをもう一つ使う方法でやってみたいと思います。

Delphiのスレッドは激烈に簡単だから素直に使うのがよいよ。
アドバイスとしてはFreeOnTerminateはFalseにした方が解りやすい。

スレッドの使い方というより概念じゃね。

私は>>647のAボタンがTrueだFalseだってなんだかわかりませんでした。
Enableなら逆ですから違うでしょうし。

Application.Run;
WaitForSingleObject(hMutex, INFINITE);//Add
ReleaseMutex(hMutex);//Add
CloseHandle(hMutex);
ね

たぶん「Aボタンを押したよフラグ」じゃね？

古いdelphi使っているんですが、線を自由に扱えるコンポーネントってどこかにないでしょうか。
Tshapeの拡張のようなもので・・・
斜めに線を引いたりしたいのですが、手間だけならいいんだけどPaintはうまく扱えなくて。

よく分からない
TCanvasクラスのLineToメソッドを使うだけじゃダメなのか？

フォームにTPaintBoxを貼り付けて、OnPaintイベントで下記記述
これで斜めの線が引ける

procedure TForm1.PaintBox1Paint(Sender: TObject);
var
ACanvas: TCanvas;
ABox: TPaintBox;
begin
ABox := TPaintBox(Sender);
ACanvas := ABox.Canvas;
ACanvas.MoveTo( 0, 0 );
ACanvas.LineTo( ABox.Width, ABox.Height );
end;

>>657、658
ありがとうございます。
動かしたり、拡大したり、色を変えたりしようと思ったのでShapeになっていれば簡単でいいなと思ったのです。

新しいDelphiには画面を見る限りあるようでうらやましい。

>>655
なるほど！ありがとうございます。
自分が想像していた仕様で間違いなかったようです。

私はアクションオブジェクトを使って作ってみたのですが
ループにApplication.ProcessMessagesを入れてもアクションの更新をやってくれなくて（Sleep関数を挟んでも駄目）
仕方なくあまり推奨されていないらしいApplication.HandleMessageを使いましたが、
意外と難しい問題ですね。

>>659
イベント処理が激烈に簡単なDelphiでマウス操作に反応させるのは思うほど難しくないよ

>>660
抽象的だから難しく思えるだけで詳細が分かれば以外に簡単に実装できる問題かもよ
質問者の言っている「ボタンBのwhileループ」が何をしているのかさっぱりだし

>>662
多分、ボタンBのイベントハンドラ内でwhilw文による無限ループさせている。
ボタンCを押した際のループ脱出(のためのフラグ更新)と、5sec後にタイマーが働いてボタンB、CのEnabledをfalseにしたいができないという事象だと思う。

なぜ上手くいかないかは、まずはイベントループがどうゆうものか理解する必要があるだろうねー。

>>663
そういう話じゃなくてさ
whileループの中身次第ではマルチスレッドで簡単に問題が解決する事もあるし
逆にマルチスレッドにすることで面倒ごとが増える事もあるってこと

ユーザーインターフェースのためにマルチスレッド使う必然性はまあないね
どうしても使いたくなったら、それは頭冷やして考え直すべし

いや、長時間かかる処理をユーザーインターフェースの走っているメインスレッドから分離するために
スレッドを使うのは一般的だろう
そうじゃないと、定期的にメッセージループを回すとかいう変なことをしないといけなくなるし
そもそも、長時間ブロックする処理が外部ライブラリの物で自分で手を入れられない場合は
メッセージループを挟みこむことは出来ないしね

長時間かかる処理が複数裏で走る状況まで考えると
スレッドじゃないと対応できないしね

>>665はユーザインターフェースを操作するためにマルチスレッドを使うって勘違いしてるんじゃね？
あー「5sec後に」ってのをマルチスレッドからって意味ね

「5sec後にタイマー」はTTimerｗいいんだけど
同期のためにSynchronizeメソッドを使うのかTEventを使うのかとか
もしかしたら同期の必要ないかもしれないし
whileループの中身を見ない事にはなんとも言えんのよね
あとあとのことを考えればTEventのような同期用のクラスなどを使うほうが良いのだけど

>>666
だな。だから俺は>>643でごまかしと書いたんだけど。
個人的にはメッセージループ回すとかこんなかっこ悪いことはしない。

お、なんか俺変なこと書いたみたいだ。

長時間かかる処理（戻ってこない）ってのが、例えばTIdHttp.GETとかだと、
スレッド生成して中でコンポも生成して取りに行かせて自動破棄みたいなことはやるわね。
じゃないとUI待ちぼうけになるから。

ボタンの有効無効を制御するだけだろ　逆に何が難しいの？
ループしてるところで５秒経過したかどうか見て、ボタンを変更して、
Application.ProcessMessages; でメインスレッド(UIスレッド)へ反映させるだけ。
別にワーカースレッドやタイマーを使わなくてもできる

ＧＩＦファイル表示の参考に下のサイトの gifimaged2010b.zip ってのを見てるんだが
ＧＩＦの表示サイズを変えるほうほうが分からない
ソースから変えていかないとダメなんだろうか

http://www.tolderlund.eu/delphi/

>>574
そうですよー。
早戻しだの、巻き戻しとか逆再生なんていう方言が
あって困ってました。

やりたいことはMCISendStringを使った逆再生です。

>>575
MCIWndPlayReverse というモノを初めて知りました。
解説サイトの記事を読んでいますがまだ消化できていないです。

こんなメソッドを作りましたが、全く反応せず。
procedure TForm1.RevBtnClick(Sender: TObject);
begin
MCISendString(PChar('Play MyMusic from" + Time_Now_str + "to 0'), nil, 0, 0);
end;
なんていうメソッドを書いたけど、ぴくりとも動かない

>>673
MCIについては知らんが…、相変わらずトンチンカンなコードに見える。

'Play MyMusic from

>>673
なぜかレスがうまく書き込まれないな。

'Play MyMusic from" + Time_Now_str + "to 0'
って、
'Play MyMusic from ' + Time_Now_str + ' to 0'
と書くんじゃないの？？

>>673

PChar()のカッコ内には文字列を指定するんだけど、今回のケースだと
文字列定数、文字列変数、文字列定数を連結してるわけだから
PChar('文字列定数' + ' ' + 文字列変数 + ' ' + '文字列定数') // ' ' はスペース
つまりPChar('文字列定数 ' + 文字列変数 + ' 文字列定数')となるね

もし文字列変数の内容が「100」だったら
'Play MyMusic from 100 to 0'となる

MCISendStringで使う前に、連結した文字列をEditBoxかなんかで確認したら？

>>575
いろいろ調べたところ、現在MCIで巻き戻しをするのは
MCIWndPlayReverse一択のようです。
ただ使いこなすには難しい…

>>674-676
文字列の連結は「'」ですね
基本的なことがわかっていないようです。
オフィシャルコースウエアーを回せるくらい勉強してから出直してきます。
程度の低い質問に親身に回答くださった皆様ありがとうございました。

まだあんまり分かってない悪寒...

TWebBrowserにOnClickイベントを実装できます？

>>679
タグのイベントのことか?
JSスクリプトで実装のことか
いろいろある

>>680
とりあえず普通のコントロールみたいに、
TWebBrowserの任意の場所をクリックすると
発火するイベントを考えてるんだけど

やっぱ Application.OnMessageとかを使うのかな…

今のDelphiでローカルなデータベースアプリが作れるエディションって何？

むしろデータベースも作れないような言語なんてクソかと

>>683
ありがとう。
一番安いやつでもいいってこと？
昔、XE2でサンプルのフィッシュファクトリーが動かなかったから
高いやつじゃないといけないと思ってたわ。
設定とかインストールの不足とかそんなことだったのかな。

サンプルプログラムが動かないのは昔から

例えばファイヤーバードをフリーのコンポーネントから操作するのに
エディションとか関係なくね？
そのコンポーネントのリドミにエディションの制限ありますとか書いてるあるならともかく

>>682です。
ネットで調べながらmysqlやinterbaseを使った簡単なプログラムを作ってみました。
今度は配布の方法に関してググって見たら、paradoxとかなら実行ファイルに組み込まれるので
実行ファイルを入れるだけで良いという記事を見ました。
しかし、今はparadoxは使えないような事が書かれていたと思います。
今のDelphiで実行ファイルだけ配ればいいデータベースを利用したソフトって出来るのでしょうか？
名前的にBDEexpressコンポーネントを使うのかなと思ったりしているのですが、
どなたか教えて下さい。
よろしくお願いします。

>>687
sqlite

sqliteはDLL必要じゃね？
ところでDLL配るのが嫌なのはなぜなの？

firedacベースであれば、sqliteを静的リンクできる
http://docwiki.embarcadero.com/RADStudio/XE8/ja/SQLite_データベースへの接続（FireDAC）

>>689
レス、ありがとうございます。
DLLを配るのはいやでは無いです。
データベースとかの経験がそんなに無いので、配る時にデータベースの設定をどうすれば
良いのかが分かってないのです。
インストーラーを使った配布とかも経験が無いので、実行ファイルだけで何とかならないかなと
思いました。
DLLぐらいなら実行ファイルと同じところに置けば良いので配布に関してはちょっとホッとしています。

>>688,690
ありがとうございます。
環境をきちんと書いていなくて失礼しました。
取り敢えず、昔手に入れたXE2Proで試していました。
今の物はデータベースの取扱が楽になっているのですね。
iOSとかアンドロイドアプリとかも作ってみたいので、今のDelphiを買ってもらうように
交渉しようと思います。

>>691
簡単なものであれば、Lazarusでできるよ。

>>692
今のdelphiが買ってもらえない時には良い選択かもしれないですね。
面白そうなので調べてみます。

LazarusのTDBFコンポーネントいいですね

スレチかもですがSQLiteでの検索について教えて下さい。
SQLite3SDWという郵便番号を検索するサンプルプログラムを参考に勉強して
います。
例えば「北海道札幌市中央区」内の郵便番号を検索するために
「北海道札幌市中央」を検索すると検索結果が出てくるのですが、
「北海道札幌市中央区」を検索すると検索結果が０になってしまいます。
サンプルに付いていたexeファイルでは検索は正常に行われるみたいです。

私はXE2を使っているのですが、サンプルはDel7で作成されたと言う事が
原因なのか、検索文字列を作成するプログラムが以下のようになっているのですが、
procedure TForm1.LabeledEdit1Change(Sender: TObject);
begin
//WHERE区以降を引数にクエリする
Query('[ADDRESS] LIKE ' + AnsiQuotedStr(
'%' + UTF8Encode(LabeledEdit1.Text) + '%', ''''));
end;
文字化けするので
//WHERE区以降を引数にクエリする
Query('[ADDRESS] LIKE ' + '"%' + LabeledEdit1.Text + '%"');
と変更しました。

わかりにくい文章ですが、よろしくお願いします。

そのQuery関数の引数UTF16版のバグとか

>>695
Query関数のコード張ると心優しいアニキが丁重に検分してくれるかも

>>695
サンプルのほうは末尾の　区　を除いて検索する仕組みになっているとかじゃないの？

682です。
>>696,697,698さん、レスありがとうございます。
一応、検出する部分のプログラムを載せます。

郵便番号のデータファイルはCVS形式になっていて、データベースに読む込む時は各行の
郵便番号と住所の部分をそれぞれUTF8Encodeで文字コードを変換してからデータベースに
登録しています。

サンプルの作者さんはDel7で作成していて、サンプルに付属しているexeファイルの実行では
きちんと検出しているようなので、SQLiteの文字コードとXE2で扱っている文字コードの違い
かとも思ったのですが、私にその辺の知識が乏しいのでよく分からない現状です。
後、サンプルに元々付いていたSQLite3.dllとかSQLite3.pasとかは新しいものに
入れ替えてもやってみました。

検出する部分を貼り付けたら改行が多いと言われたので、次のレスに貼り付けます。

データを検出する部分のプログラムです。

procedure TForm1.Query(Filter: string);
var
SQLIteTable: TSQLIteTable; p: PPostRec; sql: string; StartTime: Cardinal;
begin
sql := 'SELECT * FROM POST_TABLE';
//引数Filterが空文字以外の場合はWHERE句を追加
if Filter <> '' then sql := sql + ' WHERE ' + Filter;
SQLIteTable := SQLiteDB.GetTable(sql);
with SQLIteTable do begin
MoveFirst;
while not EOF do begin
New(p);

//カラム名からデータを取得（どちらの方法でも可）
p^.PostCode := FieldByName['POST_CODE'];
p^.Address := FieldByName['ADDRESS'];

VirtualList.Add(p);
Next;
end;
end;
SQLIteTable.Free;
Memo1.Lines.Add('クエリ時間 = ' +
IntToStr(GetTickCount - StartTime) + 'ms');
ListView1.Refresh;
end;

よろしくお願いします。

UTF8EncodeしたものをＡnsiQuotedStrに変換してるのが怪しい
Del7とXE2じゃ内部の文字コードが違うしサンプルはXE用のを使うべき

最大化表示している時に、5秒ほど中央にメッセージを出して、自動で消すにはどうしたらいいでしょうか。
別のフォームを使わないで方法でお願いします。

>>702
ごめん。わかった。

>>703
どうやったのか参考までに