学习历程

把两个简单的wav文件合并起来

piip — 2006-09-29 15:16:00Z

[提出]因为近来需要把数据库中涉及到同一事项的多个wav录音同时播放，因为条件限制无法使用播放列表，只能在客户端将这几个wav文件合并起来。

[资料]上网查阅了相关的帖子，思路比较清晰，

1、将每个wav的数据部分相加

2、将文件头中包含的文件大小相加

3、重新写入一个文件，然后更新一下文件头

[实现] 恰好在盒子里翻的时候，发现了一个现成的unit，呵呵，省却了俺好多功夫啊，真是万分感谢原作者。

因为使用的8位单声道8khz的录音文件，因此对其中的一些小项重新添加了一下，用integer代替了cardinal。

关于wav文件头部分的说明，俺前面已经引用了一份资料地。

下面是unit的内容：

unit ConcatWaveU;

interface
uses SysUtils, Classes, Dialogs;

//Déclaration des différents headers contenus dans un fichier WAV...
//Allez faire une recherche sur www.wotsit.org pour des informations précises
//sur le format WAV ! (ou sur google : "WAVE file Format specification" !)

//本单元中的ConcatWave函数用于将相同格式的Wave文件合成一个Wave文件
type
THeaderRIFF = packed record
    ID: array[1..4] of Char; // 总为 'RIFF'
    Size: Integer; // 大小
    Format: array[1..4] of Char; // 总为 'WAVE'
end;

THeaderFormat = packed record
    ID: array[1..4] of Char; //总为 'fmt '注意后面一个空格
    Size: integer;
    Format: word;
    Mode: word;
    SRate: Integer; //=Sample Rate
    BRate: Integer; //=Byte Rate
    Align: word;
    BPS: word; //Bits Per Sample
    Extra:word; //Extra   Format   Information,   2字节(非8k采样则无此字段,仅对PCM,Alaw,Ulaw而言)
    Face:array[1..4]of char; //face字符
    SizeExtra: Integer; //4 face后的数据长度.（到字符data之前的长度4）
    Extras: Integer;//Total   Samples 表示共有多少采样点.等于55－58的数据。(在其他格式中此子块可扩展)
end;

THeaderData = packed record
    ID: array[1..4] of Char; //总为'data'
    Size: Integer; //在这之后的音频数据(Datas)的大小
    //Datas: array of Byte;                   //音频数据，在这里不需要
end;

//这个Wave类型记录实际上只包含了Wave文件的头信息
//因为Datas并没有定义，在这里并不需要

TWAVE = packed record
    RIFF: THeaderRIFF; //à ignorer les fichiers dont le format diffère
    Fmt: THeaderFormat;
    Data: THeaderData;
end;

function ConcatWave(AWaveList: TStringList; ADestFile: string): string;

implementation

function WAV_Valid(Fichier: string): Boolean; //判断是否为合法的wav文件格式
var
WAV: TFileStream;
RIFF: array[1..4] of Char;
WAVEfmt: array[1..8] of Char;
PCM: WORD;
begin
Result := False;
try
WAV := TFileStream.Create(Fichier, fmOpenRead); //原来为fmOpenRead

    WAV.Read(RIFF, 4);
    if RIFF <> 'RIFF' then
    begin
      Wav.Free;
      Exit;
    end;

    WAV.Seek(8, soFromBeginning); //从memory开始移动8个字节
    WAV.Read(WAVEfmt, 8); //Lecture de "WAVE" et "fmt " en même temps
    if WAVEfmt <> 'WAVEfmt ' then
    begin
      WAV.Free;
      Exit;
    end;

    WAV.Seek(20, soFromBeginning);
    WAV.Read(PCM, 2);
    if PCM <> 1 then
    begin
      WAV.Free;
      Exit;
    end;

except
on Exception do
Exit;
end;

WAV.Free;

Result := True;

end;

function FormatOK(Ref, Fich: TWAVE): Boolean;
begin
Result := (Ref.Fmt.Format = Fich.Fmt.Format)
    and (Ref.Fmt.Mode = Fich.Fmt.Mode)
    and (Ref.Fmt.SRate = Fich.Fmt.SRate)
    and (Ref.Fmt.BRate = Fich.Fmt.BRate)
    and (Ref.Fmt.Align = Fich.Fmt.Align)
    and (Ref.Fmt.BPS = Fich.Fmt.BPS);

end;

