Mensajes

yo uso esto:

Código [Seleccionar] Expandir

''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'''''''' FUNCION PARA CAPTURAR LA PANTALLA
Private Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte, ByVal _
bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long)

Private Const VK_SNAPSHOT = &H2C


''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
''''''''' FUNCIÓN PARA COMPRIMIR BMP A JPEG
Private Declare Function ConvertBMPtoJPG Lib "ImageUtils.dll" (ByVal InputFile _
                         As String, ByVal OutputFile As String, _
                         ByVal OverWrite As Boolean, ByVal _
                         JPGCompression As Integer, ByVal _
                         SaveBMP As Boolean) As Integer

Código [Seleccionar] Expandir

Private Function Captura_Screen()
   
    Dim foto1 As String
    Dim FOTO2 As String
   
    Dim compresion As Integer
   
    'Captura la ventana activa
    'keybd_event VK_SNAPSHOT, 1, 0, 0

    ' CAPTURA TODA LA PANTALLA
    keybd_event VK_SNAPSHOT, 2, 0, 0
   
    'mientras no se pueda cojer el contenido
    Do While Clipboard.GetData = False
        DoEvents
    Loop
   
    Picture1.Picture = Clipboard.GetData
    'borramos el portapapeles
    Clipboard.Clear
    foto1 = App.Path + "\Fichas\" +"foto1.bmp"
    FOTO2 = App.Path + "\Fichas\" +"foto2.jpg"

    SavePicture Picture1.Picture, foto1
   
    'Dim imagen As New Bitmap(New Bitmap(ruta), 320, 288)
    'imagen.Save(ruta2, System.Drawing.Imaging.ImageFormat.Jpeg
   
    Do While Len(Dir(foto1)) = 0
        DoEvents
    Loop
   
    Dim ret As Long

    'Text1: Ruta del Bmp
    'Text2: ruta del archivo de salida >> JPG
    'Check1: si esta en true se sobreescribe el Jpg
    'Check2: si esta en false se elimina el BMP original
   
    ' compresion = 10 muy poca calidad
    ' compresion = 100 máxima calidad    ' son %
    compresion = 50
   
    ret = ConvertBMPtoJPG(foto1, FOTO2, True, compresion, False)
   
    If ret <> 0 Then
       MsgBox "error al comprimir", vbCritical
    End If
   
    ' Printer.Orientation = 2
    Printer.Orientation = vbPRORLandscape
    Printer.PaintPicture Picture1, 0, 0
    Printer.EndDoc
   
End Function

Hola foro.

Ando algo desesperado con el tema de las relaciones en mysql...

Para crear la base de datos de usado el phpAdmin. hasta quí ningún problema. Tengo mi base de datos, con sus tablas y sus Primary keys...

Ahora comienzo con mi código en la página php... para varias consultas, e inserciones no tengo problemas (por ahora) pero hay una consulta que no consigo realizar y es una consulta que contenga INNER JOIN, incluso he probado a realizar la consulta llamando a 2 tablas en el FROM, pero tampoco obtengo resultado alguno.

Sabeis a que se puede deber? he cambiado el formato de las tablas de MyISAM a InnoDB (ya que alguien me lo recomendó alguna vez) pero el resultado es el mismo (ninguno).

Tambien he leido que para que se pueda usar INNER JOIN en mysql la version de mysql ha de ser superior a la 3.23.17. En mi caso lo es. De todos modos como he dicho antes tampoco puedo realizar una consulta a 2 tablas a la vez, como por ejemplo podria ser "Select c1, t2.c1 from t1, t2"... o la prueba que sea, el caso es que no realiza la consulta.

¿Os ha pasado alguna vez algo así?¿Cómo lo habeis solucionado? ¿Por donde van los tiros????

Espero vuestra colaboración

un saludo.

O no te has explicado bien o no me he enterado yo... (supongo que será lo segundo)

Puedes ponerle un icono a tu aplicación de VB6 con:
Proyecto -> Propiedades de... -> Generar y seleccionas uno de los iconos que tenga algún formulario que utilices en la aplicación.

Para que un formulario tenga un icono se lo adjudicas con:
formulario.Icon

esto es la solución para lo que yo he entendido.... no se si será lo que necesitas.

Un saludo.

No consigo realizar esto con este código.

He leido que esto solo sirve para cambiar los permisos a un fichero... lo he probado para el directorio y no me funciona.


Se me ha ido la pinza y en el foro de Webmasters he abierto un hilo sobre el mismo tema. He pedido que lo cierren ya que la duda es la misma que la que se trata aquí.

Hola foro...

con este código:

Código [Seleccionar] Expandir

<?
$directorio = "CARPETA A CAMBIAR PERMISOS SIN BARRA NI NADA"
if(chmod($directorio . "/" , 0777))
  {
      echo "el cambio a escritura fue satisfactorio";
  }else{
      echo "el cambio no fue realizado";
  }
?>

creo que sólo se puede cambair el permiso a los archivos, no a los directorios (http://es.php.net/manual/es/function.chmod.php). Yo intento hacer ese cambio de permisos en tiempo de ejecución, mediante código PHP, pero no consigo realizarlo.

Se que lo puedo hacer "a mano", pero mi intención es hacerlo por código. Por defecto una carpeta tiene 755 y quiero ponerlo a 777 para subir un archivo con un formulario y despues volver a ponerlo a 755.

Si no encuentro solución... me tocará dejarlo con 777, pero.... ¿Sería una temeridad?. Es por eso por lo que quiero cambiarlo a 755 despues de subir el archivo.

(lo he probado y sólo consigo subir el archivo con permisos 777 a la carpeta donde va el archivo).

2º- Via PHP:

Código [Seleccionar] Expandir


<?php
// Le das todos los permisos al archivo
chmod("/somedir/somefile.xxx", 0777);
?>


Por código esto le da permisos al archivo... conoceis algún modo para dar permisos 777 a un directorio? (para así poder subir archivos mediante un formulario).

Me funciona correctamente si pongo permisos 777 a la carpeta donde subo el archivo, pero me gustaria no tenerla en 777 y sólo ponerla en el momento de subir el archivo y despues dejarla en 755.


Sabeis como hacer eso?

Espero que esto te sirva. Cuentanos a ver como te ha ido al probarlo.



Private Declare Function GetShortPathName Lib "kernel32" Alias _
    "GetShortPathNameA" (ByVal lpszLongPath As String, _
    ByVal lpszShortPath As String, ByVal lBuffer As Long) As Long

Private Declare Function URLDownloadToFile Lib "urlmon" Alias "URLDownloadToFileA" _
    (ByVal pCaller As Long, ByVal szURL As String, ByVal szFileName As String, _
    ByVal dwReserved As Long, ByVal lpfnCB As Long) As Long


''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
''''''''''''''''''''''''' FTP ''''''''''''''''''''''''''''''''''''
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

'Esta API es para que de una ruta WIndows, me devuelva una ruta MSDOS,
'ya que el comando FTP del prompt no reconoce rutas largas

Public Function RutaDos(strFileName As String) As String

    Dim lngRes As Long, strPath As String
    strPath = String$(165, 0)
    lngRes = GetShortPathName(strFileName, strPath, 164)
    RutaDos = Left$(strPath, lngRes)
   
End Function


''''''''''''''''''''''''''''''''''
''''''' subir fichero ''''''''''''
''''''''''''''''''''''''''''''''''


