![]() |
Как в 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; |
Как передать название файла на сервер используя NMStrm и NMStrmServ.
|
Время: 11:28. |
Время: 11:28.
© OSzone.net 2001-