WinSock

[DML]

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)

[DML]

Nadie tiene idea?

[Lmas]

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]

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]

¿Porqué no observas el código del TWinsock?... y en su defecto FTP...


Saludos!

[DML]

Muchas gracias a todos!!!

[DarkByte]

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]

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]

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]

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)