Здесь мы рассмотрим посылку файлов через сокет. Итак, как же послать файл по сокету? Очень
просто! Достаточно лишь открыть этот файл как файловый поток (TFileStream) и отправить его
через сокет (SendStream)! Рассмотрим это на примере:
{Посылка файла через сокет}procedure SendFileBySocket(filename: string);
var
srcfile: TFileStream;
begin{Открываем файл filename}
srcfile := TFileStream.Create(filename,fmOpenRead);
{Посылаем его первому подключенному клиенту}
ServerSocket1.Socket.Connections[0].SendStream(srcfile);
{Закрываем файл}
srcfile.Free;
end;
Нужно заметить, что метод SendStream используется не только сервером, но и клиентом
(ClientSocket1.Socket.SendStream(srcfile))
Если Вас заинтересовала или понравилась информация по разработке на Delph - "Посылка файлов через сокет", Вы можете поставить закладку в социальной сети или в своём блоге на данную страницу: Так же Вы можете задать вопрос по работе этого модуля или примера через форму обратной связи, в сообщение обязательно указывайте название или ссылку на статью!