Ver la Versión Completa : 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)
Hola DML.
¿Te puede valer la función URLDownloadToFile?
En el histórico seguro que encontrarás algún ejemplo de su uso.
Saludos.
hogol
20-08-2003, 10:26:19
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;
delphi.com.ar
20-08-2003, 16:54:02
¿Porqué no observas el código del TWinsock?... y en su defecto FTP...
Saludos!
Muchas gracias a todos!!!
DarkByte
05-10-2003, 22:55:16
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?
guillotmarc
05-10-2003, 23:28:35
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.
DarkByte
06-10-2003, 21:00:51
Posteado originalmente por guillotmarc
Síntesis tienes unos artículos para realizar descargas directamente por el API de Windows.
http://www.grupoalbor.com/delphi/
La verdad, me suscribí una vez y me mandaron mucho spam y muchos correos cada dos por tres, ¿alguien tiene un ejemplo explicado o algo así? :( :( :( :(
DarkByte
07-10-2003, 23:27:56
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)
vBulletin v3.6.8, Derechos ©2000-2024, Jelsoft Enterprises Ltd.