[IdHttpServer] Verhindern das ContentStream freigegeben wird

[Assertor]

Hi,

Zitat von gsh:

Delphi-Quellcode:

  if ARequestInfo.Command = 'GET' then
  begin
    if ARequestInfo.Document = 'image.gif' then
    begin
      if MS_Image <> nil then
      begin
        AResponseInfo.ResponseNo := 200;
        AResponseInfo.ContentType := 'image/gif';
        // würd es so machen:
        AResponseInfo.ContentStream.Size := 0;
        AResponseInfo.ContentStream.CopyFrom(MS_Image, MS_Image.Size);        
        AResponseInfo.ContentStream.Position := 0;
      end
      else
      begin
        AResponseInfo.ResponseNo := 404;
        AResponseInfo.ContentText := 'Not Found';
      end;
    end;
  end;

Sollte damit funktionieren.

Edit: Blödsinn geschrieben...

Gruß Assertor