Передача файлов(exe) при помощи TCPServer и TCPClient

[Air]

Долбился сутки, решил спросить у профессионалов.
отправка

procedure TForm1.Button2Click(Sender: TObject);
begin
Client.Open;
if od.Execute then
 begin
  MSC.LoadFromFile(od.FileName);
  msc.Position:=0;
  Client.Sendln(inttostr(msc.Size));
  Client.SendStream(msc);
 end;
 Client.Close;
end;

Дело в том, что отправляется не весь файл, а его часть.

Приём.

procedure TForm1.ServerAccept(Sender: TObject;
  ClientSocket: TCustomIpClient);
var
  s,sl: string;
begin
s:=ClientSocket.Receiveln();

if not Reciving then //глобальная Reciving:boolean
 begin
  SetLength(sl,StrLen(PChar(s))+1);
  StrLCopy(@sl[1],PChar(s),Length(sl)-1);
  DataSize:=StrToInt(sl); //глобальная DataSize:Integer
  Data:=TMemoryStream.Create; //глобальная Data:TMemoryStream
  Delete(s,1,Length(sl));
  Reciving:=true;
 end;

try
 Data.Write(s[1],length(s));
 if Data.Size=DataSize then
  begin
   Data.Position:=0;
   data.SaveToFile('C:\123.exe');
   Data.Free;
   Reciving:=false;
   ClientSocket.Close;
  end;
except
 Data.Free;
end;

end;

Client.Sendln(inttostr(msc.Size)); - отправка размера файла
Client.SendStream(msc); - отправка файла

Я вот что не пойму, когда я создаю подключение (Client.active:=true) и передаю одну строку, сервер её принял. Потом не разрывая подключения, я не могу передать вторую строку, надо постоянно переподключаться

Client.Close;
Client.Open;

почему так? Или я что то не так делаю?

P.S. Алгоритмы передачи/приёма я взял из "ClientSocket и ServerSocket" (там всё потому что работает).

P.P.S Ни как не могу заставить сервер отправить файл (или наоборот клиента - принять) в обшем Stream я отправляю, а клиент не берёт?...

[BOBAH13]

Сам лично сколько не возился в свое время так и не понял как этот SendStream работает ))) Легче намного на api написать...

[Air]

Нда, а код не будет глупо выглядеть, если я сокеты добавлю?

На api ?
это как в теме "Передача файла через TServerSocket и TClientSocket", что ли? - это мне знакомо.
Просто почему TCPServer~Client, потому что у меня сервис, не маленький на нём основан и клиент.
Дело в том что к TServerSocket может подключиться только 1 клиент, а надо много.

[BOBAH13]

Дело в том что к TServerSocket может подключиться только 1 клиент, а надо много.

Ерунда какая то ))) если не подводит память там свойство Connections где-то было... Тем более если сервер не маленький надо писать на более низком уровне ( моя точка зрения )

[Vanya]

ВОВАН13 ты прав в СерверСокет есть возможность работать с несколькими клиентами

[Air]

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

ВОВАН13 ты прав в СерверСокет есть возможность работать с несколькими клиентами

А как мне потом различить подключения 10.72.70.2(Index=0), 10.72.70.4(Index=1), 10.72.70.3(Index=2).
А если 10.72.70.4 отключится и подключится 10.72.70.10 то их "Index" будут в разнобой.
Тогда, мне кажется, придётся серверу постоянно перед отправкой рассылать спец.запрос для поиска IP-адреса и соответственного "Index".
Или из "Index" можно как-то IP-адрес узнать(только на сервере)?

Дошло, наверно при каждом подключении надо свой лист IP подключений формировать и сервер его будет изменять если кто-то отключается

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

Ерунда какая то ))) если не подводит память там свойство Connections где-то было... Тем более если сервер не маленький надо писать на более низком уровне ( моя точка зрения )

Не сам компьютер-сервер, а программа-сервер.
Эта программа представляет собой сервис контроля, настройки и наблюдения за компьютером.
Я написал его специально, что б не бегать по всей школе и не настраивать одно и то же каждый раз(Ученики-хакеры-ломастеры)

[albatros]

Короче, можно тупо поместить Timer
и повторять процедуру приёма