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

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

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

Сокеты [D7, WinXP]

1+Random(9999) © (2005-07-08 14:46:00)
Помогите чем сможете... Как послать файл через сокет ???

Digitman (2005-07-08 15:03:00) [1]

> DiamondShark © (08.07.05 14:58) [8]

может не повезет)
но желательно чтобы повезло)

Big Joe (2005-07-08 15:02:00) [2]
1+Random(9999) тебе для чего ? зайди комне на хату сегодня
помогу чем смогу...

Digitman. (2005-07-08 15:00:00) [3]
все нормально

DiamondShark (2005-07-08 14:58:00) [4]

> srcfile.Free приведет к AV

Это если повезёт.
Хуже, если не приведёт. ;)

Digitman (2005-07-08 14:56:00) [5]

> SendStream(srcfile);
> {Закрываем файл}
> srcfile.Free;

srcfile.Free приведет к AV

Big Joe (2005-07-08 14:55:00) [6]
:))) Я так обращаюсь

Digitman (2005-07-08 14:54:00) [7]

> 1+Random(9999) (08.07.05 14:49) [2]

> 1+Random(9999) (08.07.05 14:52) [4]

"Тихо сам с собою.." (с) ?)

1+Random(9999) (2005-07-08 14:52:00) [8]
Лови....
Должно сработать.......

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

Digitman (2005-07-08 14:51:00) [9]
как угодно.
в зависимости от того что есть "сокет" в твоем понимании.

1+Random(9999) (2005-07-08 14:49:00) [10]
как это будет выглядить программно ????

Digitman (2005-07-08 14:47:00) [11]

> Как послать файл через сокет ???

послать имя файла + послать содержимое файла

Наверх

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