Форум: "Основная";
Текущий архив: 2005.07.25;
Скачать: [xml.tar.bz2];
Вниз
Сокеты Найти похожие ветки
← →
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) тебе для чего ? зайди комне на хату сегодня
помогу чем смогу...
← →
Digitman © (2005-07-08 15:03) [11]
> DiamondShark © (08.07.05 14:58) [8]
может не повезет)
но желательно чтобы повезло)
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2005.07.25;
Скачать: [xml.tar.bz2];
Память: 0.46 MB
Время: 0.011 c