各位前輩    我寫了ㄧ個程式但在開檔的部份有些問題請大家幫幫我 p.s我讀進來的檔案大都為.wav或.mpeg的影音檔       

  int FileLen;
  double *signal; 
  TStringList *signal = new TStringList;
  
  if(OpenDialog->Execute()){
    signal->LoadFromFile(OpenDialog->FileName);
    return;
  }
  FileLen= filelength(signal); //算出讀到檔案的大小
  //把所讀到的檔案內容存到一個動態記憶體
  signal = (double *)calloc(OpenFile, sizeof(double));
  

錯誤訊息 Cannot convert 'TStringList *' to 'int' Type mismatch in parameter '__handle' (wanted 'int', got 'TStringList *') Cannot convert 'TStringList *' to 'unsigned int' Type mismatch in parameter '__nitems' (wanted 'unsigned int', got 'TStringList *')

STRINGLIST適用於讀取純文字，WAV及MPEG是二進位檔案，請使用TMemoryStream等。 ------------------- 學，然後知不足。 發表人 -

Stallion您好    謝謝您的回答但是還是有些問題請您在幫忙一下就是我讀檔時卻出現RIFF? 的訊息並沒有出現檔案的內容是我哪裡搞錯了嗎   

 
   
   AnsiString a;
   if(OpenDialog->Execute()){
     TMemoryStream *ms = new TMemoryStream;
     ms->Position = 0;
     ms->LoadFromFile(OpenDialog->FileName);
     a.SetLength(ms->Size);
     ms->Read(a.c_str(), ms->Size);
     Memo1->Text=a;
     delete ms;
  }
  

Memo的text是存放可見純文字的，你讀出來的是二進位檔，很多是不可見的文字，不可用上述的元件顯示，如果必須，必須先轉換成十六進位的文字才顯示出來。 十六進位轉換看看這個討論： http://delphi.ktop.com.tw/topic.php?topic_id=55146 ------------------- 學，然後知不足。