Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате
Форум программистов > Delphi: Сети > Создание файла на удаленном ПК: ф-я CreateFile


Автор: Coffein 12.6.2008, 19:20
Здравствуйте, помогите пожалуста разобраться в проблеме. Дело вот в чем, мне надо создать файл на удаленном ПК(работа с ресурсами сетевого окружения). Я использую следующий код:
Код

var
  FileHandle:THandle;
begin
  FileHandle:=CreateFile('\\\\microsha\\temp\\logfile1.txt',GENERIC_WRITE or GENERIC_READ,
                          FILE_SHARE_WRITE or FILE_SHARE_READ, nil, CREATE_ALWAYS,
                          FILE_ATTRIBUTE_NORMAL, 0);
  if FileHandle = INVALID_HANDLE_VALUE then
    Application.MessageBox('Произошла ошибка при создании файла!','Ошибка');
  CloseHandle(FileHandle);
end;


но файл не создается. Точно такой же пример на С++ работает, вчем может быть дело?

Автор: MetalFan 12.6.2008, 19:44
SysErrorMessage( GetLastError ) что говорит?

Автор: Qu1nt 12.6.2008, 19:59
А убрать лишние слешы?
Код

FileHandle := CreateFile('\\microsha\temp\log.txt', GENERIC_WRITE or GENERIC_READ,
                        FILE_SHARE_WRITE or FILE_SHARE_READ, nil, CREATE_ALWAYS,
                        FILE_ATTRIBUTE_NORMAL, 0);

Автор: Coffein 13.6.2008, 11:22
Спасибо за помощь, как раз в них и было дело...

Powered by Invision Power Board (http://www.invisionboard.com)
© Invision Power Services (http://www.invisionpower.com)