Internet Download Abfrage

10/05/2008 - 21:28 von Matthias Suck | Report spam
Hallo NG,

ich lade aus dem Internet mit dem Objekt "oleWebBrowser" über einen Link
eine XML Datei herunter. Das Problem ist das sich der Dateiname des Downloads
jedesmal àndert.

Wie kann ich den Dateinamen nach dem Download ermitteln?

Mein Quellcode:

PUBLIC oForm

_VFP.AutoYield = .t.

xtext="http://ad.easa.europa.eu/?format=xml&r88"

oForm = CREA("TIPI")
IF VARTYPE(oForm) = "O"
oForm.Show()
ENDIF

*--
*-- testform
*--
DEFINE CLASS TIPI AS form

ADD OBJECT oleWebWrowser AS IEClass WITH;
Name = "oleWebBrowser"

PROCEDURE Resize
THIS.oleWebBrowser.Height = THIS.Height
THIS.oleWebBrowser.Width = THIS.Width
ENDPROC

PROCEDURE Init
WITH THIS.oleWebBrowser
.Top = 0
.Left = 0
.Navigate(xtext)
ENDWITH
this.Width€0
this.Height`0
this.AlwaysOnTop= .T.
this.WindowType= 1
THIS.Resize()
ENDPROC

ENDDEFINE

*--
*-- IEClass
*--
DEFINE CLASS IEClass AS olecontrol

OleClass = "Shell.Explorer.2"

PROCEDURE Init
THIS.Navigate("about:Haben Sie bitte einen Moment Geduld es werden die
entsprechenden Daten zum Download erstellt.<br><br> ;
Je nach Verbindungsart -Geschwindigkeit- kann dieses
bis zu 2 Minuten dauern.")
ENDPROC

PROCEDURE Refresh
NODEFAULT
ENDPROC

ENDDEFINE

Viele Grüße aus Göttingen
Matthias Suck
 

Lesen sie die antworten

#1 Olaf Doschke
11/05/2008 - 14:14 | Warnen spam
ich lade aus dem Internet mit dem Objekt "oleWebBrowser" über einen Link
eine XML Datei herunter. Das Problem ist das sich der Dateiname des Downloads
jedesmal àndert.



Im IE Cache, richtig.

Aber wenn Du per Wbbrowsercontrol zu einer URL navigierst,
hast Du im Browser das ganze DOM (Document Object Modell)

Wenn Du eine Datei haben willst, dann nehm doch einfach
URLDownloadToFile() zur Hand...

Tschüß, Olaf.

Ähnliche fragen