SoloCodigo

A ver amigo, creo que te seria de gran ayuda el RANDOM para chequear distintos rangos de forma que po ejemplo:

[0..10] color verde
[10..20] color rojo

asi sucesivamente de forma que poniendo cuatro objetos IMAGE por ejemplo y un TIMER, podrias chequear al mismo tiempo, donde se produce un MOUSE_UP en el tiempo previsto, de forma que el INTERVAL del TIMER se reduzca cada secuencia. Por ejemplo, si tienes algo mas dilo, fale?
Un saludo

Hola nuevo amigo, si miras por el foro por ejemplo en mis mensajes veras respuestas a la pregunta que estas formulando. Un saludo

Hola otra vez amigo becker, te he conseguido otra muestra de escaner en visual, solo le falta programarlo para que ataque ACCES. Bueno no me enrollo. Un saludo. Ya diras.

Me ha disho solocodigo que solo se puen subir 64k, asi que deja tu mail y te lo mando.

Hola colega, entiendo que tu problema es que debes tener dos programas corriendo al mismo tiempo y en lenguajes distintos y que no se pueden poner en el mismo lenguaje. Pero al ser los dos de microsoft deben tener compatibilidades de comunicacion, como por ejemplo conversaciones DDE, si no es así creo ke el mejor metodo podria ser WINSOCK y si prolog no los acepta la mejor comunicacion problamente sea a traves de bases de datos. Si ninguna de estas tres formas te sirve o es peor o mas lenta o... sigue con tu idea inicial y manten al foro al corriente. Un saludo    

Creo que puede ser posible que en una seccion de la MAPI donde debe ir el texto, te pueda dar ese error ya que confunde el envio con el arranque de WORD para imprimir ese texto, miralo a ver si te sirve.

Hola amigo, he estado trabajando on los DBgrid duranet algun tiempo llegando a la conclusion de que solo se puede deshacer un comando si estas trabajando con ADO de forma que le hagas un "RollbackTrans" a la conexion que tengas con la base. La otra forma de remediarlo es trabajar con un UNDBGRID de forma que no esta enlazado directamente con la base de datos, si no que eres tu el que debe decirle a traves de sus metodos lo que tiene que hacer. Espero haber sido de ayuda, un saludo:hippi:

He vuelto a conseguirlo de la forma mas facil y rapida. Me refiero a la compresion y descompresion de ficheros en formato ZIP para el envio a traves de winsock. Un saludo amigos            

Hola colega, que quieres imprimirlo como esta o como texto?

1º para imprimirlo como esta, solo debes hacer un form.print

2º leelo para pasarlo a texto y lo imprimes como printer.print linea

ok?

Si no quieres que cada cliente haga un refresh sobre la tabla deberia ser el SERVIDOR el encargado de actualizar los datos de los clientes, por lo que no creo que sea la mejor solucion. El refresh es lo mejor.

Solo teneis que darle el nombre del archivo, imagen o lo ke kerais enviar y el index del socket por el que esta conectado el cliente, osea, el numero de la matriz de controles winsock, OK? bueno pos este es el codigo.

Por cierto es algo lento para archivos grandes, por lo que estoy comprimiendo los archivos a enviar a traves de visual basic, ya he conseguido comprimirlos, antes de enviarlos, solo que da descomprimirlos en cliente.



Private Sub Enviar_Ftp(Index As Integer, Cabe As String, Linea As String)
Dim Pos As Long, kkk As String

If WFtp(Index).State = sckConnected Then
    kkk = Cabe + Chr(10) + Linea
    WFtp(Index).SendData kkk
    DoEvents
End If
End Sub

