Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2005.02.20;
Скачать: CL | DM;

Вниз

Создание файла!   Найти похожие ветки 

 
serko   (2005-02-06 18:20) [0]

Ребя помогите! На сетевом компьютере Server открыт полный доступ к папке Delphi, а я со своего компа Serega хочу там создать файл! Делаю так:

procedure TForm1.BitBtn1Click(Sender: TObject);
Begin
    Assignfile(vr,"\\server\c\Delphi\Fail.txt");
    Rewrite(vr);
    closefile(vr);
End;

При нажатии кнопки выскакивает такая ошибка "I\O error 53"
В чем проблема?
Помогите решить такую задачку!
Хотя если в ручную создать там файл, никаких проблем нет!
Откликнувшимся заранее спасиба!


 
default ©   (2005-02-06 18:34) [1]

ShowMessage(SysErrorMessage(53))="Не найден сетевой путь"


 
Ivolg ©   (2005-02-06 18:35) [2]

У меня всё работает, попробуй так:
var
 vr:TStringList;
begin
   vr:=TStringList.Create;
   vr.SaveToFile("\\server\c\Delphi\Fail.txt");
end;


 
serko   (2005-02-06 18:47) [3]

>> default ©   (06.02.05 18:34) [1]
Как это не найден сетевой путь если он реально существует?


 
default ©   (2005-02-06 18:49) [4]

serko   (06.02.05 18:47) [3]
значит путь задан неверно(


 
Ivolg ©   (2005-02-06 19:11) [5]

Можен не на полный доступ открыт! На до поставить галку "Разрешение изменения файлов по сети"!



Страницы: 1 вся ветка

Текущий архив: 2005.02.20;
Скачать: CL | DM;

Наверх




Память: 0.45 MB
Время: 0.049 c
4-1104796344
Донской
2005-01-04 02:52
2005.02.20
Работа службы под winnt 4.0


3-1106226601
sten
2005-01-20 16:10
2005.02.20
выделение цветом строки в DBGrid


14-1107100401
AG.Smit
2005-01-30 18:53
2005.02.20
Помогите, база данных не работает у тех, у кого нет Delphi


14-1107186515
quickblack
2005-01-31 18:48
2005.02.20
Доступ в инет через Мегафон


1-1107781856
mariya_mezenceva
2005-02-07 16:10
2005.02.20
vk_insert





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский