TNMStrmServ и TNMStrm

Внимание, важное сообщение: Дорогие Друзья!
В ноябре далекого 2001 года мы решили создать сайт и форум, которые смогут помочь как начинающим, так и продвинутым пользователям разобраться в операционных системах. В 2004-2006г наш проект был одним из самых крупных ИТ ресурсов в рунете, на пике нас посещало более 300 000 человек в день! Наша документация по службам Windows и автоматической установке помогла огромному количеству пользователей и сисадминов. Мы с уверенностью можем сказать, что внесли большой вклад в развитие ИТ сообщества рунета.

Но... время меняются, приоритеты тоже. И, к сожалению, пришло время сказать До встречи! После долгих дискуссий было принято решение закрыть наш проект. 1 августа форум переводится в режим Только чтение, а в начале сентября мы переведем рубильник в положение Выключен

Огромное спасибо за эти 24 года, это было незабываемое приключение. Сказать спасибо и поделиться своей историей можно в данной теме.

С уважением, ваш призрачный админ, BigMac...

TNMStrmServ и TNMStrm

khvalera

Пользователь

Сообщения: 100
Благодарности: 0

Профиль | Отправить PM | Цитировать

Как в Delphi можно передать название передаваемого файла из клиентской части в серверную для сохранения.
Использую компоненты TNMStrmServ и TNMStrm.

procedure TForm1.Button1Click(Sender: TObject);
var
MyStream: TMemoryStream;
begin
MyStream := TMemoryStream.Create; // Создание класса
NMStrm1.Port := 6711; // Значение порта получателя
NMStrm1.TimeOut := 3000; // Задержка при подключении (TimeOut)
NMStrm1.Host := '127.0.0.1'; // IP-Адресс получателя
NMStrm1.FromName := 'Клиент'; // Имя отправителя
MyStream.LoadFromFile('C:\AutoExec.bat'); // Файл для отправки
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('D:\AutoExec.bat'); // Сохраняем полученный файл
end;

-------
Khvalera

Отправлено: 22:18, 18-04-2004