Клиет - серверное приложение - Работа с сетью в Delphi

Mitron · 18.05.2007, 09:50

Help!!!!!
короче, дело такое.
Есть клиент и есть сервер, надо реализовать передачу файлов по локалке от клиента к клиенту через сервер

Квэнди · 18.05.2007, 10:01

TCPClient
TcpServer
метод send*

Mitron · 18.05.2007, 10:03

а поподробнее можно? ну уж очень нада

Квэнди · 18.05.2007, 10:12

Цитата:

Сообщение от Mitron

Help!!!!!
короче, дело такое.
Есть клиент и есть сервер, надо реализовать передачу файлов по локалке от клиента к клиенту через сервер

Раз они уже есть и написаны. То каким образом они реализованы? чтобы от этого и отталкиваться.

НЕ_АЙС · 18.05.2007, 11:18

Передача файла от клиента серверу.

Обработчик для клиента:

var
MyStream: TMemoryStream;
begin
MyStream := TMemoryStream.Create;
MyStream.LoadFromFile('c:\Fuck.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:\Fuck.txt);
end;

Andr · 19.08.2007, 23:34

"NMStrm1.PostIt(MyStream);" - что такое NMStrm1 ?

Квэнди · 20.08.2007, 19:57

из названия stream очевидно

18.05.2007, 09:50	#1
Mitron Форумчанин Регистрация: 10.05.2007 Сообщений: 117	Клиет - серверное приложение Help!!!!! короче, дело такое. Есть клиент и есть сервер, надо реализовать передачу файлов по локалке от клиента к клиенту через сервер Задачи на заказ Блажен тот, кто ничего не знает: он не рискует быть не понятым.

18.05.2007, 10:01	#2
Квэнди Старожил Регистрация: 13.12.2006 Сообщений: 3,859	TCPClient TcpServer метод send* ICQ не для вопросов, а для предложений. Для вопросов используйте форум IRC канал клуба программистов\|Мои статьи

18.05.2007, 10:03	#3
Mitron Форумчанин Регистрация: 10.05.2007 Сообщений: 117	а поподробнее можно? ну уж очень нада Задачи на заказ Блажен тот, кто ничего не знает: он не рискует быть не понятым.

20.08.2007, 19:57	#7
Квэнди Старожил Регистрация: 13.12.2006 Сообщений: 3,859	из названия stream очевидно ICQ не для вопросов, а для предложений. Для вопросов используйте форум IRC канал клуба программистов\|Мои статьи

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
Клиент-серверное приложение: Callback	MaTBeu	Общие вопросы C/C++	13	02.06.2008 20:27
MDI-приложение	Технолог	Общие вопросы Delphi	6	02.05.2008 20:10
Клиент-серверное взаимодействие посредством использования сокетов	Cantana	Компоненты Delphi	2	18.02.2008 19:27
Клиент-серверное приложение	veryseldom	Работа с сетью в Delphi	8	20.08.2007 19:57
MDI приложение	Arsgun	Общие вопросы Delphi	4	29.05.2007 12:36

18.05.2007, 11:18	#5
НЕ_АЙС Форумчанин Регистрация: 18.04.2007 Сообщений: 135	Передача файла от клиента серверу. Обработчик для клиента: var MyStream: TMemoryStream; begin MyStream := TMemoryStream.Create; MyStream.LoadFromFile('c:\Fuck.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:\Fuck.txt); end;

19.08.2007, 23:34	#6
Andr Пользователь Регистрация: 11.04.2007 Сообщений: 75	"NMStrm1.PostIt(MyStream);" - что такое NMStrm1 ?