Передавать большие файлы через IdUDP

[SoftKoc]

Здравствуйте!

Подскажите пожалуйста как можно передавать большие файл по сети с помощью компонента IdUDP.
Может как-то частями или как?

Я передаю вот таким образом:

procedure TForm1.Button2Click(Sender: TObject);
Var
 M: TMemoryStream;
begin
 IdUDPClient1.Host:=Edit2.Text;
  M:=TMemoryStream.Create;
   M.LoadFromFile(Edit1.Text);
    Label2.Caption:=IntToStr(M.Size);
   IdUDPClient1.SendBuffer(M.Memory^, M.Size);
  M.Free;
end;

А получаю вот таким:

procedure TForm1.IdUDPServer1UDPRead(Sender: TObject; AData: TStream;
  ABinding: TIdSocketHandle);
Var
 M: TMemoryStream;
 SizeBuffer: Integer;
begin
 M:=TMemoryStream.Create;
  M.CopyFrom(AData, AData.Size);
  M.SaveToFile('D:\1.jpeg');
 M.Free;
end;

И по моему этот код не совсем рабочий

[Пепел Феникса]

вспомним что UDP протокол допускает потерю пакетов.
и подумаем, годится ли он для передачи файлов?

[SoftKoc]

А что вы тогда посоветуете, что луче использовать?

[BOBAH13]

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

А что вы тогда посоветуете, что луче использовать?

TCP ?

[SoftKoc]

А можно пример на idTCP - отправки сообщений. И отправки файлов.
Может у кого-то есть выложите пожалуйста.

[SoftKoc]

Сообщение от Пепел Феникса

вспомним что UDP протокол допускает потерю пакетов.
и подумаем, годится ли он для передачи файлов?

Я знаю что idUDP не идеален, и теряет пакеты.
Но сейчас мне нужно хотя бы что-то.

Я так понимаю что для того что бы передать большой файл по сети, его нужно передавать по частям.
Для того что бы передать часть файла, эту часть нужно загрузить в TMemoryStream потом передать, после чего загрузить следующею часть и опять передать. Вопрос в другом как это все реализовать?Подскажите пожалуйста

[SoftKoc]

Вот так делаю отправку :

procedure TForm1.Button1Click(Sender: TObject);
Var
 MS: TMemoryStream;
 I: Integer;
begin
IF OpenDialog1.Execute Then
 Begin
 MS:=TMemoryStream.Create;
 MS.LoadFromFile(OpenDialog1.FileName);
 IdUDPClient1.Host:='127.0.0.1';
 For I:=0 to 10 do
  Begin
   IdUDPClient1.SendBuffer(MS.Memory^, 10000);
   MS.Position:=MS.Position + 10000;
  End;
 MS.Clear;
 MS.Free;
 End;
end;

Почему оно передает только первые 10 кб?