Начало файла

[KoBRaAndrey]

Не выходит прочитать начало файла, иероглифы...

var
f:tfilestream;
  ID         : array[0..3] of Char;
begin
    f := TFileStream.Create('c:\123.wav', fmOpenRead);
    f.Seek(0, soFromBeginning);
    f.ReadBuffer(ID[0], 4);
    showmessage(String(id));

[p51x]

Вы уверены, что ему нужен ID[0], а не "указатель" на ID?

[KoBRaAndrey]

Мне нужно прочитать начало файла там будет RIFF

[FaTaL]

f.Read(ID, SizeOf(ID));

[KoBRaAndrey]

procedure TForm11.Button1Click(Sender: TObject);
var
f:tfilestream;
ID:Char;
begin
f := TFileStream.Create('c:\123.wav', fmOpenRead);
f.Seek(0, soFromBeginning);
f.Read(ID, SizeOf(ID));
showmessage(id);
end;

показывает китайский иероглиф(

[p51x]

ShowNessage(AnsiString(ID));

[KoBRaAndrey]

теперь знак вопроса... мне нужно начало файла

[p51x]

Попробуйте прочитать какой-нибудь другой текстовой файл.

[KoBRaAndrey]

мне нужно не текстовый файл читать так бы я загрузил в стринглист...
а файл wav

[Kotofff]

Наверное это тебе будет интересно : >> клик <<