Autor Tema: Ftp (Leído 6627 veces)

Sagutxo · « **en:** Miércoles 17 de Noviembre de 2004, 16:41 »

Salu2. Alguno me puede poner un ejemplo de como mandar un archivo, en este caso una DB por FTP, con codigo VB, VB6 en mi caso,.

He encontrado esto pero no encuentro ningun ejemplo y está en inglés

.

FtpOpenFile
HINTERNET FtpOpenFile(
IN HINTERNET hFtpSession,
IN LPCSTR lpszFileName,
IN DWORD fdwAccess,
IN DWORD dwFlags,
IN DWORD dwContext
);

Gracias.

RadicalEd

VISITA ESTA PAGINA ALL API, ELLOS TIENEN UN EJEMPLO DE UN FTP, HECHO POR ELLOS MUY BUENA LA PAGINA, TE LA RECOMIENDO

Brroz

Kaixo Sagutxo!

Puedes utilizar un control Microsoft Internet Transfer Control. Añádelo a tu proyecto. Su uso es muy sencillo, fíjate en la ayuda del control.

Citar

Inet1.Execute "FTP://ftp.microsoft.com", _
"GET Disclaimer.txt C:\Temp\Disclaimer.txt"

También podrías crear un archivo de proceso por lotes con los comandos FTP que necesites y ejecutarlo.

Espero que esto te sirva.

Agur.

Sagutxo

Salu2. Muchas gracias a los 2, acabo de conseguirlo mirando lo de las AllApi, y ahora leo esto

. que casualidad, ciertamente tiene un ejemplo buenísimo.

Respeto al lo de archivo por lotes, lo tengo así pero se queda una ventana de DOS 'CMD', mientras está pasando los datos, y algunos usuarios son muy cafres, necesito que no pueda cerrarlo hasta que la transferencia sea terminada.

Probare tambien el control Microsoft Internet Transfer Control para ver cual de los 2 es mas sencillo aunke en esto casi prefiero que sea eficaz.

.

No se si podré controlar la espera hasta el fnal de la transferencia, si no es así, pediré ayuda nuevamente.

Muchas gracias.

Sagutxo

Salu2.

Finalmente he utilizado el ejemplo del AllAPI, ya que me deja controlar ciertas cosas como el port a utilizar, pero me ha surgido otro problemilla.

¿Sabriais orientarme de como hacer un seguimiento a lo que estoy subiendo?

Os dejo el ejemplo de AllAPI que utilizo.

Brroz, reconozco que como sencillo, tu opción es mucho mas sencilla sin duda.

Gracias. Agur.

+++++
P.D.
Y si sabeis como mostrar lo que hay en un tipo explorador ya serie el no va mas.

. aunke esto solo seria para dejarlo bonito, no s necesario.

Llevo todo el dia con ello y solo consigo ponerlo en un MsFleshGrid.

Gracias.

Brroz

Kaixo.

Usando un control Inet supongo que se podría hacer utilizando el comando FTP 'dir' y/o los comandos 'ls' o 'mls' para mostrar el contenido de uno o varios directorios respectivamente. Para recuperar esta información, fíjate en lo que dice la ayuda del control.

Citar

En este ejemplo se utiliza el método GetChunk en el evento StateChanged para obtener un bloque de datos. Se emplea una instrucción Select Case para determinar lo que se debe hacer en todos los estados posibles. En el ejemplo se supone que en el formulario hay un control TextBox llamado txtData.

Private Sub Inet1_StateChanged(ByVal State As Integer)
' Recupera la respuesta del servidor con el método
' GetChunk cuando State = 12. En este ejemplo se
' supone que los datos son texto.

Select Case State
' ... No se muestran los demás casos.

Case icResponseReceived ' 12
Dim vtData As Variant ' Variable de datos.
Dim strData As String: strData = ""
Dim bDone As Boolean: bDone = False

' Obtiene el primer bloque.
vtData = Inet1.GetChunk(1024, icString)
DoEvents
Do While Not bDone
strData = strData & vtData
DoEvents
' Obtiene el bloque siguiente.
vtData = Inet1.GetChunk(1024, icString)
If Len(vtData) = 0 Then
bDone = True
End If
Loop

txtData.Text = strData
End Select

End Sub

A ver si esto te sirve.

Por cierto, este control también permite definir el puerto a usar (joder, parece que esté haciendo propaganda del control... que no, hombre, que no, sólo para que lo tengas en cuenta).

Agur

Sagutxo

Salu2.
He probado tu control Brroz. pero me da un error.

