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