Главная страница
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.47 MB
Время: 0.057 c
1-1107384287
Green_Templar
2005-02-03 01:44
2005.02.20
добавить в справку


1-1107373177
Алексей
2005-02-02 22:39
2005.02.20
Ограниченние запуска программы


1-1107780689
hgd
2005-02-07 15:51
2005.02.20
Скажите а есть аналоги функци BitBlt


14-1106519472
GanibalLector
2005-01-24 01:31
2005.02.20
Харьков...встреча


14-1107157517
syte_ser78
2005-01-31 10:45
2005.02.20
KMP в Харькове