Webアプリケーションでデータ検索させているのですが、
ClientのPCに検索結果をExcel形式で保存したいのです。
しかし、なかなか成功しないので是非教えて下さい。

?
datastore lds_itemlist
blob bl_buffer,bl_data
long l_flen

lds_itemlist.GetFullState (bl_data)
l_flen=len(bl_data)
bl_buffer = blob(\"content-type: application/vnd.ms-excel~r~n\")
bl_buffer += blob(\"content-length: \")
bl_buffer += blob(string(l_flen))
bl_buffer += blob(\"~r~n~r~n\")
bl_buffer += bl_data
return bl_buffer
保存はされるのですが、当然のごとくそのファイルは形式が異なると開けません。
また、Client側でキャンセルしても１秒置きにサーバーのPC使用率が５０％となりサーバーアプリケーション
を終了するまで続きます。

?
datastore lds_itemlist
blob bl_buffer,bl_data
long l_flen,fnum
string ex_data

lds_itemlist.saveas(\"testtest.xls\",Excel5!,true)
l_flen=FileLength(\"testtest.xls\") 
fnum = FileOpen(\"testtest.xls\",StreamMode!, Read!,LockReadWrite!)
FileRead(fnum, ex_data)
bl_data=blob(ex_data)
bl_buffer = blob(\"content-type: application/vnd.ms-excel~r~n\")
bl_buffer += blob(\"content-length: \")
bl_buffer += blob(string(l_flen))
bl_buffer += blob(\"~r~n~r~n\")
bl_buffer += bl_data
return bl_buffer
ウィンドウで待ち状態となりデータがダウンロードされません。
また、Client側でキャンセルしても１秒置きにサーバーのPC使用率が１００％となりサーバーアプリケーショ
ンを終了するまで続きます。