Я хочу выдать пользователю поток данных, который бы он мог сохранить у себя на компе. Данные я сам генерю, причем не очень быстро.
Попробовал изобразить что-то типа:
- Код: Выделить всё
procedure TFPWebModule1.DataModuleRequest(Sender: TObject; ARequest: TRequest;
AResponse: TResponse; var Handled: Boolean);
AResponse.ContentType:='application/octet-stream';
Stream:=TStringStream.Create('');
AResponse.ContentStream:=Stream;
while (True) do
begin
Inc(Counter);
OldPosition:=Stream.Position;
Stream.WriteString(Counter.ToString+' ');
NewPosition:=Stream.Position;
Stream.Position:=OldPosition;
AResponse.ContentLength:=NewPosition-OldPosition;
AResponse.SendContent;
Stream.Position:=NewPosition;
end;
end;
Но при этом выдаётся только первые данные. А хотелось бы выдавать по мере рассчета. В каком направлении стоит двигаться?