function ConcatWave(AWaveList: TStringList; ADestFile: string): string;
var
Source, Dest: TFileStream;
Temp: TMemoryStream;
I,K: Integer;
Fichier, Ref: TWAVE;
CopyCount:Integer;
begin
Result := ADestFile;
try
    try
      Temp := TMemoryStream.Create;
      Dest := TFileStream.Create(ADestFile, fmCreate);

      for I := 0 to AWaveList.Count - 1 do
      begin
        if WAV_Valid(AWaveList[I]) then //验证格式正确
        begin
          try
            Source := TFileStream.Create(AWaveList[i], fmOpenRead);

            Source.Read(Fichier.RIFF, SizeOf(THeaderRIFF));
            Source.Read(Fichier.Fmt, SizeOf(THeaderFormat));
            Source.Read(Fichier.Data, SizeOf(THeaderData));

            if I = 0 then
            begin
              Ref.RIFF := Fichier.RIFF;
              Ref.Fmt := Fichier.Fmt;
              Ref.Data := Fichier.Data;
            end;

if FormatOK(Ref, Fichier) then
Temp.CopyFrom(Source,Fichier.Data.Size); //Fichier.Data.Size

          finally
            Source.Free;
          end;
        end;
      end;

Ref.RIFF.Size := 36 + Temp.Size;
Ref.Data.Size := Temp.Size;

      Dest.Write(Ref.RIFF, SizeOf(Ref.RIFF));
      Dest.Write(Ref.Fmt, SizeOf(Ref.Fmt));
      Dest.Write(Ref.Data, SizeOf(Ref.Data));
      Dest.CopyFrom(Temp, 0);

    except on Exception do
      begin
        Result := 'Error';
        Exit;
      end;
    end;
finally
    temp.Free;
    Dest.Free;
end;

end;

end.

WAVE文件格式剖析[转贴备忘]

piip — 2006-05-09 17:09:00Z

WAVE文件格式剖析

　　WAVE文件作为多媒体中使用的声波文件格式之一，它是以RIFF格式为标准的。RIFF是英文Resource Interchange File Format的缩写，每个WAVE文件的头四个字节便是“RIFF”。WAVE文件由文件头和数据体两大部分组成。其中文件头又分为RIFF／WAV文件标识段和声音数据格式说明段两部分。WAVE文件各部分内容及格式见附表。
　　常见的声音文件主要有两种，分别对应于单声道（11.025KHz采样率、8Bit的采样值）和双声道（44.1KHz采样率、16Bit的采样值）。采样率是指：声音信号在“模→数”转换过程中单位时间内采样的次数。采样值是指每一次采样周期内声音模拟信号的积分值。
　　对于单声道声音文件，采样数据为八位的短整数（short int 00H-FFH）；而对于双声道立体声声音文件，每次采样数据为一个16位的整数（int），高八位和低八位分别代表左右两个声道。
WAVE文件数据块包含以脉冲编码调制（PCM）格式表示的样本。WAVE文件是由样本组织而成的。在单声道WAVE文件中，声道0代表左声道，声道1代表右声道。在多声道WAVE文件中，样本是交替出现的。

　　WAVE文件格式说明表　　

	偏移地址	字节数	数据类型	内容
文件头	00H	4	char	"RIFF"标志
	04H	4	long int	文件长度
	08H	4	char	"WAVE"标志
	0CH	4	char	"fmt"标志
	10H	4		过渡字节（不定）
	14H	2	int	格式类别（10H为PCM形式的声音数据)
	16H	2	int	通道数，单声道为1，双声道为2
	18H	2	int	采样率（每秒样本数），表示每个通道的播放速度，
	1CH	4	long int	波形音频数据传送速率，其值为通道数×每秒数据位数×每样本的数据位数／8。播放软件利用此值可以估计缓冲区的大小。
	20H	2	int	数据块的调整数（按字节算的），其值为通道数×每样本的数据位值／8。播放软件需要一次处理多个该值大小的字节数据，以便将其值用于缓冲区的调整。
	22H	2		每样本的数据位数，表示每个声道中各个样本的数据位数。如果有多个声道，对每个声道而言，样本大小都一样。
	24H	4	char	数据标记符＂data＂
	28H	4	long int	语音数据的长度

　　PCM数据的存放方式：

	样本1		样本2
8位单声道	0声道		0声道
8位立体声	0声道（左）	1声道（右）	0声道（左）	1声道（右）
16位单声道	0声道低字节	0声道高字节	0声道低字节	0声道高字节
16位立体声	0声道（左）低字节	0声道（左）高字节	1声道（右）低字节	1声道（右）高字节

　WAVE文件的每个样本值包含在一个整数i中，i的长度为容纳指定样本长度所需的最小字节数。首先存储低有效字节，表示样本幅度的位放在i的高有效位上，剩下的位置为0，这样8位和16位的PCM波形样本的数据格式如下所示。　

样本大小	数据格式	最大值	最小值
8位PCM	unsigned int	225	0
16位PCM	int	32767	-32767

作者Blog：http://blog.csdn.net/WhiteCloud/

新的项目开始了，有些迷茫

piip — 2006-04-03 20:41:00Z

为了要进行底层开发，转到vc？没有答案，继续转delphi的.pas，还是没确定，有些迷茫，看来还是早些打算，熟悉VC。

做了两天的无用功，似乎什么都没有学到，跟在屁股后面疲于奔命，k...

好多事情，好多心思...

天天加班，疯了

piip — 2006-04-02 15:23:00Z

如果那组漫画说的：痛苦的还有天天免费加班！！

加班到现在,听见"加班"就神经质的有些反感.尤其在看到老板不愿意投资,任凭我们怎么努力的拐弯都解决不了这些摸不着头脑的问题的时候.当他那句"事情这么紧急,还不加班?"很轻松的抛出来时,我俩都没有反应... ...

本来我们遇到的问题其实就是一层窗户纸,捅破了就一切ok,当把厂商邀请我们去北京培训一下的想法告诉他后,就没有了下文.

就在昨天,公司请回了一个鲁能集成的人来,居然希望一切从底层开始,在工期比较宽松的情况下,我非常赞同这样做,可是现在却是不到一个月的时间内就要给客户交货!!信誉对他来说就是"跟客户很熟,再拖个把月",呜呼,我实在无话可说.

搞了一顿Listview(Style:ICON)的打印，发现这个方法实在是麻烦，现在改考虑qr去了

piip — 2006-03-02 13:47:00Z

Procedure PrintListView(PicView:TListView);
var
TheRect, PrintRect: TRect;
x, y: Integer;
PrnX, PrnY: Integer;
prnIconCount, prnRowCount, prnPageCount: Integer; //行数
RPP: Integer; //每页可以打印多少行;
P, R: Integer;
SI: TScrollInfo;
SavColor: TColor;
OutSideY: Integer;
RowInLastPage: Integer;
begin
inherited;
X := PicView.Width - 40; //"行"宽
Y := ThumbImageList.Height {图标的高度} + 16 {9号(磅)字体高度9/0.75+4} +4+20;
    //"行"高
prnIconCount := Trunc(X / (ThumbImageList.Width + 44)); //一行存放多少个ICON
if PicView.Items.Count = 0 then
begin
    MessageDlg('客户小样列表为空,打印失败!', mtWarning, [MBOK], 0);
    exit;
end;
//计算一共多少“行”ICON
PrnRowCount := Trunc(PicView.Items.Count / prnIconCount);
if (PicView.Items.Count / PrnIconCount - PrnRowCount) > 0 then
    PrnRowCount := PrnRowCount + 1;
Memo1.Lines.Add('共有行数：' + Inttostr(PrnRowCount));

OutSideY := PicView.Height - Y * Trunc(PicView.Height / Y);