Private Sub SendFile(ByVal vsLocalName As String, Index As Integer)
    Dim hFile           As Integer
    Dim lReadBytes      As Long
    Dim iSendPercent    As Integer
    Dim sBuffer As String
    Const Buffersize    As Long = 1024
   
    hFile = FreeFile: sBuffer = "": Tamaño_Arch = 0
   
    Open vsLocalName For Binary Access Read As hFile
   
    Do While Not EOF(hFile)
       If LOF(hFile) - Seek(hFile) < Buffersize Then
          lReadBytes = LOF(hFile) - Seek(hFile) + 1
       Else
          lReadBytes = Buffersize
       End If
       
       
       DoEvents
       sBuffer = Input$(lReadBytes, hFile)
       Enviar_Ftp Index, "PLANO_SOLAR", sBuffer
       iSendPercent = (Seek(hFile) / LOF(hFile)) * 100
               
       If iSendPercent > 100 Then
          iSendPercent = 100
       End If
       If lReadBytes < Buffersize Then
          Exit Do
       End If
   
    Loop
    Close #hFile
   
   
End Sub

Ya lo he conseguido, he mandado un archivo binario a traves de WINSOCK sin necesidad de FTP ahora estoy liado con la compresion/descompresion de esos archivos desde visual basic. Alguna idea? me dieron la de ZLIB, pero esta en C así que ya vereis la movida. Bueno pal ke lo kiera ke lo diga.

De nada amigo, pero para solucionar lo de los udl deberias darme mas info, sobre todo, que es un archivo udl, ya que el tratamiento de un archivo u otro solo depende de eso, de como lo trates en el visual. Supongo que haciendolo en txt te serviria, ya que guardando la opcion por defecto en ese archivo y recuperandola se conectaria como tu quisieses y si cambia el proveedor se elimina esa y se guarda la otra. No se? dime algo mas. Un saludo.

Ehi colegas, toma esto va mogollon de bien. Saludos




Option Explicit

Dim DataFile As Integer
Dim Chunk() As Byte
Const conChunkSize As Integer = 16384


Public Sub LeerBinary(campoBinary As Field, unPicture As PictureBox)
    'Leer la imagen del campo de la base y asignarlo al Picture
    Dim lngCompensación As Long
    Dim lngTamañoTotal As Long
   
    'Se usa un fichero temporal para guardar la imagen
    DataFile = FreeFile
    Open "pictemp" For Binary Access Write As DataFile
   
    lngTamañoTotal = campoBinary.FieldSize
    Do While lngCompensación < lngTamañoTotal
        Chunk() = campoBinary.GetChunk(lngCompensación, conChunkSize)
        Put DataFile, , Chunk()
        lngCompensación = lngCompensación + conChunkSize
    Loop
   
    Close DataFile
    'Ahora se carga esa imagen en el control
    unPicture.Picture = LoadPicture("pictemp")
   
    'Ya no necesitamos el fichero, así que borrarlo
    On Local Error Resume Next
    If Len(Dir$("pictemp")) Then
        Kill "pictemp"
    End If
    Err = 0
End Sub


Public Sub GuardarBinary(campoBinary As Field, unPicture As PictureBox)
    'Guardar el contenido del Picture en el campo de la base
    Dim i As Integer
    Dim Fragment As Integer, Fl As Long, Chunks As Integer
   
    '
    'NOTA:
    '   El recordset debe estar preparado para Editar o Añadir
    '
   
    'Guardar el contenido del picture en un fichero temporal
    SavePicture unPicture.Picture, "pictemp"
   
    'Leer el fichero y guardarlo en el campo
    DataFile = FreeFile
    Open "pictemp" For Binary Access Read As DataFile
    Fl = LOF(DataFile)    ' Longitud de los datos en el archivo
    If Fl = 0 Then Close DataFile: Exit Sub
   
    Chunks = Fl  conChunkSize
    Fragment = Fl Mod conChunkSize
    ReDim Chunk(Fragment)
   
    Get DataFile, , Chunk()
    campoBinary.AppendChunk Chunk()
    ReDim Chunk(conChunkSize)
    For i = 1 To Chunks
        Get DataFile, , Chunk()
        campoBinary.AppendChunk Chunk()
    Next i
    Close DataFile
   
    'Ya no necesitamos el fichero, así que borrarlo
    On Local Error Resume Next
    If Len(Dir$("pictemp")) Then
        Kill "pictemp"
    End If
    Err = 0
End Sub