Ver Mensaje Individual
  #3  
Antiguo 24-02-2013
Avatar de ecfisa
ecfisa ecfisa is offline
Moderador
 
Registrado: dic 2005
Ubicación: Tres Arroyos, Argentina
Posts: 10.508
Reputación: 38
ecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to behold
Cita:
Empezado por lbuelvas Ver Mensaje
...
Parece que la instrucción
Código Delphi [-]
FileStream.Free;
es innecesaria porque
Código Delphi [-]
Response.SendResponse;
libera el recurso.
Hola Luis.

Al parecer estás acertado sobre el motivo, así está comentado en el ejemplo de la ayuda de Delphi:
Código:
procedure TCustomerInfoModule.CustomerInfoModuleGetImageAction( Sender: TObject; Request: TWebRequest; Response: TWebResponse; var Handled: Boolean);
var
  Jpg: TJPEGImage;
  S: TMemoryStream;
  B: TBitmap;
begin
  Jpg := TJPEGImage.Create;
  try
    B := TBitmap.Create;
    try
      B.Assign(BioLifeGraphic);
      Jpg.Assign(B);
    finally
      B.Free
    end;
    S := TMemoryStream.Create;
    Jpg.SaveToStream(S);
    S.Position := 0;
    Response.ContentType := 'image/jpeg';
    Response.ContentStream := S;
    // do not free the stream because the response 
    // object will handle that task.
  finally
    Jpg.Free;
  end;
end;
Saludos.
__________________
Daniel Didriksen

Guía de estilo - Uso de las etiquetas - La otra guía de estilo ....
Responder Con Cita