Function PutFichero()
On Error GoTo ERROR

    Dim Retval
    'escribimos el fichero ftp.txt que hara toda la labor
    If Len(Dir("C:\ftp.txt")) <> 0 Then Kill "C:\ftp.txt"
   
    Dim StrFtp As String
    Dim StrUsuario As String
    Dim StrPassword As String
    Dim strCarpetaRemota As String
    Dim StrRutalocalFichero As String
   
 
    StrFtp = "ftp.sitio.com"
    StrUsuario = "sitio.com"
    StrPassword = "contraseña"
    strCarpetaRemota = "html/BD/"
    StrRutalocalFichero =  "BD.zip"
   
    ' subir al servidor
    NumeroArchivo = FreeFile
    Open "C:\ftp.txt" For Append As #NumeroArchivo
    Print #NumeroArchivo, "Open " & StrFtp
    Print #NumeroArchivo, StrUsuario
    Print #NumeroArchivo, StrPassword
    Print #NumeroArchivo, "cd " & strCarpetaRemota
    Print #NumeroArchivo, "binary"
    Print #NumeroArchivo, "put " & RutaDos(StrRutalocalFichero)
    Print #NumeroArchivo, "bye"
    Close #NumeroArchivo
    DoEvents

'    Retval = Shell("ftp -s:C:\ftp.txt", vbNormalFocus)
    Call ExecuteAndWait("ftp -s:C:\ftp.txt")
   
    Exit Function

