Здесь мы рассмотрим посылку файлов через сокет. Итак, как же послать файл по
сокету? Очень просто! Достаточно лишь открыть этот файл как файловый поток
(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)) | 
