Top.Mail.Ru
Мастера DELPHI, Delphi programming community Титульная страница Поиск, карта сайта Написать письмо 
| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL |
| Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Копирование файлов по сети


Meneee ©   (2005-01-11 20:39:00) 

Делаю так:

      WNetAddConnection(Pchar(TntLBComputers.Items[i]),nil,PChar('RPC'))
      CopyFile(PChar(FormOpen.TntEdPath.text),PChar('\\VPC\C\test.ww'),false);

Но не работает, подскажите в чем ошибка, или дайте пример. З ранее спасибо


Meneee   (2005-01-12 20:20:00) [1]

WNetAddConnection('VPC',nil,PChar('RPC'))
СopyFile(('C:\1.ato'),PChar('\\VPC\C\test.ww'),false);
ShowMessage(IntToStr(GetLastError));
Получается 0


Eraser   (2005-01-12 13:48:00) [2]

BiN
Ты прав! Я перепутал с deletefile.


BiN   (2005-01-12 13:31:00) [3]

в смысле, ошибаешься


BiN   (2005-01-12 13:30:00) [4]

Eraser ©   (12.01.05 13:10) [8]

Последний аргумент- ссылка на переменную, если не ошибаюсь.


"если не" можешь смело убрать


Eraser   (2005-01-12 13:10:00) [5]

Последний аргумент- ссылка на переменную, если не ошибаюсь. Значит нужно передавать переменную, в которую вернётся значение из ф-ии.


Anatoly Podgoretsky   (2005-01-12 11:48:00) [6]

Meneee   (12.01.05 05:33) [2]
CopyFile это функция, а в справке указано как проверить ошибку, так какой код ошибки? Или ты такой самоуверенный, что принципиально ошибки не проверяешь, поскольку их быть не может, ведь у меня все правильно?

Meneee   (12.01.05 11:10) [5]
Неправильно, нет проверки на ошибку.


Reindeer Moss Eater   (2005-01-12 11:37:00) [7]

конечно аравильно.


Meneee   (2005-01-12 11:10:00) [8]

WNetAddConnection('VPC',nil,PChar('RPC'))
     CopyFile(('C:\1.ato'),PChar('\\VPC\C\test.ww'),false);
VPC=Имя компьютера в сети, на который хочу скопировать
RPC=Имя моего компьютера в сети
Я аравильно делаю?


Gero   (2005-01-12 07:50:00) [9]

И поставь вместо переменных константы, мы же не знаем, что у тебя в TntLBComputers.Items[i] или в FormOpen.TntEdPath.text.


Kerk   (2005-01-12 05:41:00) [10]

Meneee   (12.01.05 5:33) [2]
вопрос тебе был задан правильный. посмотри что функция возвращает


Meneee   (2005-01-12 05:33:00) [11]


> Какая ошибка?

Мда .. Слов нету..
Не копирует, задается вопрос почему? Может кто подкинет пример?


Anatoly Podgoretsky   (2005-01-11 21:09:00) [12]

Какая ошибка?


Наверх

Титульная страница Поиск, карта сайта Написать письмо