Prob mit IndyHTTP Server und datei schicken

[jonny]

Hallo,
kann mir jemand verraten warum ich die Datei die ich mit den Parameter "filename" anfordere nicht im IE zun Download bekomme und stattdessen der IE abschmiert?

Indy9
Delphi 7

Delphi-Quellcode:

procedure TfmHTTPServerMain.HTTPServerCommandGet(AThread: TIdPeerThread;
  RequestInfo: TIdHTTPRequestInfo; ResponseInfo: TIdHTTPResponseInfo);
var
  LocalDoc: string;
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
        HTTPServer.ServeFile(AThread, ResponseInfo, LocalDoc);
      end
      else
      begin
        ResponseInfo.ContentType := 'text/html';
        ResponseInfo.ContentText :=Header + 'Datei nicht gefunden!' + Footer;
      end;
    end;
  end;
...
end;

[jonny]

Kann mir denn keiner helfen?

vielleicht noch einiges erklärendes zum Programm:
Also es ist ein Programm (HTTPS-Server) auf den ich von überallher zugreifen kann und meinen Rechner verwalten. Ich wollte aber auch eine Funktione haben mit der ich einfach einen Pfad für eine Datei in einen EditFeld auf der Webseite angeben kann und das anschliessend mir der Server die Datei an den Client schickt, zum Download praktisch. Es sind noch einige andere Funktionen drin, aber ich schaffe irgendwie nicht diese mit dem Dateiupload zu realisieren.

Bitte es ist wichtig.

[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