Delphi World - Передать файл через Socket соединение
Delphi World - это проект, являющийся сборником статей и малодокументированных возможностей  по программированию в среде Delphi. Здесь вы найдёте работы по следующим категориям: delphi, delfi, borland, bds, дельфи, делфи, дэльфи, дэлфи, programming, example, программирование, исходные коды, code, исходники, source, sources, сорцы, сорсы, soft, programs, программы, and, how, delphiworld, базы данных, графика, игры, интернет, сети, компоненты, классы, мультимедиа, ос, железо, программа, интерфейс, рабочий стол, синтаксис, технологии, файловая система...
Передать файл через Socket соединение


- Ну, ты молодец! Вчера сделал больше чем за целый месяц!!
- Да просто у меня Интернет не работал!

Для данной цели можно воспользоваться компонентами TNMStrmServ и TNMStrm, которые предназначены для обмена потоками данных.

Обработчик для клиента:


var
  MyStream: TMemoryStream;
begin
  MyStream := TMemoryStream.Create;
  MyStream.LoadFromFile('c:\windows\рабочий стол\DelphiWorld.txt');
  NMStrm1.PostIt(MyStream);
  MyStream.Free;
end;

Обработчик для сервера:


procedure TForm1.NMStrmServ1MSG(Sender: TComponent;
const sFrom: string; strm: TStream);
var
  MyStream: TMemoryStream;
begin
  MyStream := TMemoryStream.Create;
  MyStream.CopyFrom(strm, NMStrmServ1.BytesTotal);
  MyStream.SaveToFile('c:\windows\рабочий стол\DelphiWorld2.txt');
end;

Проект Delphi World © Выпуск 2002 - 2017
Автор проекта: Эксклюзивные курсы программирования