Передача файла.... - Работа с сетью в Delphi

prizrak1390 · 22.12.2008, 23:25

Доброе время суток!

Вот есть процедурка для отправки файла по сети:

Код:

procedure SendFileBySocket(filename: string);
var 
  srcfile: TFileStream;
begin
  {Открываем файл filename}
  srcfile := TFileStream.Create(filename,fmOpenRead);
  {Посылаем его первому подключенному клиенту}
  ServerSocket1.Socket.Connections[0].SendStream(srcfile);
  {Закрываем файл}
  srcfile.Free;
end;

Помогите написать процедуру для приема (в clientsocket или serversocket)...а то я туплю....

Квэнди · 23.12.2008, 09:58

http://programmersforum.ru/showthread.php?t=16584
http://programmersforum.ru/showthread.php?t=16760

22.12.2008, 23:25	#1
prizrak1390 -=PriZraK=- Форумчанин Регистрация: 12.12.2007 Сообщений: 399	Передача файла.... Доброе время суток! Вот есть процедурка для отправки файла по сети: Код: `procedure SendFileBySocket(filename: string); var srcfile: TFileStream; begin {Открываем файл filename} srcfile := TFileStream.Create(filename,fmOpenRead); {Посылаем его первому подключенному клиенту} ServerSocket1.Socket.Connections[0].SendStream(srcfile); {Закрываем файл} srcfile.Free; end;` Помогите написать процедуру для приема (в clientsocket или serversocket)...а то я туплю.... JAZ - Jrock and Anime zOne

23.12.2008, 09:58	#2
Квэнди Старожил Регистрация: 13.12.2006 Сообщений: 3,859	http://programmersforum.ru/showthread.php?t=16584 http://programmersforum.ru/showthread.php?t=16760 ICQ не для вопросов, а для предложений. Для вопросов используйте форум IRC канал клуба программистов\|Мои статьи

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
Передача файла на FTP	Mitron	Работа с сетью в Delphi	18	02.12.2008 14:17
Передача файла на сервер	eldar	Работа с сетью в Delphi	4	03.09.2008 22:09
Передача текста файла....	prizrak1390	Общие вопросы Delphi	1	23.06.2008 10:58
передача файла от idtcpclient к idtcpserver	SeЯgey	Работа с сетью в Delphi	1	13.05.2008 11:21