Q&A

  • txt Files이 아닌 다른 파일 내용 읽어오기
text file이 아닌 다른 다른 데이터형식의 파일의 내용을 읽어올대는 어떻게 하는지 궁금합니다.

지는 test.idx 파일이란 데이터의 내용을 읽어보려고 합니다.





1  COMMENTS
  • Profile
    구창민 2003.02.26 21:26
    아래는 WAVE 파일을 연주하는 루틴인데,

    바이너리 파일을 읽는 루틴이 들어있네여..

    참고하시고 즐건 프로그래밍 하시길~~

    procedure TForm1.PlaySndFromFileClick(Sender: TObject);
    var
    f: file;
    p: pointer;
    fs: integer;
    begin
    if filelistbox1.itemindex < 0 then
       exit;
    AssignFile(f, expandfilename(FileListBox1.filename));
    Reset(f,1);
    fs := FileSize(f);
    GetMem(p, fs);
    try
       BlockRead(f, p^, fs);
       CloseFile(f);
       sndPlaySound(p, SND_MEMORY or SND_SYNC);
    finally
       FreeMem(p, fs);
    end;
    end;