помогите разобраца в mci

← →
hahol (2007-06-17 15:14) [0]

вчера начал изучать MCI и чет не молучается
delphi всегда выдает какуюта ошибку типа там
---acces violation 004008d17 in module ""progect 1 .exe" raed of address 000000----
помогите пожалуста;
в чем ошибка;
unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ExtCtrls, StdCtrls, Buttons,mmsystem, abfControls, abfEffects;

type
TForm1 = class(TForm)
Panel1: TPanel;
bplay: TBitBtn;
OpenDialog1: TOpenDialog;
BitBtn4: TBitBtn;
BitBtn5: TBitBtn;
ListBox1: TListBox;
Timer1: TTimer;
BitBtn3: TBitBtn;
BitBtn2: TBitBtn;
ScrollBar1: TScrollBar;
procedure bplayClick(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
procedure showmcierror;
procedure mmnotify(var Message:Tmessage);
end;

var
Form1: TForm1;
mopen:tmci_wave_open_parms;
mplay:tmci_play_parms;
mset:tmci_set_parms;
mstatus:tmci_status_parms;
flags:dword;
errorid:Dword;
errmsg:pchar;
errmsgstr:string;
iD:longint;
tracklen:longint;

implementation

{$R *.dfm}

procedure TForm1.bplayClick(Sender: TObject);
begin
if opendialog1.Execute then
mopen.lpstrDeviceType:=PansiChar(mci_devtype_Dat);
mopen.lpstrElementName:=pchar(opendialog1.FileName);
flags:=0;
flags:=mci_open_type or mci_open_element or mci_open_type_iD;
errorid:=mcisendcommand(0,mci_open,flags,longint(@mopen));
if errorid<>0 then
begin
showmcierror;
exit;
end;
mset.dwCallback:=0;
mset.dwTimeFormat:=mci_format_samples;
flags:=0;
flags:=mci_set_time_format;
errorid:=mcisendcommand(id,mci_set,flags,longint(@mset));
if errorid<>0 then
begin
showmcierror;
exit
end;
tracklen:=mstatus.dwReturn;

end;

procedure TForm1.mmnotify(var Message: Tmessage);
begin
case message.WParam of
mci_notify_Successful:showmessage("проигранно успешно");
mci_notify_Superseded:showmessage("Прерванно другой командой");
mci_notify_Aborted:showmessage("Прерванно пользователем");
mci_notify_Failure:showmessage("Ошибка");
end;
timer1.Enabled:=false;
end;

procedure TForm1.showmcierror;
begin
mcigeterrorstring(errorid,errmsg,sizeof(errmsg));
setstring(errmsgstr,errmsg,strlen(errmsg));
showmessage("ошибка Multimedia Control Interface"+#10#13+errmsgstr);
end;

end.

← →
Плохиш © (2007-06-18 13:00) [1]

Объекты создавать пушкин за тебя должен?

← →
hahol (2007-06-18 19:05) [2]

какие обьекты
я пока ноль в мсi
отвечай по чесноку

> вчера начал изучать MCI

Вчера надо было изучать возможности встроенного отладчика по поиску собственных багов, и только после этого приступать к изучении mci или чего-то еще.

Эта самая твоя "какуята" ошибка несет вполне информативный смысл, позволяющий с точностью до строки определить место в своей программе, где ты допустил эту ошибку.

Читать справку к меню Search -> Find Error .. до полного просветления !

помогите разобраца в mci Найти похожие ветки