| Usuario |
doevents |
Fenris
86 Mensaje(s)
|
| Enviado - 30/11/2004 |
| ? |
hola a todos
hice una funcion que abre un archivo en forma binaria, pero el problema es que cuando lo abre el programa queda duro hasta que no termino de cargarlo
como puedo solucionar esto?
si alguno me puede ayudar le agradesco mucho n_n
el codigo que uso es el sig
sub prueba_de_envio ()
...
Winsock1.SendData Pepe
...
end sub
Private Function Pepe()
Dim Q As String
Fecha_de_Archivo (App.Path & Requestedpage)
Q = ""
Q = Q & "HTTP/1.0 200 OK" & vbCrLf
Q = Q & "Date: " & Now & vbCrLf '
Q = Q & "Server: Jcq Web Server 0.1" & vbCrLf
Q = Q & "MIME-version: 1.0" & vbCrLf
Q = Q & "Content-type: " & Dir(App.Path & "\" & Requestedpage) & vbCrLf
Q = Q & "Content-length: " & FileLen(App.Path & "\" & Requestedpage) & vbCrLf
Q = Q & "Last-modified: " & Fecha & vbCrLf
Q = Q & "" & vbCrLf
DoEvents
Q = Q & LoadBinary(App.Path & "\" & Requestedpage)
DoEvents
Pepe = Q
End Function
Private Function LoadBinary(ByVal strFileName As String) As String
'aca esta el problema, se queda duro hasta que no abre el archivo
Close
Dim ff As Integer
ff = FreeFile
DoEvents
Open strFileName For Binary As #ff
DoEvents
LoadBinary = Input(FileLen(strFileName), #ff)
DoEvents
Close #ff
End Function |
| ? |
|
l_island
117 Mensaje(s)
|
| Enviado - 30/11/2004 |
| ? |
DoEvents
Open strFileName For Binary As #ff
DoEvents
LoadBinary = Input(FileLen(strFileName), #ff)
DoEvents
Close #ff
Por lo que deduzco este c?digo lee el fichero completo, de este modo es normal que el programa se quede parado esperando a finalizar la lectura del fichero.
Creo que hay dos posibilidades, podr?an haber m?s, pero yo solo veo dos:
1 - Lees el fichero en fragmentos con un DoEvents entre cada dos lecturas.
2 - Pones un timer en tu formulario con un DoEvents
Saludos!!
l_island |
| ? |
|
|
|
