Главная страница
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.029 c
4-1113661645
IronMan
2005-04-16 18:27
2005.06.06
Запуск программы из сервиса


4-1113423638
Dreamcatcher
2005-04-14 00:20
2005.06.06
Где можно найти компонент для программирования HID-устройств?


9-1110470642
electroowl
2005-03-10 19:04
2005.06.06
Помогите установить glscene!!!


1-1116498372
FANAT
2005-05-19 14:26
2005.06.06
Как динамически добавить в форму GroupBox


1-1116581460
Antonn
2005-05-20 13:31
2005.06.06
"Привязан" ли Zlib к Delphi?