Prob mit IndyHTTP Server und datei schicken

[jonny]

Habe es jetzt hinbekommen das der der Server die Datei losschickt.

Kann mir jemand sagen wie ich den Dateinamen einer Datei an den Client zum Download schicke? Der Download funktioniert nur das Problem ist das der Dateiname nicht im Speichern Dialog angezeigt wird.

Delphi-Quellcode:

    If RequestInfo.Document = '/do.command' Then
    begin

      If Requestinfo.Params.values['action'] = 'sendmefile' Then
      begin
         If FileExists(Requestinfo.Params.values['filename']) Then
         begin
         
LocalDoc:=ExpandFileName(StringReplace(Requestinfo.Params.values['filename'],
'\', '/', [rfReplaceAll, rfIgnoreCase]));
          If FileExists(LocalDoc) Then
          begin
            try
              ResponseInfo.ContentType:=GetMIMEType(LocalDoc);
              RequestInfo.Document:=ExtractFileName(ChangeFileExt(LocalDoc,
''));
              HTTPServer.ServeFile(AThread, ResponseInfo, LocalDoc);
            finally
              //
            end;
          end;
         end
         else
         begin
          ResponseInfo.ContentType := 'text/html';
          ResponseInfo.ContentText :=Header + 'Datei nicht gefunden!' + Footer;
         end;
      end
...
...
end
else ....

Bekomme immer als dateiname do.command angezeigt, egal welche datei ich herunterlade