編集

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文

以下画像の場合とＭＰ３の場合ですが
画像はＯＫですが、ＭＰ３はだめなのです。

procedure TWebModuleTest.WebModuleTestWebActionItemMainAction(
  Sender: TObject; Request: TWebRequest; Response: TWebResponse; var Handled: Boolean);
begin
  Response.Content := '<IMG SRC=TestHPSource.dll/load>';
end;

procedure TWebModuleTest.WebModuleTestWebActionItemLoadAction(
  Sender: TObject; Request: TWebRequest; Response: TWebResponse; var Handled: Boolean);
var
  FileStream: TFileStream;
  FileName: string;
begin
  //画像のファイル名
  FileName    :=  'E:\WWW\HomePage\Sample.jpg';
  //ファイルストリームの生成
  FileStream := TFileStream.Create(FileName, fmOpenRead);
  try
    //レスポンスの設定
    Response.ContentType  :=  'image/jpeg';
    Response.ContentStream:=  FileStream;
    Response.SendResponse;
  finally
    FileStream.Free;
  end;
end;

procedure TWebModuleTest.WebModuleTestWebActionItemMainAction(
  Sender: TObject; Request: TWebRequest; Response: TWebResponse; var Handled: Boolean);
begin
  Response.Content := '<EMBED SRC=TestHPSource.dll/load>';
end;

procedure TWebModuleTest.WebModuleTestWebActionItemLoadAction(
  Sender: TObject; Request: TWebRequest; Response: TWebResponse; var Handled: Boolean);
var
  FileStream: TFileStream;
  FileName: string;
begin
  //画像のファイル名
  FileName    :=  'E:\WWW\HomePage\Sample.mp3';
  //ファイルストリームの生成
  FileStream := TFileStream.Create(FileName, fmOpenRead);
  try
    //レスポンスの設定
    Response.ContentType  :=  'audio/mp3';
    Response.ContentStream:=  FileStream;
    Response.SendResponse;
  finally
    FileStream.Free;
  end;
end;

MP3のファイルを聞くには？ (ID：4109)