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;