Сокеты

← →
1+Random(9999) (2005-07-08 14:46) [0]

Помогите чем сможете... Как послать файл через сокет ???

← →
Digitman © (2005-07-08 14:47) [1]

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

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

← →
1+Random(9999) (2005-07-08 14:49) [2]

как это будет выглядить программно ????

← →
Digitman © (2005-07-08 14:51) [3]

как угодно.
в зависимости от того что есть "сокет" в твоем понимании.

← →
1+Random(9999) (2005-07-08 14:52) [4]

Лови....
Должно сработать.......

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:54) [5]

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

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

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

← →
Big Joe (2005-07-08 14:55) [6]

:))) Я так обращаюсь

← →
Digitman © (2005-07-08 14:56) [7]

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

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

← →
DiamondShark © (2005-07-08 14:58) [8]

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

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

← →
Digitman. (2005-07-08 15:00) [9]

все нормально

← →
Big Joe (2005-07-08 15:02) [10]

1+Random(9999) тебе для чего ? зайди комне на хату сегодня
помогу чем смогу...

Сокеты Найти похожие ветки