Шлем файл

procedure TForm1.Button1Click(Sender: TObject);
var
FS: TFileStream;
i:integer;
begin
TMPSTREAM := TSTream.Create;
FS := TFileStream.Create('D:\Pics\6262.jpg',
fmOpenRead or fmShareDenyWrite);
 
IdUDPClient1.SendBuffer(FS,FS.Size);
end;
end;
 
Принимал 2 способами:
1procedure TForm1.IdUDPServer1UDPRead(Sender: TObject; AData: TStream;
ABinding: TIdSocketHandle);
var
FS: TMemoryStream;
begin
FS := TMemoryStream.Create;
FS.CopyFrom(AData,AData.Size);
FS.SaveToFile('D:\Ded6262.jpg');
ShowMessage(IntToStr(AData.Size));
end;
2procedure TForm1.IdUDPServer1UDPRead(Sender: TObject; AData: TStream;
ABinding: TIdSocketHandle);
var
FS:TFileStream;
begin;
FS := TFileStream.Create('D:\666.jpg', fmCreate);
FS.WriteBuffer(AData,AData.Size);
FS.Free;
end;
 
Ище,никогда не работая со стримом пытался соорудить нечто вроде:
procedure TForm1.Button1Click(Sender: TObject);
var
FS: TFileStream;
TMPSTREAM:TSTream;
i:integer;
doetogo:integer;
begin
TMPSTREAM := TSTream.Create;
FS := TFileStream.Create('D:\Pics\Ded6262.jpg',
fmOpenRead or fmShareDenyWrite);
 
doetogo := FS.Size / IdUDPServer1.BufferSize; //сдесь компилятор заругался
For i:=1 To doetogo Do Begin
FS.Position := i * FS.Size;
FS.Read(TMPSTREAM,IdUDPServer1.BufferSize);
IdUDPClient1.SendBuffer(TMPSTREAM,TMPSTREAM.Size);
end;
end;