CGI-Anwendung soll WordDocument zurückgeben

[Thomas Barghusen]

Hallo, <br>
ich habe eine CGI-Anwendung geschrieben, die mittels ein WorDocument<br>
zurückgeben soll, das sich im Browser dann auch öffnet, allerdings <br>
erhalte ich bei der Rückgabe im Browser den Dialog "Datei speichern <br>
oder vor Ort öffnen.<br>
Habe ich den Response.ContentType falsch angegeben?<br>
<br>
<br>
<PRE>
procedure TWebModule1.WebModule1testAction(Sender: TObject;<br>
Request: TWebRequest; Response: TWebResponse; var Handled: Boolean);<br>
var<br>
S: TFileStream;<br>
MsgList : TStringList;<br>
stime : string;<br>
begin<br>
<br>
try<br>
stime := FormatDateTime('hh:mm:ss', now);<br>
MsgList := TStringList.Create;<br>
MsgList.SaveToFile('cgi/MsgList.txt');<br>
S := TFileStream.Create('cgi/WordTestDokument.doc', fmOpenRead);<br>
MsgList.Add(stime+'=62');<br>
MsgList.SaveToFile('MsgList.txt');<br>
S.Position := 0;<br>
<br>
Response.ContentVersion<br>
Response.ContentType := 'application/word';<br>
Response.ContentStream := S;<br>
Response.SendResponse;<br>
finally<br>
S.Free;<br>
end;<br>
end;<br></PRE>