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 - Slasher-K

#251
Programación Visual Basic / Re: ftp con winsock
16 Agosto 2005, 03:20 AM
Leete el RFC de FTP

File Transfer Protocol

Saludos.
#252
Mandale antes de transferir el archivo el tamaño original y estableces la propiedad Max con ese valor, a medida que llegan los datos vas sumandoselo a la propiedad Value.

Saludos.
#253
Se hace con TerminateProcess. Busca en el foro que hay ejemplos de código sobre eso.

Saludos.
#254
Supongo que "abrir" y "colgar" son cadenas.

Saludos.
#255
En el DOS no existe un comando para comprimir, al menos que yo sepa. Existía en win9x un programa (no comando) que era extract que extraía archivos de un contenedor (CAB), pero en el XP ya no existe creo.

Saludos.
#256
Para comprimirlo existe la librería gzip.dll. Para enviarlo como archivo adjunto debes usar MIME (Multipurpose Internet Mail Extensions).

Leete ese RFC que te explica bien como enviar los datos, y destaco que el archivo debe estar cifrado en base64.

Saludos.
#257
Claro que se puede hacer pero no esperes que te lo hagamos.
#258
Programación Visual Basic / Re: Codigo Ascii??
14 Agosto 2005, 01:05 AM
El problema es que VB usa la serie de caracteres Unicode, y lo que devuelve lo hace en Unicode. Para solucionar esto existe una función que se llama MultiByteToWideChar, que convierte el caracter desde la página de códigos del teclado a su equivalente ANSI.

La siguiente función devuelve el caracter ANSI del código de tecla especificado.


Private Declare Function MultiByteToWideChar Lib "kernel32" (ByVal CodePage As Long, ByVal dwFlags As Long, ByVal lpMultiByteStr As String, ByVal cchMultiByte As Long, ByVal lpWideCharStr As String, ByVal cchWideChar As Long) As Integer

Const CP_OEMCP = 1

Function TranslateChar(KeyCode As Integer) As String
        Dim r&, sMultiByte$, sWideChar$

  sWideChar = String$(1, 0)
  sMultiByte = Chr$(KeyCode)
 
  r = MultiByteToWideChar(CP_OEMCP, 0&, sMultiByte, Len(sMultiByte), ByVal sWideChar, LenB(sWideChar))
 
  TranslateChar = sWideChar
End Function


Saludos.
#259
Para un calentador no hay problema.

Saludos.
#260
Se reparan solos.