Главная страница
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.044 c
1-1107807336
GGGG123123
2005-02-07 23:15
2005.02.20
Как узнать где находиться exe моей пргораммы при её работе?


1-1107352137
MakedoneZ
2005-02-02 16:48
2005.02.20
Локальные переменные.


1-1093323585
Vilux
2004-08-24 08:59
2005.02.20
TTree и цвет текста


1-1107452804
Aleks
2005-02-03 20:46
2005.02.20
передать его данные в Edit200.text с Form1.ActiveControl.Name;


10-1083934868
vk220
2004-05-07 17:01
2005.02.20
COM