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

Вниз

Передача файлов   Найти похожие ветки 

← →
alexa   (2004-06-27 20:26) [0]

Как в локальной сети можно передовать файлы?

---

← →
Ozone ©   (2004-06-28 08:09) [1]

FAQ

---

← →
BillyJeans   (2004-06-28 10:15) [2]

ну, воспользовавщись проводником например ;)

---

← →
ORMADA ©   (2004-06-28 11:45) [3]

копируя потоком
function FileCopy(const SourceFileName, TargetFileName: string): boolean;
var
 S, T: TFileStream;
begin
 Result := False;
 if not FileExists(SourceFileName) then Exit;
 S := TFileStream.Create(SourceFileName, fmOpenRead);
 try
   T := TFileStream.Create(TargetFileName, fmOpenWrite or fmCreate);
   try
     T.CopyFrom(S, S.Size);
     FileSetDate(T.Handle, FileGetDate(S.Handle));
   finally
     T.Free;
   end;
   Result := True;
 finally
   S.Free;
 end;
end;

---

← →
ORMADA ©   (2004-06-28 11:46) [4]

ещё есть вариант через сокеты
но проще юзать вышепреведённый

---

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

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

Наверх

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