Cómo simular el dragdrop de un fichero a un TWebbrowser?

[[nlsgarcia]]

cocute,

Empezado por cocute

...De hecho al compilar tu ejemplo el programa compilado me salta el antivirus kaspersky como de una actividad sospechosa...

Te comento:

1- El código de Delphi esta tan optimizado a nivel de compilación que algunos antivirus detectan el ejecutable como un posible riesgo de seguridad.

2- Internet Security y Norton 360 también detectan posibles riesgos de seguridad con los ejecutables del Delphi 7, Delphi 2010 y Delphi XE6, asumo que lo mismo puede ocurrir con otras versiones de Delphi.

3- Revisa este código:

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
begin
   ShowMessage(Format('El ProcessID de la Aplicación es : %d',[GetCurrentProcessId]));
end;

El código anterior en Delphi 7, 2010 y XE6 es detectado por Norton 360 como : A program was behaving suspiciously on you computer. This program was removed. Threat name: SONAR.Heurist.120

Esto se debe a que la tecnología heurística de Norton 360 analiza la estructura y tipo de instrucciones del programa en Delphi y por su nivel de optimización y tipo de instrucciones determina una posible brecha de seguridad, sin embargo esto puede ser controlado a nivel de configuración en Norton 360, asumo que debe ser igual para Kaspersky Antivirus.

Espero sea útil

Nelson.

[cocute]

gracias por tu tiempo,
pero lo que pretendo no funciona,
para que lo veas mejor te pongo el código modificado, que has enviado para que veas que no simula exactamente el dragdrop al arrastrar un fichero kml,
en cambio si pruebas a arrastrar un kml de los que pongo desde el explorador de archivos a la ventana del twebbrowser verás que si lo acepta:

https://www.dropbox.com/s/hyd0m54ao2...adrag.zip?dl=0
(incluyo el exe)

[ecfisa]

Hola cocute.

Descargué y probé tu archivo. Sólo tuve que quitar del uses ", SHDocVw,system.Win.registry;" que no reconoce mi Delphi 7 y algo de código del evento OnCreate (que no hace al funcionamiento del Drag & Drop) quedando así:

Código Delphi [-]
procedure TForm1.FormCreate(Sender: TObject);
begin
  webbrowser1.navigate('http://ivanrublev.me/kml/');
  FileListBox1.Directory:= ExtractFilePath(Application.ExeName);
end;

y tál como lo esperaba, funciona correctamente:



Así que el error debe estar el el código que te comenté, revisa esos puntos.

Saludos

[cocute]

El código del registro que pongo en el oncreate es para que pueda mostrar la web http://ivanrublev.me/kml/ correctamente en un webbrowser,
Todo este tema viene de este post:
http://www.clubdelphi.com/foros/showthread.php?t=86867

Al arrastrar el kml al webbrowser tendría que mostrar el mapa del fichero kml en la web,
no el código del kml.

No se si me explico bien?
Lo que pretendo que pase al hacer click en uno de los ficheros kml es esto:
https://www.dropbox.com/s/slfx3hh81j...34.13.png?dl=0


Pero lo que me ocurre, al menos en windows8 x64 es esto:
https://www.dropbox.com/s/wn5wf4bpt8...39.51.png?dl=0
Y si le doya a abrir me lo abre con el googleearth

[ecfisa]

Hola cocute.

Empezado por cocute

El código del registro que pongo en el oncreate es para que pueda mostrar la web http://ivanrublev.me/kml/ correctamente en un webbrowser,
Todo este tema viene de este post:
http://www.clubdelphi.com/foros/showthread.php?t=86867

Al arrastrar el kml al webbrowser tendría que mostrar el mapa del fichero kml en la web,
no el código del kml.

No se si me explico bien?
Lo que pretendo que pase al hacer click en uno de los ficheros kml es esto:
https://www.dropbox.com/s/slfx3hh81j...34.13.png?dl=0


Pero lo que me ocurre, al menos en windows8 x64 es esto:
https://www.dropbox.com/s/wn5wf4bpt8...39.51.png?dl=0
Y si le doya a abrir me lo abre con el googleearth

Pero ese problema no es causado por la automatización del Drag&Drop, motivo inicial de este hilo...

Acabo de incluir en el evento OnCreate el código correspondiente al registro y quitar la automatización del Drag&Drop dejándola manual (del modo normal) y sigue mostrando código html.

Saludos

Edito: Leyendo el enlace que menciona Neftali me pregunto... ¿ No tendrá que ver si IE es el navegador predeterminado ?

[cocute]

Pero si arrastras un kml desde el explorador de archivos de windows a la ventana del navegador con esa web abierta que te ocurre?
igual es que hay que poner algo del tema OLE por algún lado.