Ver Mensaje Individual
  #11 (permalink)  
Antiguo 14/07/2010, 12:58
decano1891
 
Fecha de Ingreso: julio-2010
Mensajes: 33
Antigüedad: 13 años, 9 meses
Puntos: 0
Respuesta: Response.BinaryWrite equivalente en PHP

Estimados ya le encontré la vuelta. Muchas gracias por la ayuda a todos, fue muy útil.
Pego el código utilizado, seguramente a alguien le sirva.

Saludos

$query_consulta = 'select lo_archivo, vl_extension, nm_archivo from nombre de la tabla where condicion ;
//}

$stmt_consulta = OCIParse($conn, $query_consulta);


$NewData = array();

OCIDefineByName($stmt_consulta,"LO_ARCHIVO",&$NewD ata["LO_ARCHIVO"]);

OCIDefineByName($stmt_consulta,"VL_EXTENSION",&$Ne wData["VL_EXTENSION"]);

OCIDefineByName($stmt_consulta,"NM_ARCHIVO",&$NewD ata["NM_ARCHIVO"]);

OCIExecute($stmt_consulta);

OCIFetch($stmt_consulta);

If (is_object($NewData["LO_ARCHIVO"])){
$NewData["LO_ARCHIVO"] = $NewData["LO_ARCHIVO"]->load();
}

$NewData["NM_ARCHIVO1"] = str_replace(' ','%20',$NewData["NM_ARCHIVO"]);

$arch_temporal = "./gen/".$NewData["NM_ARCHIVO"].".".$NewData["VL_EXTENSION"];

$fp=fopen($arch_temporal,"w");

fwrite($fp,$NewData["LO_ARCHIVO"]);

fclose($fp);

OCIFreeStatement($stmt_consulta);

$destino = "./gen/".$NewData["NM_ARCHIVO1"].".".$NewData["VL_EXTENSION"];

$nombre_archivo = $NewData["NM_ARCHIVO1"].".".$NewData["VL_EXTENSION"];

OCILogoff($conn);

header("Content-type: application/force-download");

header("Content-Disposition: attachment; filename= $nombre_archivo");

header('Location: '.$destino);