FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
#1
|
|||
|
|||
WinSock
Primero pido disculpas, por que postee el mismo hilo en IMPRESION (por ERROR)
Hola foro, Necesito hacer un programa que baje un archivo de una direccion de internet solo con el Api del winsock ((Sin conponentes de internet)) //Muchas gracias por adelantado Diego Mariano Lopez (DML) |
#2
|
|||
|
|||
Nadie tiene idea?
|
#3
|
|||
|
|||
Hola DML.
¿Te puede valer la función URLDownloadToFile? En el histórico seguro que encontrarás algún ejemplo de su uso. Saludos.
__________________
Una cosa es una cosa, y otra cosa es otra cosa... |
#4
|
|||
|
|||
Yo utilizo el siguiente código para descargar ficheros de internet.
kurl contiene la dirección url completa del fichero (ej. http://achilipu.com/arriquitaun.jpg) y el fichero se copia en c:\fichero.jpg Para que funcione debes añadir wininet en la lista de uses. Espero que te sirva Saludos Hogol procedure TForm1.descarga(kurl:string); var hHttpSession, hReqUrl: HInternet; Buffer: array [0..1023] of Char; nRead: Cardinal; nwrite : Integer; ToF : file; begin hHttpSession := InternetOpen ('FindWeb', INTERNET_OPEN_TYPE_PRECONFIG, nil, nil, 0); hReqUrl := InternetOpenURL (hHttpSession, PChar(kurl),nil,0,0,0); AssignFile(ToF, 'c:\fichero.jpg'); Rewrite(ToF, 1); repeat InternetReadFile (hReqUrl, @Buffer, sizeof (Buffer), nRead); BlockWrite(ToF, Buffer, nRead, nWrite); until nRead = 0; InternetCloseHandle (hReqUrl); closefile(ToF); InternetCloseHandle (hHttpSession); end; |
#5
|
||||
|
||||
¿Porqué no observas el código del TWinsock?... y en su defecto FTP...
Saludos!
__________________
delphi.com.ar Dedique el tiempo suficiente para formular su pregunta si pretende que alguien dedique su tiempo en contestarla. |
#6
|
|||
|
|||
Muchas gracias a todos!!!
|
#7
|
||||
|
||||
No lo entiendo, ¿cómo funciona el código?, he intentado aciendo:
procedure TForm1.DsFancyButton1Click(Sender: TObject); procedure TForm1.descarga(kurl:string); Y me da error, dice que esperaba TForm1 ; o algo así , komo funciona el kódigo?
__________________
:) |
#8
|
||||
|
||||
Hola.
En los ultimos numeros de la revista Síntesis tienes unos artículos para realizar descargas directamente por el API de Windows. http://www.grupoalbor.com/delphi/ Saludos.
__________________
Marc Guillot (Hi ha 10 tipus de persones, els que saben binari i els que no). |
#9
|
||||
|
||||
Cita:
__________________
:) Última edición por DarkByte fecha: 06-10-2003 a las 20:03:32. |
#10
|
||||
|
||||
Me he intentado suscribir pero tarda mucho ¿Gillotmarc o algien tiene el cödigo? Me es muy necesario; y si alguien tiene un ejemplo por ahï; mejor
Gracias (los ; son comas; es que tengo el teclado algo paranoico)
__________________
:) |
Herramientas | Buscar en Tema |
Desplegado | |
|
|
|