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) |
Nadie tiene idea?
|
Hola DML.
¿Te puede valer la función URLDownloadToFile? En el histórico seguro que encontrarás algún ejemplo de su uso. Saludos. |
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; |
¿Porqué no observas el código del TWinsock?... y en su defecto FTP...
Saludos! |
Muchas gracias a todos!!!
|
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? |
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. |
Cita:
|
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) |
La franja horaria es GMT +2. Ahora son las 23:15:52. |
Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi