我有一个有趣的问题。我们的一位客户通过电话录制了语音对话，但提供给录音的文件名无效。这是文件名的示例123:123.wmv
相信它，Windows Media 编码器创建了文件，所有信息都在文件中，但是 Windows 显然不识别文件名，只显示在文件夹中123，文件为 0KB
好吧，从这里开始编辑：感谢 Keith Miller 为我指明了正确的方向，我可以编写一个函数，从文件中提取流名称并使用它。
我已经包含了一份关于如何将两个数据流创建到一个文件中、读取流名称并从每个流中读取数据的工作副本。这太棒了，所以我希望其他人也可以使用它。我的代码忽略了主流。如果将数据写入主流，最好不要忽略它。
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, uGeneralStuff;
type
_FILE_STREAM_INFORMATION = record
NextEntryOffset: cardinal;
StreamNameLength: cardinal;
StreamSize: int64;
StreamAllocationSize: int64;
StreamName: array[0..MAX_PATH] of WideChar;
end;
PFILE_STREAM_INFORMATION = ^_FILE_STREAM_INFORMATION;
TForm1 = class(TForm)
Button1: TButton;
Button2: TButton;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
private
InfoBlock: _FILE_STREAM_INFORMATION;
StatusBlock : record
Status: Cardinal;
Information: PDWORD;
end;
procedure CreateFile(FileName, Info: String);
function ReadFile(FileName: String): String;
function ReadStreams(filename: String): TStringList;
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
function NtQueryInformationFile(FileHandle : Cardinal;
IoStatusBlock : Pointer;
FileInformation : Pointer;
FileInformationLength : Cardinal;
FileInformationClass : Cardinal
): Cardinal; stdcall; external 'ntdll.dll';
implementation
uses Math, StrUtils;
{$R *.dfm}
function TForm1.ReadStreams(filename: String): TStringList;
var
iFH1: Integer;
aFileName: array[0..MAX_PATH] of WideChar;
aStreamName: String;
begin
Result := TStringList.Create;
iFH1 := FileOpen(filename, GENERIC_READ);
NtQueryInformationFile(iFH1, @StatusBlock, @InfoBlock, SizeOf(InfoBlock), 22); // 22 Means FileStreamInformation
FileClose(iFH1);
while (1=1) do
begin
if InfoBlock.StreamNameLength = 0 then
break;
CopyMemory(@aFileName, @InfoBlock.StreamName, InfoBlock.StreamNameLength);
aStreamName := Copy(aFileName, 1, PosEx(':', aFileName, 2) - 1);
if aStreamName <> ':' then //Ignore main stream, because I know I didn't write data in there
Result.Add(aStreamName);
if (InfoBlock.NextEntryOffset = 0) then
break;
InfoBlock := PFILE_STREAM_INFORMATION(PByte(@InfoBlock) + InfoBlock.NextEntryOffset)^;
end;
end;
procedure TForm1.Button2Click(Sender: TObject);
var
aStreams: TStringList;
I: Integer;
begin
aStreams := ReadStreams('C:\Temp\123');
for I := 0 to aStreams.Count - 1 do
begin
ShowMessage(ReadFile('C:\Temp\123' + aStreams[I]));
end;
end;
procedure TForm1.CreateFile(FileName, Info: String);
var
iFH1: Integer;
Buffer: PAnsiString;
begin
iFH1 := FileCreate(FileName);
Buffer := PAnsiString(AnsiString(Info) + #0);
FileWrite(iFH1, Buffer^, Length(Info));
FileClose(iFH1);
end;
function TForm1.ReadFile(FileName: String): String;
var
iFH1: Integer;
Buffer: PAnsiChar;
iFL: Integer;
iBR, iCurPos, iReadSize: Integer;
begin
iFH1 := FileOpen(FileName, GENERIC_READ);
iFL := FileSeek(iFH1, 0, 2);
FileSeek(iFH1, 0, 0);
iReadSize := Min(iFL, 1024);
Buffer := AllocMem(iReadSize + 1);
iCurPos := 0;
Result := '';
while iCurPos < iFL do
begin
iBR := FileRead(iFH1, Buffer^, iReadSize);
if iBR = -1 then
break;
Result := Result + Buffer;
Inc(iCurPos, iBR);
end;
FileClose(iFH1);
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
CreateFile('C:\Temp\123:123.txt', 'This is TestFile 1');
CreateFile('C:\Temp\123:345.txt', 'This is TestFile 2');
ShowMessage(ReadFile('C:\Temp\123:123.txt'));
ShowMessage(ReadFile('C:\Temp\123:345.txt'));
end;
end.