Скачать: CL | DM;

Копирование файлов по сети   Найти похожие ветки 

← →
Meneee   (2005-01-11 20:39) [0]

Делаю так:

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

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

---

← →
Anatoly Podgoretsky ©   (2005-01-11 21:09) [1]

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

---

← →
Meneee   (2005-01-12 05:33) [2]

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

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

---

← →
Kerk ©   (2005-01-12 05:41) [3]

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

---

← →
Gero ©   (2005-01-12 07:50) [4]

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

---

← →
Meneee   (2005-01-12 11:10) [5]

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

---

← →
Reindeer Moss Eater ©   (2005-01-12 11:37) [6]

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

---

← →
Anatoly Podgoretsky ©   (2005-01-12 11:48) [7]

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

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

---

← →
Eraser ©   (2005-01-12 13:10) [8]

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

---

← →
BiN ©   (2005-01-12 13:30) [9]

Eraser ©   (12.01.05 13:10) [8]

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

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

---

← →
BiN ©   (2005-01-12 13:31) [10]

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

---

← →
Eraser ©   (2005-01-12 13:48) [11]

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

---

← →
Meneee   (2005-01-12 20:20) [12]

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

---

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

Скачать: CL | DM;



Память: 0.47 MB
Время: 0.034 c