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;
Проблема при создании файла на удаленном ПК
Здравствуйте, помогите пожалуста разобраться в проблеме. Дело вот в чем, мне надо создать файл на удаленном ПК(работа с ресурсами сетевого окружения). Я использую следующий код:
но файл не создается. Точно такой же пример на С++ работает, вчем может быть дело?
Код:
но файл не создается. Точно такой же пример на С++ работает, вчем может быть дело?
Цитата: Coffein
Код:
FileHandle:=CreateFile('[COLOR="Blue"]\\\\microsha\\temp\\logfile1.txt[/COLOR]',GENERIC_WRITE or GENERIC_READ,
FILE_SHARE_WRITE or FILE_SHARE_READ, nil, CREATE_ALWAYS,
FILE_ATTRIBUTE_NORMAL, 0);
FILE_SHARE_WRITE or FILE_SHARE_READ, nil, CREATE_ALWAYS,
FILE_ATTRIBUTE_NORMAL, 0);
А не много ли слеш-знаков в поле адреса?..
по моему насчёт знаков - это в PHP так работатало бы (наверное и в cpp), а в Delphi достаточно ставить обычные слэши:
[highlight=delphi]
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);
[/highlight]
[highlight=delphi]
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);
[/highlight]
Спасибо за помощь