PDA

Ver la Versión Completa : WinSock


DML
13-08-2003, 05:16:28
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
18-08-2003, 06:57:51
Nadie tiene idea?

Lmas
19-08-2003, 03:20:34
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!

DML
20-08-2003, 23:21:02
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)