投稿日:2003年07月16日 作成鷹の巣

No.11168 AnHTTPDで、DelphiのISAPI DLL形式のプログラムが正常に実行されない。



AnHTTPDで、DelphiのISAPI DLL形式のプログラムが正常に実行されない。

No.11168 投稿時間:2003年07月16日(Wed) 11:53 投稿者名:人畜無害 URL:

AnHTTPDを使用して
Delphiの ISAPI DLL 形式でプログラムを作成しようとしています。

MP3のデータやASF、MPEGのファイルを Stram に読み込んで、
WMPで表示できるようにしたいのですが
以下のコードではWMPが表示され、ダウンロードする途中だと
思うのですが、しばらくしてから
『サーバーで予期しない状態が発生したため、要求は完了しませんでした』
というエラーダイアログが表示されます。
エラーダイアログはWMPのエラーのようです。
MP3でなくJPGファイルであれば(もちろんWMPは起動されないが)
正常に表示されます。

どこがいけないのでしょうか?
また、データファイル自体は仮想パスの指定がされていない
まったく別のディレクトリにほぞんしてあるので
は使用できません(できるのかな?)
ただ、認証から読み出せるデータファイルを選択するように
しているので仮想パスを設定したくないのです。
(この場合のセキュリティーがどんなものかわかりませんが、
直接呼びだせないから安全だと思ってるのですが、
ちがうのでしょうか?)


procedure TWebModuleTest.WebModuleTestWebActionItemMainAction(
Sender: TObject; Request: TWebRequest; Response: TWebResponse;
var Handled: Boolean);
var
FileStream: TFileStream;
FileName: string;
begin
FileName := 'E:\WWW\HomePage\Data002.mp3';
FileStream := TFileStream.Create(FileName, fmOpenRead);
try
Response.ContentType := 'audio/mp3';
Response.ContentStream := FileStream;
Response.SendResponse;
finally
FileStream.Free;
end;
end;


|目次|掲示板|過去ログ目次|▲頁先頭|