Однако Мистика.

[vsrmis]

Открывал фаил с статистическим путём. Ну захотелось привинтить Opendialog для удобства.

begin
if OpenDialog1.Execute then Fname:= OpenDialog1.FileName;
end;

Имя считываю всё норм а при выполнении функции

  hWav := OpenFile(PansiChar(Fname), WAVOFStruct, OF_READWRITE);
  if hWav = HFILE_ERROR then RaiseLastWin32Error; тут генерируется исключение, почему непонятно

так например работает нормально

  Path =  'C:\Documents and Settings\DreamWolf\Мои документы\Моя музыка\file.wav' ;
hWav := OpenFile(PansiChar(Path), WAVOFStruct, OF_READWRITE);

Я даже чекбокс поставл в котором отображается

 CheckBox1.Checked := (Fname = Path);

чекбокс отмечается но почемуже тогда после прохождения

 hWav := OpenFile(PansiChar(Fname), WAVOFStruct, OF_READWRITE);
 if hWav = HFILE_ERROR then RaiseLastWin32Error;

Всёравно генерируется ошибка?

[XeruH]

Может файл не доступен для OF_READWRITE?

[Eminem]

vsrmis
1. А переменную Fname Вы объявляете как глобальную или локальную.
2. Fname в программе может где-то ещё изменяется.
3. Я надеюсь Fname типа String.

[asmodey1]

Eminem дело говорит.
Поставьте бряку на строку

hWav := OpenFile(PansiChar(Fname), WAVOFStruct, OF_READWRITE);

и при останове проверьте значение Fname.

[vsrmis]

Fname стринговская глобальная, более нигде не изменяется, с отладкой делал, вроде всё правильно, даже как говорил выше програмно с помошью чекбокса сверял её с Path. Сейчас кину код всей программы.

[Eminem]

Тогда действительно мистика..... Я тут вот что ещё хотел уточнить, обратите внимание.
Два адреса (к примеру):

'C:\Documents and Settings\DreamWolf\Мои документы\Моя музыка\file.wav' ;

и

'C:\DreamWolf\file.wav' ;

В чём разница, по мимо самого пути? - а то, что во втором нет пробелов!

Переместите ВаВ-файл директорию без пробелов. На моей практике встречалось такое, что система не понимает этого пробела и в итоге путь становился таким:

'C:\Documents ';

И по этому файл не найден.

Решение - обрамление пути в кавычки, т.е.:

"'C:\Documents and Settings\DreamWolf\Мои документы\Моя музыка\file.wav'"

Другими словами, попробуйте сделать так:

hWav := OpenFile(PansiChar('"'+Fname'"'), WAVOFStruct, OF_READWRITE);

Согласен, выглядит глупо, но это просто эксперимент.

Далее, я использую не PansiChar, Pchar - не знаю точно в чём разница, но не встречал подобных запарок.

____________
P.S. а файл "file.wav" ни чем не занят?
Дело в том, что параметр "OF_READWRITE" открывает файл на чтение, но и на запись и если файл занят другим приложением или файл уже открыт на запись, то при повторном открытии будет ошибка, правда IO

[asmodey1]

Может, будем лучше использовать QuotedStr ?
Чтоб в кавычках и апострофах не запутаться...

[GunSmoker]

тут генерируется исключение, почему непонятно

Читать сообщение об ошибке не пробовали? Говорят помогает.

OpenFile(PansiChar(Fname), WAVOFStruct, OF_READWRITE)

Почему PAnsiChar, если FName у вас String, а не AnsiString.

Какая версия Delphi? Кто такой OpenFile? Какой у него прототип?

[vsrmis]

Использую PAnsiChar так как Pchar выдаёт ошибку несоответствия типов
PwideChar и Pansichar.
Компилирую на Делфи XE 2011.
Openfile - стандартная функция открытия файла (из Юнита Windows)

вот код если можете скомпилируйте у себя может у вас что-то буудет? или в чём дело?

PHP код:

unit Shifpr;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    OpenDialog1: TOpenDialog;
    CheckBox1: TCheckBox;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
const
Path = 'C:\wav.wav' ;
NEwPath = 'C:\wav2.wav' ;
var
  WAVFile: array of Byte;
  WAVOFStruct: TOFStruct;
  hWav, hMod: THandle;
  WavSize: Integer;
  BytesRead, BytesWrite: DWORD;
  X,t : integer;
  Fname : string;

begin
  if OpenDialog1.Execute then Fname:= OpenDialog1.FileName;
  if Path=Fname then CheckBox1.Checked := True;

  ZeroMemory(@WAVOFStruct, SizeOf(WAVOFStruct));
  hWav := OpenFile(Pansichar(Fname), WAVOFStruct, OF_READWRITE);
  if hWav = HFILE_ERROR then RaiseLastWin32Error;
  try
    WavSize := GetFileSize(hWav, nil);
    SetLength(WAVFile, WavSize);
    ReadFile(hWav, WAVFile[0], WavSize, BytesRead, nil);
    t := WavFilE[58] ;
    for X := 58 to Wavsize do WavFilE[x] := WavFilE[x+1]; // изменяю только 4 бита и фаил после этого не проигрывается
    x:= wavsize;
    while X<>58 do begin
    WavFilE[x] := WavFilE[x-1];
    x:= X-1;
    end;
    WavFilE[58] := X;
    hMod := CreateFile(NewPath, GENERIC_WRITE, 0, nil, CREATE_ALWAYS, 0, 0);
    if hMod = INVALID_HANDLE_VALUE then RaiseLastWin32Error;
    try
      WriteFile(hMod, WAVFile[0], WavSize, BytesWrite, nil);
    finally
      CloseHandle(hMod);
    end;
  finally
    _lclose(hWav);
  end;
end;

end. 


Да а ошибку мне выдаёт
System Error/ Code : 2 не удаётся найти указаный фаил.

[vsrmis]

Фаил ничем не открыт, если применить.
пробовал так
Fname:= 'C:\wav.wav' ;
if Path=Fname then CheckBox1.Checked := True;

ZeroMemory(@WAVOFStruct, SizeOf(WAVOFStruct));
hWav := OpenFile(Pansichar(Fname), WAVOFStruct, OF_READWRITE);
if hWav = HFILE_ERROR then RaiseLastWin32Error;

Результат анологичен. Тоесть если Fname - стринговая переменная то вё плохо, если же обыкновенная константа , то всё хорошо.