- くだすれDelphi(超初心者用)その56
263 ：デフォルトの名無しさん[sage]：2015/01/27(火) 20:41:51.97 ID:iEDPvIyz - >>259のように指摘されるのが分かっているので
指摘されているのを怖いという趣旨の発言でしたが
上手く受け取っていただけない文章で申し訳ない。
荒らしというのは12/31から1/1の書き込んだ私の投稿をさして言っています。
|
- くだすれDelphi(超初心者用)その56
264 ：デフォルトの名無しさん[sage]：2015/01/27(火) 20:59:37.56 ID:iEDPvIyz - さくら咲きまくり、どうしていいのか分からない、
世間話的なのはさくらが咲くルールが分からないから
|
- くだすれDelphi(超初心者用)その56
266 ：デフォルトの名無しさん[sage]：2015/01/27(火) 21:22:44.74 ID:iEDPvIyz - delphi mciでググると最初に出てくるページの通りにすると
致命的なエラーが出ます。
|
- くだすれDelphi(超初心者用)その56
267 ：デフォルトの名無しさん[sage]：2015/01/27(火) 21:24:49.31 ID:iEDPvIyz - 自分のコードが悪いのか、お手本なのか切り分けができません。
他のサイトを見ながら修正しても、playでも音が出ません
音量ミキサーにもソフト自体が表示されません。
|
- くだすれDelphi(超初心者用)その56
268 ：デフォルトの名無しさん[sage]：2015/01/27(火) 21:41:25.85 ID:iEDPvIyz - サクラとか規制のせいで説明しきれないのですが、良い方法はありますか？
|
- くだすれDelphi(超初心者用)その56
269 ：デフォルトの名無しさん[sage]：2015/01/27(火) 21:47:11.98 ID:iEDPvIyz - { 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);
など
ヒントなどいただけないでしょうか
|
- くだすれDelphi(超初心者用)その56
272 ：たぶんこれ以上の長さはダメ[sage]：2015/01/27(火) 21:59:04.24 ID:iEDPvIyz - これmciSendStringの使い方サイトものを丸写ししたものなんです…。
アドレス入れると咲いちゃうので
|