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

Вниз

Можно ли переслать директорию?   Найти похожие ветки 

 
Александр из Минска ©   (2003-09-07 14:26) [0]

Можно ли переслать с компа на комп по локалке директорию со всем ее содержимым, не используя рекурсивный поиск (не перекидывая по файлу)?


 
NikB   (2003-09-07 16:33) [1]

Mojno posmotret eto i poljzovatj osnovu:
{}function FolderCopy(hWin: tHandle; sFolderFrom, sFolderTo: string; flRenameOnCollision: boolean): boolean; // ShFileOperation(fos)
var
fos : tSHFileOpStruct;
xsFolderFrom, xsFolderTo : string;
l : integer;
begin

if (sFolderFrom<>"") and (sFolderTo<>"") and (sFolderFrom<>sFolderTo) then begin
if DirectoryExists(sFolderFrom) then begin

Result:=false;

l:=length(sFolderFrom); if sFolderFrom[l]="\" then system.delete(sFolderFrom,l,1);
l:=length(sFolderTo); if sFolderTo[l]="\" then system.delete(sFolderTo,l,1);

xsFolderFrom := sFolderFrom+#0;
xsFolderTo := sFolderTo+#0;

FillChar(fos,SizeOf(fos),0);
with fos do begin
Wnd := hWin;
wFunc := fo_Copy;
pFrom := pChar(xsFolderFrom);
pTo := pChar(xsFolderTo);
fFlags := fof_MultiDestFiles+fof_NoConfirmation+fof_NoConfirmMkDir;
if flRenameOnCollision then begin
fFlags:=fFlags or fof_RenameOnCollision;
end;
end;
try
Result := (ShFileOperation(fos)=0);
except
end;
end else Result:=true;
end else Result:=true;
end;


 
Александр из Минска ©   (2003-09-07 19:40) [2]

Или я не понял вас, или вы меня, но я хочу одним махом перекинуть директорию с компа на комп с помощью TIDTCPClien, TIDTCPServer...


 
Администратор ©   (2003-09-07 19:53) [3]

Ты возми на компьютере 1 сжимай необходимую папку (можно и зашифровать) и пересылай, а на компьютере 2 папку расжимай и всё.


 
Anatoly Podgoretsky ©   (2003-09-07 20:00) [4]

Это ты не понял нас, эта конференция не Сети


 
Anatoly Podgoretsky ©   (2003-09-07 20:02) [5]

Извиняюсь ошибся, это мы тебя не поняли, но чем тебя ответ
NikB (07.09.03 16:33) [1] не устраивает, это работает даже через Интернет.


 
Александр из Минска ©   (2003-09-08 15:56) [6]

Всем спасибо! Буду паковать и распаковывать.



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

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

Наверх




Память: 0.47 MB
Время: 0.023 c
7-8680
Tihomirov
2003-08-23 14:48
2003.11.03
Номер CD-диска


3-8253
ИМХО
2003-10-14 11:21
2003.11.03
ADO, строка подключения и диск D


4-8727
Maxim
2003-08-28 21:32
2003.11.03
Как определить, запущено ли приложение


4-8707
MadMag
2003-09-01 13:09
2003.11.03
не идет работа с ком портом из dll


1-8410
Vladimir SVM
2003-10-22 13:08
2003.11.03
Установка Delphi в Windows XP