|
|
|
Готовые
программы
| Командная строка
|
Чат
|
Авторам
|
Наши баннеры
Гостевая книга
|
Форум
|
Послать E-mail
|
Добавить свою работу
|
JavaScript |
|
КАК ПЕРЕДАТЬ ФАЙЛ ЧЕРЕЗ
SOCKET СОЕДИЕНИЕ?
|
|
|
Добро
пожаловать на сайт
для настоящих
программистов! |
|
|
Для данной цели можно воспользоваться компонентами TNMStrmServ и TNMStrm, которые предназначены для обмена потоками данных.
Обработчик для клиента:
var
MyStream:TMemoryStream;
begin
MyStream:=TMemoryStream.Create;
MyStream.LoadFromFile('c:\windows\рабочий стол\demo.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\рабочий стол\demo2.txt');
end;
|
<<Назад
| На главную
|
|
