Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

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

Можно ли переслать директорию? [D6, WinME]

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

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

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

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

Anatoly Podgoretsky (2003-09-07 20:02:00) [2]

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

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

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

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

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

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

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

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

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;

Наверх

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