Поиск и отправка

[mitiay]

Столкнулся с проблемой,поиска файлов по маске и отправки их на вебхостинг.Есть много решений,я выбрал Delphi+php.Так вот я ищу файлы в папке(полный путь до них) и добавляю в мемо.вот так:
Функция поиска:

procedure FindFilesByMask(List :tStrings; var DirCount :Integer; const DirName, Mask :String; SubDir: Boolean = True);
// ????? ?????? ?? ????? ? ???????? ????? ? ????????
  // ??? ?????? ?????????? ? ????????? ?????????? ? ??????????? ?????????,
  // ??? ?????? ??? ??????? ?????? ??? ????. ??????? ????????? ?????????
  // ?????????
  procedure ScanDirs(const DirName :String);
  var
    h   :tHandle;
    wfd :tWin32FindData;
  begin
    Inc(DirCount); // ?????? ??? ??????????
    // ??????? ?????????? ??????? ??????? ?? ???????? ?????
    h := Windows.FindFirstFile(PChar(DirName+Mask), wfd);
    try
      if  h <> INVALID_HANDLE_VALUE  then begin
        repeat
          if  (wfd.dwFileAttributes and FILE_ATTRIBUTE_DIRECTORY) = 0  then
            List.Add(DirName+wfd.cFileName);
        until  not Windows.FindNextFile(h,wfd);
      end;
      // ???????? ???? ?????? ? FindFirstFile ? FindNextFile
      case  GetLastError  of
        ERROR_NO_MORE_FILES,    // ?????? ??? ?????? ? ????????? ??????????????? ????? (?? ????)
        ERROR_FILE_NOT_FOUND,   // ?????? ??? ?????? ? ????????? ??????????????? ?????
        ERROR_SHARING_VIOLATION // ????????? ?? ????? ???????? ???????? (??? ?????? ?? ??? ??????????)
                              : ; // ?????? ?? ??????, ??? Ok
        else // ??? ????????? ??????
          raise Exception.CreateFmt('?????? ????????? ???????? "%s": %s',[DirName,SysErrorMessage(GetLastError)]);
      end;
    finally
      if  h <> INVALID_HANDLE_VALUE  then Windows.FindClose(h);
    end;
    // ?????? ????????? ?????????? ???????????
    if not SubDir then exit; // 13.06.03
    h := Windows.FindFirstFile(PChar(DirName+'*.*'), wfd);
    try
      if  h <> INVALID_HANDLE_VALUE  then begin
        repeat
          if   ((wfd.dwFileAttributes and FILE_ATTRIBUTE_DIRECTORY) <> 0)
           and (wfd.cFileName <> String('.'))
           and (wfd.cFileName <> '..')           then
            ScanDirs(IncludeTrailingPathDelimiter(DirName+wfd.cFileName));
        until  not Windows.FindNextFile(h,wfd);
      end;
      // ???????? ???? ?????? ? FindFirstFile ? FindNextFile
      case  GetLastError  of
        ERROR_NO_MORE_FILES,    // ?????? ??? ?????? ? ????????? ??????????????? ????? (?? ????)
        ERROR_FILE_NOT_FOUND,   // ?????? ??? ?????? ? ????????? ??????????????? ?????
        ERROR_SHARING_VIOLATION // ????????? ?? ????? ???????? ???????? (??? ?????? ?? ??? ??????????)
                              : ; // ?????? ?? ??????, ??? Ok
        else // ??? ????????? ??????
          raise Exception.CreateFmt('?????? ????????? ???????? "%s": %s',[DirName,SysErrorMessage(GetLastError)]);
      end;
    finally
      if  h <> INVALID_HANDLE_VALUE  then Windows.FindClose(h);
    end;
  end;
begin // FindFilesByMask
  ScanDirs(IncludeTrailingPathDelimiter(DirName));
end;

Вызываю так

var
n: Integer;
begin
 FindFilesByMask(memo1.Lines, n, 'C:\', '*.xml');

Пытаюсь отправить:

procedure TForm1.Button3Click(Sender: TObject);
var FileName: string;
var formData: TIdMultiPartFormDataStream;
response:string;
begin
FileName := memo1.text;
formData := TIdMultiPartFormDataStream.Create;
formData.AddFile('myfile',fileName,'application/octet-stream');
formData.AddFormField('param1', 'value1');
response := idhttp1.Post('/upload/gate.php',formData);
memo1.Lines.Text:=response;
formData.Free;
end;

Выходит сообщение
http://screenshot.ru/cb1e42fc7c578d0a7da54e8519c44c46

[Stilet]

Может в пути русские буквы затесались?

[mitiay]

Сообщение от Stilet

Может в пути русские буквы затесались?

Нет нету русских букв

[WhatO_o?!]

А существует ли файл, который твоя программа Cannot open? Если да - от имени админа запускаешь? Быть может не пускают её в ту директорию?

[mitiay]

Сообщение от WhatO_o?!

А существует ли файл, который твоя программа Cannot open? Если да - от имени админа запускаешь? Быть может не пускают её в ту директорию?

Запустил от имени администратора тоже самое...Файл существует так как я перед отправкой делаю поиск в данной директории файлов xml

[WhatO_o?!]

Ну тогда я не знаю)) пробуй показывать путь перед моментом возникновения ошибки, просмотришь на предмет косяков

PS: вообще не пойму, при чем тут Cannot open LocalService.exe, когда работает процедура с xml ... не может же он считать её директорией

[mitiay]

Сообщение от WhatO_o?!

Ну тогда я не знаю)) пробуй показывать путь перед моментом возникновения ошибки, просмотришь на предмет косяков

PS: вообще не пойму, при чем тут Cannot open LocalService.exe, когда работает процедура с xml ... не может же он считать её директорией

Для проверки делал.Такой вопрос (чтоб не создавать новый топ)

 IdFTP.MakeDir(InttoStr(num));
          IdFTP.ChangeDir('/webspace/httpdocs/'

Все папку создает теперь как перейти в созданную папку ?

[WhatO_o?!]

В смысле как перейти? как перейти на каком этапе? ты ведь в функцию директорию передаешь... либо я не понял

[mitiay]

Сообщение от WhatO_o?!

В смысле как перейти? как перейти на каком этапе? ты ведь в функцию директорию передаешь... либо я не понял

IdFTP.MakeDir(InttoStr(num));- создаем новую папку

Как перейти в созданную папку так?

IdFTP.ChangeDir('/webspace/httpdocs/' + (num) так ругается