Снова idtcp

[SeЯgey]

Квэнди, подскажи как передовать файлы в обе стороны и от клиента к серверу и от сервера к клиенту очень нужно, срочно!!!

Заранее спасибо

[Квэнди]

вы же сами себе ответили постом выше

[KossChe]

Уважаемый Квэнди!
Как быть все же таки, если связь в обратную сторону...Т.е. сервер должен прнимать файлы от разных клиентов...
Процедурка ведь должна поменяться...Как я читал, приложение серверной части содержит компоненту сервера и IdThreadMgrDefault1,
а в клиентскую часть входит только IdTCPClient1
Сорри, если совсем тупой вопрос

[Квэнди]

В случая когда нужна двухсторонняя связь реализуется и клиент и сервер на каждой из сторон

[KossChe]

Сообщение от Квэнди

В случая когда нужна двухсторонняя связь реализуется и клиент и сервер на каждой из сторон

Смотри, компонента IdTCPServer слушает порт и при обнаружении соединения должна принять файло от клиента... Т.е. связь нужна в сторону от клиента к серверу. А в приведенных процедурах сервер отдает данные....
Как мне организовать процедуру?

[Pedro]

И idTcpServer и idTCPClient имеют функции ReadStream и WriteStream => и Сервер и Клиент могут и отправлять и получать потоки.

СЕРВЕР(принимает картинку):

Var
FileName:string;
Potok:TMemoryStream;
Size:Integer;

...

procedure TForm2.FormCreate(Sender: TObject);
begin
 FileName:='C:\Reciev.bmp';
 Potok:=TMemoryStream.Create;
end;

procedure TForm2.IdTCPServer1Connect(AThread: TIdPeerThread);
begin
  size:= AThread.Connection.ReadInteger(true);
  AThread.Connection.ReadStream(potok,size,false);
  potok.SaveToFile(FileName);
  Potok.Clear;
  ShowMessage('Принято');
end;

КЛИЕНТ(отправляет картинку):

Var
 
  f:Boolean;
  Potok:TMemoryStream;
  FileName:string;

...


procedure TForm1.Button1Click(Sender: TObject);
begin
IdTCPClient1.Connect();
if IdTCPClient1.Connected=true then
begin
try
 Potok.LoadFromFile(FileName);
 IdTCPClient1.WriteInteger(Potok.Size,true);
 IdTCPClient1.WriteStream(potok,true,false,potok.Size);
 Potok.Clear;
 ShowMessage('Отправлено');
finally
f:=true;
end;
end;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
potok:=TMemoryStream.Create;
FileName:='C:\Send.bmp';
end;

Наверное так, если нет, говорите, будем думать)))

[KossChe]

Pedro - респект! Код работает
Правда почему-то не отрабатывала инициализация потока по событию ФормКрит...
Коллеги, подскажите пож, какое различие в использовании функций работы с потоком от методов AThread.Connection.Socket.Send..? Мож я неправильно сформулировал, но у Квэнди вроде по-другому шла работа с обменом данных.
В методе Pedro нужна ли в серверной части компонента IdThreadMgrDefault1?

[Pedro]

Вот исходники клиента и сервера
ServClient.rar

[Gurt87]

Pedro, не мог бы ты привести обратный код (не клиент передает серверу файл, а сервер клиенту) А то чет не получается...

[crick]

Не могли бы выложить код исходника с возможностью отправки файлов от клиента к серверу и от сервера к клиенту?
буду очень благодарен)