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

Вниз

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

 
leonidus ©   (2005-03-18 09:42) [0]

Мастера подскажите подалуйста, дело в том что мне нужно написать небольшую программку для резервного копирования базы данных с одного компа на другой соединенных локальной сетью. Папки из которой берется база (на первом компе) и в которую она копирутеся (на втором компе), расшарены, но эти машины находятся в разных группах сети. Если они в одной группе, то достаточно указать просто путь , например \\bibl\SharedDocs, но если компы в разных группах сети, такое не катит. Подскажите пожалуйста какие тут есть методы решения.


 
leonidus ©   (2005-03-21 08:01) [1]

Мастера, ну неужели ни кто не копировал файлы по сетке?


 
Reindeer Moss Eater ©   (2005-03-21 09:35) [2]

Подскажите пожалуйста какие тут есть методы решения.
GetLastError


 
Zyb ©   (2005-03-21 10:23) [3]

Напиши клиент серверное приложение, клиент отправляет файл, сервер принимает, там по моему без разницы в одной группе они у тебя находяться или нет


 
Reindeer Moss Eater ©   (2005-03-21 10:24) [4]

Разницы и так и этак нет никакой.


 
leonidus ©   (2005-03-21 13:59) [5]

Хотелось бы просто скопировать как обычный файл на одной машине, указал начальный каталог, конечный каталог и пошел копировать:

procedure FileCopy(const FromFile, ToFile: string);

var
FromF, ToF: file;
NumRead, NumWritten: Word;
Buf: array[1..2048] of Char;
begin

AssignFile(FromF, FromFile);
Reset(FromF, 1);          { Размер записи = 1 }
AssignFile(ToF, ToFile);  { Открываем выходной файл }
Rewrite(ToF, 1);          { Размер записи = 1 }
repeat
BlockRead(FromF, Buf, SizeOf(Buf), NumRead);
BlockWrite(ToF, Buf, NumRead, NumWritten);
until (NumRead = 0) or (NumWritten <> NumRead);
ClloseFile(FromF);
CloseFile(ToF);
end;

а как быть если компы в разных группах?
Сеть Microsoft, один комп Group1\Komp1 а другой Group2\Komp1 как тут корректно вызвать процедуру procedure FileCopy ?


 
Reindeer Moss Eater ©   (2005-03-21 14:14) [6]

А если вообще никаких групп нет?
Например надо скопировать с тома Novell NetWare на том на Unix?

Поэтому забудь навсегда про свои группы и их мнимое влияние на CopyFile.


 
leonidus ©   (2005-03-22 07:54) [7]

Че-то я не врубаюсь, а как тогда без групп и путей?
Но на данный момент у меня сеть Microsoft, там группы есть, подскажите пожалуйста как проблему решить в этом случае.


 
Reindeer Moss Eater ©   (2005-03-22 08:38) [8]

Windows.CopyFile("\\server1\share1\file1.txt","\\server2\share2\file1.txt",False);

И все.
И нет никаких групп.



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

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

Наверх




Память: 0.48 MB
Время: 0.045 c
3-1114688684
Dimedrol
2005-04-28 15:44
2005.06.06
Не исполняется stored proc. через ADO...


14-1116490509
*Pavel
2005-05-19 12:15
2005.06.06
Все пионеры поздравляются


1-1116137905
Grief
2005-05-15 10:18
2005.06.06
var Proc: procedure а дальше что?!


1-1116477407
Andurbay
2005-05-19 08:36
2005.06.06
Печать в Delphi


14-1116079521
Ihor Osov'yak
2005-05-14 18:05
2005.06.06
пару фоток