Копирование файла при помощи OpenDialog (ошибка)

[sashahttp]

вот так работает:
dir := cur_dir + '\resurs\' + DBEdit3.Text;
u := OpenDialog1.Files.GetText;

FillChar(Buffer, sizeof(Buffer), #0);
p := @buffer;
p := StrECopy(p,'H:\Video\na.kriu4ke2008 .avi') + 1;
FillChar(Fo, sizeof(Fo), #0);
Fo.Wnd := Handle;
Fo.wFunc := FO_COPY;
Fo.pFrom := @Buffer;
Fo.pTo := PChar(dir);
Fo.fFlags := 0;
if ((SHFileOperation(Fo) <> 0) or (Fo.fAnyOperationsAborted <> false)) then
ShowMessage('Cancelled');

тоже самое имя фйла, но только через OpenDialog.


u := OpenDialog1.Files.GetText;
FillChar(Buffer, sizeof(Buffer), #0);
p := @buffer;
p := StrECopy(p,PChar(u)) + 1;
FillChar(Fo, sizeof(Fo), #0);
Fo.Wnd := Handle;
Fo.wFunc := FO_COPY;
Fo.pFrom := @Buffer;
Fo.pTo := PChar(dir);
Fo.fFlags := 0;
if ((SHFileOperation(Fo) <> 0) or (Fo.fAnyOperationsAborted <> false)) then
ShowMessage('Cancelled');

ошибка: неудалось произвести чтение из файла.
в чем причина? помогите!

[maxionans]

Проверь чему равна Buffer после выполнения p := StrECopy(p,PChar(u)) + 1. Если имя файла нормальное, то вероятно, что файл просто заблокирован.

[sashahttp]

проверил. Путь к файлу в переменной @buffer отображается нормально т.е. полный путь к файлу. все равно выдает ошибку...
и файл точно не заблокирован(пробовал много разных файлов).

[Assemblerru]

Я не знаю но я открываю файл вот как:
if (OpenDialog1 -> Execute())
{
Edit1 ->Text = OpenDialog1 ->FileName;
Sfail = OpenDialog1 ->FileName;
}
единственная продлема это написано под C++ Builder
и здесь переменная Sfail должна быть объявлена как AnsiString Sfail = "";