Компьютерный форум OSzone.net  

Компьютерный форум OSzone.net (http://forum.oszone.net/index.php)
-   Программирование и базы данных (http://forum.oszone.net/forumdisplay.php?f=21)
-   -   TNMStrmServ и TNMStrm (http://forum.oszone.net/showthread.php?t=29790)

khvalera 18-04-2004 22:18 205810

Как в 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 24-04-2004 11:15 205811

Как передать название файла на сервер используя NMStrm и NMStrmServ.


Время: 11:28.

Время: 11:28.
© OSzone.net 2001-