ERROR:
End Function



''''''''''''''''''''''''''''''''''
''''''' bajar fichero ''''''''''''
''''''''''''''''''''''''''''''''''


Function GetFichero()
On Error GoTo ERROR

    Dim Retval

    Dim StrFtp As String
    Dim StrUsuario As String
    Dim StrPassword As String
    Dim strCarpetaRemota As String
    Dim StrFicheroRemoto As String
   
    StrFtp = "ftp.sitio.com"
    StrUsuario = "sitio.com"
    StrPassword = "contraseña"
    strCarpetaRemota = "html/BD/"
    StrFicheroRemoto = "BD.ZIP"
   
    ' bajar el fichero
    NumeroArchivo = FreeFile
    Open "C:\ftp.txt" For Append As #NumeroArchivo
    Print #NumeroArchivo, "Open " & StrFtp
    Print #NumeroArchivo, StrUsuario
    Print #NumeroArchivo, StrPassword
    Print #NumeroArchivo, "cd " & strCarpetaRemota
    Print #NumeroArchivo, "binary"
    Print #NumeroArchivo, "get " & StrFicheroRemoto & " " & _
            RutaDos(Directorio) & "BD.zip"
    Print #NumeroArchivo, "bye"
    Close #NumeroArchivo
    DoEvents

'    Retval = Shell("ftp -s:C:\ftp.txt", vbNormalFocus)
    Call ExecuteAndWait("ftp -s:C:\ftp.txt")
   
    If Len(Dir("C:\ftp.txt")) <> 0 Then Kill "C:\ftp.txt"
   
    ' cambiar nombre, para tener una cópia de seguridad
    NumeroArchivo = FreeFile
    Open "C:\ftp.txt" For Append As #NumeroArchivo
    Print #NumeroArchivo, "Open " & StrFtp
    Print #NumeroArchivo, StrUsuario
    Print #NumeroArchivo, StrPassword
    Print #NumeroArchivo, "cd " & strCarpetaRemota
    Print #NumeroArchivo, "rename " & StrFicheroRemoto & " " & _
            "BD_" & FECHA & ".zip"
    Print #NumeroArchivo, "bye"
    Close #NumeroArchivo
    DoEvents

    Call ExecuteAndWait("ftp -s:C:\ftp.txt")
   
    Exit Function

ERROR:
End Function

Que recomendais para comenzar a programar para estos dispositivos??? alguien tiene algo hecho por ahí? para realizar ls conexiones via WIFI y esas cosas....

Tengo pensado emprender un proyecto para pasar varias aplicaciones que tengo para PC a pasarlas a dispositivos móviles.

De todos modos.... también sucede los mismo con un Tablet PC???

Hola foro... tengo una duda (por decir una, en realidad tengo varias) con el tema de los Pcket Pc, Tablet Pc y dispositivos similares...

¿Existe alguna posibilidad de que un programa hecho en visual basic funcione en una pocket pc o tablet pc?

En un supuesto de que si, ¿la base de datos de access la reconocería?

Yo me sumo a la petición

Al pasar de VB6 a .Net... siempre hay cambios (si no los hubiera sería lo mismo, jeje) y toda reescribir gran parte del código. Ya que el asistente de .NET para pasar de VBconvencional a .NET no lo hace por nosotros.

con el "control+tab" se va pasando el control sobre cada formulario HIJO que esté abierto (estoy seguro de eso porque yo lo he sufrido ) entonces si al hacer el "contrl+tab" se va de uno a otro formulario hijo.

también es posible que tengas algún error con los bordes del formulario... prueba cambiando hasta conseguirlo, algunas de las opciones de los bordes no son compatibles con según que movimientos en un MDI. Prueba a ponerlos sin Borde (0) o Sizeable (2).