Código: Text

ValStr = Dir1.Path & &#34;&#092;&#34; & File1.FileName
Inet1.UserName = &#34;red&#34;
Inet1.Password = &#34;red1&#34;
Inet1.RemotePort = 21
 
Inet1.Execute &#34;FTP://AquiHayUnaIP&#34;, &#34;PUT &#34; & File1.FileName & &#34; &#34; & ValStr
 

No se puede conectar con el host remoto. Este error me da. y te aseguro que el ftp funciona ya que lo uso amenudo.

Otra duda, no he encontrado la forma de pasar los datos como binary

. ¿Lo hará automaticamente como binary?

Muchas gracias.

Brroz

Kaixo.

No sé si a estas alturas te servirá de mucho, pero ...

El error tampoco sé a qué puede deberse, pero tal vez tenga algo que ver con esta nota:

Citar

Nota Cuando utilice el método OpenURL, establezca la propiedad URL antes que las propiedades Password y UserName. Si establece la propiedad URL en último lugar, las propiedades UserName y Password estarán establecidas a "".

Al no estar establecida previamente una url, puede que con el usuario y la contraseña pase algo de esto...

prueba así a ver:

Código: Text

 
INet1.URL=&#34;FTP://AquiHayUnaIP&#34;
INet1.UserName = &#34;red&#34;
Inet1.Password = &#34;red1&#34;
Inet1.RemotePort = 21
INet1.OpenURL
INet1.Execute &#34;Type Bynari&#34;
INet1.Execute &#34;PUT archivo1 archivo2&#34;
 
 

Sobre lo del tipo binario... en el código anterior puedes encontrar la solución: ejecuta el comando Type bynari.

Fíjate También en este ejemplo de la ayuda:

Código: Text

 
Dim b() As Byte
Dim strURL As String
' Establece strURL a una dirección válida.
strURL = &#34;FTP://ftp.GreatSite.com/China.exe&#34;
b() = Inet1.OpenURL(strURL, icByteArray)
 
Open &#34;C:&#092;Temp&#092;China.exe&#34; For Binary Access _
Write As #1
Put #1, , b()
Close #1
 
 

Espero que esto te sirva de algo.

Agur.

Sagutxo

Salu2. ya siento contestarte tan tarde pero he tenido problemas de salud que me han inpedido hacerlo.

Sigue sin funcinar, y no me devuelve ningun error así que no te puedo mostrar nada mas que el codigo

Código: Text

 
Inet1.OpenURL = &#34;ftp://AKI.VA.UNA.IP&#34; ' Ip 100% fiable
Inet1.UserName = &#34;red&#34;
Inet1.Password = &#34;red1&#34;
Inet1.RemotePort = 21
Inet1.Execute &#34;PUT &#34; & File1.FileName & &#34; &#34; & ValStr
 
 

No se, supongo que no te sirve de mucho, pero es que ya no se que mas poner

.
Gracias.

Brroz

Kaixo Sagutxo.

Pos no sé qué puede ocurrir... pero puedes probar supervisando el evento del control StateChanged e ir depurando lo que ocurre a través del parámetro estado.

Citar

Los valores de estado son:

Constante Valor Descripción
icNone 0 No hay estado del que informar.
icHostResolvingHost 1 El control está buscando la dirección IP del host especificado.
icHostResolved 2 El control encontró la dirección IP del host especificado.
icConnecting 3 El control está conectando con el equipo host.
icConnected 4 El control conectó correctamente con el equipo host.
icRequesting 5 El control está enviando una solicitud al equipo host.
icRequestSent 6 El control envió correctamente la solicitud.
icReceivingResponse 7 El control está recibiendo una respuesta del equipo host.
icResponseReceived 8 El control recibió correctamente una respuesta del equipo host.
icDisconnecting 9 El control se está desconectando del equipo host.
icDisconnected 10 El control se desconectó correctamente del equipo host.
icError 11 Se produjo un error en la comunicación con el equipo host.
icResponseCompleted 12 La solicitud se completó y se recibieron todos los datos.

Suerte.

SoloCodigo

Autor Tema: Ftp (Leído 6627 veces)

Sagutxo

Ftp

RadicalEd

Re: Ftp

Brroz

Re: Ftp

Sagutxo

Re: Ftp

Sagutxo

Re: Ftp

Brroz

Re: Ftp

Sagutxo

Re: Ftp

Brroz

Re: Ftp

Sagutxo

Re: Ftp

Brroz

Re: Ftp