bebakhshid
چهارشنبه 24 دی 1382, 17:59 عصر
excuse me i havennot win farsi what is the error(xpshows this error)
and me cannot find this function,...
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, DB,extctrls,aclapi,dbctrls, StdCtrls, DBTables,mplayer,mask,buttons,comctrls,mmsystem,
ADODB, Grids, DBGrids;
type
TForm1 = class(TForm)
DataSource1: TDataSource;
Button1: TButton;
Button2: TButton;
OpenDialog1: TOpenDialog;
Table1: TTable;
Table1Filename: TStringField;
Table1Wavetitle: TStringField;
Table1Wave: TBlobField;
DBGrid1: TDBGrid;
procedure Button2Click(Sender: TObject);
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Button2Click(Sender: TObject);
begin
if OpenDialog1.Execute then
begin
Table1.Append;
table1['filename']:=ExtractFileName(OpenDialog1.Fi leName);
Table1wave.LoadFromFile(OpenDialog1.FileName);
end;
end;
procedure TForm1.Button1Click(Sender: TObject);
var
b:TBlobStream;
m:TMemoryStream;
begin
b:=TBlobStream.Create(Table1wave,bmReadWrite);
Cursor:=crHourGlass;
m:=TMemoryStream.Create;
m.CopyFrom(b,b.Size);
Win32Check(PlaySoundW(m.Memory,0,SND_SYNC or SND_MEMORY));
m.Free;
Screen.Cursor:=crDefault;
b.Free;
end;
end.
//from ddg5
and me cannot find this function,...
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, DB,extctrls,aclapi,dbctrls, StdCtrls, DBTables,mplayer,mask,buttons,comctrls,mmsystem,
ADODB, Grids, DBGrids;
type
TForm1 = class(TForm)
DataSource1: TDataSource;
Button1: TButton;
Button2: TButton;
OpenDialog1: TOpenDialog;
Table1: TTable;
Table1Filename: TStringField;
Table1Wavetitle: TStringField;
Table1Wave: TBlobField;
DBGrid1: TDBGrid;
procedure Button2Click(Sender: TObject);
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Button2Click(Sender: TObject);
begin
if OpenDialog1.Execute then
begin
Table1.Append;
table1['filename']:=ExtractFileName(OpenDialog1.Fi leName);
Table1wave.LoadFromFile(OpenDialog1.FileName);
end;
end;
procedure TForm1.Button1Click(Sender: TObject);
var
b:TBlobStream;
m:TMemoryStream;
begin
b:=TBlobStream.Create(Table1wave,bmReadWrite);
Cursor:=crHourGlass;
m:=TMemoryStream.Create;
m.CopyFrom(b,b.Size);
Win32Check(PlaySoundW(m.Memory,0,SND_SYNC or SND_MEMORY));
m.Free;
Screen.Cursor:=crDefault;
b.Free;
end;
end.
//from ddg5