Descargar archivo con Delphi

[Gothem]

Vale, olvidad eso, ya lo he conseguido.

Pero ahora tengo otro problema. El antivirus (tras meter ese código y ejecutar la aplicación) la detecta como potencialmente peligrosa... ¿solución a eso?

[[escafandra]]

Usa la API URLDownloadToFile

Código Delphi [-]
uses  Urlmon

URLDownloadToFile(nil, PCHAR(URL), PCHAR(FileName), 0, nil);

Saludos.

[Neftali [Germán.Estévez]]

Empezado por Gothem

Pero ahora tengo otro problema. El antivirus (tras meter ese código y ejecutar la aplicación) la detecta como potencialmente peligrosa... ¿solución a eso?

¿Qué antivirus estás utilizando?
Tendrás que decirle al antivirus que tu aplicación es segura.
¿Estás descargando algo peligroso? ¿Un EXE o similar?

[Gothem]

Uso Nod32, y si, puedo decirle a él que es segura, pero me interesa que tampoco sea detectado en el resto de ordenadores del mundo :S.

El archivo que descargo es un .jpg, totalmente inofensivo.

PD: El código que he usado es el que sale en el link que he puesto yo.

[Neftali [Germán.Estévez]]

No se, prueba en otros ordenadores, pero no debería dar aviso, a no ser que tengas el nivel de protección muy alto.
Si tienes posibilidad prueba el programa en otros equipos/máquinas virtuales.

[[escafandra]]

¿El resto de la aplicación es "normal"?, es decir, ¿Es una aplicación típica con formularios o API pura?.

Yo he tenido algún problema con el AV al compilar aplicaciones API pura, me refiero a escribir el bucle de mensajes, funciones de respuesta a los WM_ y demás... En este tipo de aplicaciones, algunas API hacen saltar las alarmas. Para solucionar este escollo importo de forma dinámica las APIs conflictivas, en este caso URLDownloadToFile.

Este efecto no lo he observado en aplicaciones de consola normales ni en las aplicaciones típicas.


Saludos.

[Gothem]

Si, mi aplicación es API pura, igual puede ser por eso. ¿Cómo importo dinamicamente para que no me salte el antivirus?

[[escafandra]]

El siguiente método te servirá para importar APIs dináminamente y ejecutarlas:

Código Delphi [-]
type
  PURLDownloadToFile = function(pCaller: Pointer; szURL, szFileName: PCHAR; dwReserved: Cardinal; lpfnCB: Pointer): Cardinal; stdcall;

var
  URLDownloadToFile: PURLDownloadToFile;
  hLib: Integer;

begin
  hLib:= LoadLibrary('urlmon.dll');
  URLDownloadToFile:= GetProcAddress(hLib, 'URLDownloadToFileA');
  URLDownloadToFile(nil, PCHAR('http://telmosilva.files.wordpress.com/2010/03/informatica_12.jpg'), PCHAR('FileName.jpg'), 0, nil);
  FreeLibrary(hLib);
end.

Saludos.