if PrintDialog1.Execute then
begin
    with Printer do
    begin
      SavColor := PicView.Color;
      PicView.Color := ClWhite;
      PicView.Scroll(0, (0 - PicView.Height));
      RowInLastPage := 0;
      PrnX := (PageWidth - 20);
      PrnY := Trunc((PageWidth - 40) * Y / X);
      RPP := Trunc((PageHeight - 40) / PrnY);
      Memo1.Lines.Add('行数每页：' + Inttostr(RPP));
      PrnPageCount := Trunc(PrnRowCount / RPP);
      if (PrnRowCount / RPP - PrnPageCount) > 0 then
        PrnPageCount := PrnPageCount + 1;
      Memo1.Lines.Add('共可打印：' + Inttostr(PrnPageCount) + '页');
      //具体大小根据实际打印纸张的大小设定
      SI.cbSize := SizeOf(TScrollInfo);
      SI.fMask := SIF_ALL;
      BeginDoc;

      for P := 1 to PrnPageCount do
      begin
        for R := 1 to RPP do
        begin
          GetScrollInfo(PicView.Handle, SB_VERT, SI);
          if ((SI.nPos + SI.nPage) >= SI.nMax) then //滚动条已经到底了
          begin
            RowInLastPage := RowInLastPage + 1;
            TheRect := Rect(0, OutSideY + Y * (RowInLastPage-1), x, OutSideY + y *
              RowInLastPage);
            Printrect := Rect(20, 20 + PrnY * (R - 1), PrnX, PrnY * R);
            Memo1.Lines.Add(Format('%d,%d,%d,%d',[TheRect.Left,TheRect.Top,TheRect.Right,TheRect.bottom]));
            Canvas.CopyRect(Printrect, PicView.Canvas, TheRect);

          end
          else
          begin
            TheRect := Rect(0, 0, x, y);
            Printrect := Rect(20, 20 + PrnY * (R - 1), PrnX, PrnY * R);
            Canvas.CopyRect(Printrect, PicView.Canvas, TheRect);
            Sleep(3000);
            PicView.Scroll(0, Y);
            PicView.Update;
          end;
          Memo1.Lines.Add('输入打印行：' + Inttostr(R) + '行');
        end;
        if P <> PrnPageCount then
          NewPage;
        Memo1.Lines.Add('输入打印：' + Inttostr(P) + '页');
      end;
      EndDoc;
      PicView.Color := SavColor;
    end;

end;
end;
现在感觉还是转到临时数据库里，通过qr打出来比较合理，本来不想改的，只是现在还要打印一些并没有显示出来的文本，恰好也该换个办法，这个法子是在是麻烦的很，局限也太多。

------------------------------------------------------

忙活了两天多的，用qr半天就搞定了，照片一次导入到设计好格式的数据库（也可动态创建临时表），然后链接报表，打印轻松完成。

Override和Overload

piip — 2004-11-30 16:07:00Z

本菜鸟在学delphi中的类的时候，便搜了几篇文章来参考，不想更被搞糊涂了！一篇文章里将override翻译为重载，因为手头没有计算机专业的词典。想如果它是“重载”，那overload是做啥的，居然让俺寻思了半下午。继续看了其他的，总算有些眉目了。

Override是指父类和子类之间方法的继承关系，这些方法有着相同的名称和参数类型。
Overload是指同一个类中不同方法（可以在子类也可以在父类中定义）间的关系，这些方法有着相同的名称和不同的参数类型。

也就是说，如果在子类声明相同的方法名称的时候，如果不是用inherited来继承的话，就会将父类的方法覆盖掉；而且父类的方法声明必须标识为virtual和dynamic；overload比较好理解，就是同类里有许多相同的方法名称，但是参数不相同。且第一个方法可以不用overload来标识。

override的方法返回值类型必须一致,其modifier可以扩大，不可以缩小。

一个不是用abstract标识的方法不可以override成abstract方法。

override的子类的方法拋出的异常只能是父类方法拋出异常的子异常。

花了这么长的时间，终于解决了程序自己弹出的问题！

piip — 2004-10-07 16:14:00Z

目的：系统运行时，最小化到托盘上。当接收到其他程序发出的消息后，弹出主窗口。

遇到的问题是用控件（例如CoolTrayIcon）放在主窗口上，运行的时候最小化一步没有问题，但是当响应其他程序发出的消息，自己将主窗口弹出后，窗口的最小化事件却不再响应，而且关闭系统时报莫名其妙的错误。另外，如果单纯手动单击托盘图标没有任何问题。只有自身调用的时候才报错，现在只是将最小化事件重写了一遍，虽然解决了，可是没有搞清楚其中的原因，不晓得还有没有其他的解决办法。

Unit Unit1;

Interface

Uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, Psock, NMMSG, StdCtrls, Menus, CoolTrayIcon;

Type
TForm1 = Class(TForm)
    MSGServReceive: TNMMSGServ;
    Button1: TButton;
    Memo1: TMemo;
    PopupMenu1: TPopupMenu;
    N1: TMenuItem;
    sdfsdfsdf1: TMenuItem;
    TrayIcon: TCoolTrayIcon;
    Procedure MSGServReceiveMSG(Sender: TComponent; Const sFrom,
      sMsg: String);
    Procedure N1Click(Sender: TObject);
    Procedure FormCreate(Sender: TObject);
Private
    Procedure WMSyscommand(Var Message: TWMSysCommand); Message WM_SYSCOMMAND;

{ Private declarations }
Public
{ Public declarations }
End;

