興味深い問題があります。私たちのクライアントは、通話からの音声会話を録音しましたが、録音に与えられたファイル名は無効でした. これはファイル名の例です123:123.wmv
信じてください、Windows Media エンコーダーがファイルを作成し、すべての情報がファイルに含まれていますが、Windows は明らかにファイル名を認識せず、フォルダーにのみ表示し123、ファイルは 0KB です。
さて、ここから編集します。Keith Miller のおかげで、ファイルからストリーム名を抽出して使用する関数を書くことができました。
2 つのデータ ストリームをファイルに作成し、ストリーム名を読み取り、各ストリームからデータを読み取る方法の作業コピーを含めました。これは本当に素晴らしいので、他の人にも使ってもらいたいです。私のコードはメイン ストリームを無視します。メイン ストリームにデータを書き込む場合は、無視しないのが最善です。
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.