Передать файл через Socket соединение

Delphi , Интернет и Сети , Файлы и Интернет

Для данной цели можно воспользоваться компонентами 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;

В статье описывается передача файлов через Socket соединение в Delphi с помощью компонентов TNMStrmServ и TNMStrm, демонстрируя примеры обработчиков для клиента и сервера.

Комментарии и вопросы

Получайте свежие новости и обновления по Object Pascal, Delphi и Lazarus прямо в свой смартфон. Подпишитесь на наш Telegram-канал delphi_kansoftware и будьте в курсе последних тенденций в разработке под Linux, Windows, Android и iOS

:: Главная :: Файлы и Интернет ::