Var
Form1: TForm1;

Implementation

{$R *.dfm}

Procedure TForm1.MSGServReceiveMSG(Sender: TComponent; Const sFrom,
sMsg: String);
const compareMsg := 123456789';
Begin
    If Trim(sMsg) = compareMsg Then
Begin
    Memo1.Lines.Add(sMsg);
    SendMessage(self.Handle, WM_SYSCOMMAND, SC_RESTORE, 0);
    self.Show;
End;
End;

Procedure TForm1.N1Click(Sender: TObject);
Begin
TrayIcon.ShowMainForm;
End;

Procedure TForm1.FormCreate(Sender: TObject);
Begin
//SendMessage(self.Handle, WM_SYSCOMMAND, SC_MINIMIZE, 0);
End;

Procedure TForm1.WMSyscommand(Var Message: TWMSysCommand);
Begin
Case Message.CmdType Of
    SC_MINIMIZE: Begin
        Inherited;
        Form1.Visible := False;
      End
Else
    Inherited;
End;
End;

End.

Firefox占用的资源那么高，为什么还显得比IE快呢？

piip — 2004-09-22 16:58:00Z

1- "ctrl"+"+"可以调大页面字体，"ctrl"+"-"可以缩小页面字体； 2- "ctrl"+"t"可以打开新的tab，"ctrl"+"w"关闭当前tab； 3-在当前窗口开Tab：（1）打开连接的时候按住Ctrl键；（2）把连接拖动到Tab栏上。

这里好事热闹啊！霍霍

piip — 2004-09-20 16:02:00Z

http://blog.csdn.net/fita/archive/2004/09/05/95055.aspx[EJB 叫我如何爱上你 --评《精通EJB》及EJB ]

比较有意思的话：

我会骑自行车，不会开汽车。如果哪天我打算“骑”宝马上班，会发现宝马真的没有凤凰牌自行车好用，想不明白为什么宝马就比凤凰自行车贵那么多钱。根本原因不是宝马不如凤凰，而是使用方法不同。要想用好宝马，就得学会开车。

Case Strings 以前总是用Tstringlist来实现，闲来搜索了一下，发现这个法子更好些

piip — 2004-06-28 10:01:00Z

其实这两个都差不多

[问题提出]
如何像vb那样在 CASE 语句中使用字符串? 在一大堆的字符串条件里跳转语句常被搞得晕头转向，太多的 IF ELSE 既花时间写，也花时间读。能不能用CASE语句来解决呢？

[解决]
  Delphi中的 CASE 语句限制只能用顺序的（ordinal）类型，以至于不能在其中直接使用字符串。
  解决它的根本思想是将字符串列转化成可比较的顺序类型。最简单的方法是将这些字符串作为一个字符串数组，它们在数组中的索引即代表它们各自的顺序。
[实现]
  首先建立 CaseString 函数，用于获取某字符串在一个字符串数组中的顺序：

  function CaseString (const s: string;
                       const x: array of string): Integer;
  var i: Integer;
  begin
  Result:= -1; // Default return parameter
  for i:= Low (x) to High (x) do begin
    if s = x[i] then begin  Result:= i;  Exit;  end;
  end;
  end;
  Low() 提供第一个数组成员（通常是0），High() 则返回最后一个。因为 CaseString 返回的是待查字符串在字符串数组中的位置，因此，它可以被直接用到 CASE 语句中：
  search:= 'delphi3000';
  case CaseString (search, ['delphi3000',
                             'delphipages',
                             'Torry's']) of
    0: s:= 'Excellent!';
    1: s:= 'Good source';
    2: s:= 'Not bad!';
  end;

引用：http://www.52delphi.com/tips/delphi/opascal/26102301444.htm ；

function StringToCaseSelect
   (Selector : string;
CaseList: array of string): Integer;
var cnt: integer;
begin
   Result:=-1;
   for cnt:=0 to Length(CaseList)-1 do
begin
     if CompareText(Selector, CaseList[cnt]) = 0 then
     begin
       Result:=cnt;
       Break;
     end;
   end;
end;

{
Usage:

case StringToCaseSelect('Delphi',
      ['About','Borland','Delphi']) of
   0:ShowMessage('You''ve picked About') ;
   1:ShowMessage('You''ve picked Borland') ;
   2:ShowMessage('You''ve picked Delphi') ;
end;
}
引用：http://delphi.about.com/cs/adptips2002/a/bltip0202_5.htm