TFileStream.Free gibt Datei nicht frei?

[DGL-luke]

Hallo,

ich habe einen mit TFileStream.Create('filename',fmCreate) erzeugten Filestream. Diesen bekommt ein TIdHTTP(.Get) und lädt auch was schönes runter.
Ich gebe den Stream im OnWorkEnd wieder frei, dabei wird allerdings das Dateihandle nicht freigegeben. Ich kann also auf die erzeugte Datei nicht zugreifen solange meine Anwendung läuft.
Ich hab mir dann gedacht, dass vielleicht Indy den stream "behält" und mir selber eine Message gepostet, in der dann steht, dass ich Indy freigeb. Aber das hilft auch nichts.

Der relevante Code:

Delphi-Quellcode:

procedure TFIndyLoader.IdHTTP1WorkEnd(Sender: TObject; AWorkMode: TWorkMode);
var http: TIdHTTP;
begin
  Beep;

  http := Sender as TIdHTTP;

  FreeAndNil(downloads[http.Tag].res.fs); // fs = der filestream

  Postmessage(Handle,WM_FREE,Integer(@http),0); //WM_FREE = WM_USER + 1
end;

procedure TFIndyLoader.OnWMFREE(var Msg: TWMFree);
begin
  windows.Beep(440,500);

  if Assigned(TObject(Msg.wParam)) then
    with TObject(Msg.wParam) as TIdHTTP do
      begin
        Response.ContentStream.Free; //mal so auf gut glück...
        Free;
      end;
end;

Beide Beeps kommen an, die Prozeduren werden also durchgeführt.

Interessanterweise habe ich das selbe Problem bei meinem JPEG-Kompressor, habe es da aber auf die Konvertierungsorgien zurückgeführt...

[DGL-luke]

Ich habe das ganze jetzt so "gelöst":

Delphi-Quellcode:

//....
curr.http.Get(curr.url,TMemoryStream.Create); //curr.http is TIdHTTP
//....

procedure TFIndyLoader.IdHTTP1WorkEnd(Sender: TObject; AWorkMode: TWorkMode);
var http: TIdHTTP;
    dir: string;
begin
  Beep;

  dir := IncludeTrailingPathDelimiter(ELocalDir.Text);
  ForceDirectories(dir);

  http := Sender as TIdHTTP;

  http.Response.ContentStream.Position := 0;

  with TFileStream.Create(dir + downloads[http.Tag].fname,fmCreate) do
    try
      CopyFrom(http.Response.ContentStream,http.Response.ContentStream.Size);
    finally
      Free;
    end;

  Postmessage(Handle,WM_FREE,Integer(@http),0);
end;

Is aber eher ein workaround...
Was mich noch wundert: wenn ich im OnWorkEnd gleich Response.ContentStream freigegeben habe, hat er zwar ein paar AVs geworfen, aber die Datei war danach frei...