Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Die Lösung
Autor: Tschoege
Datum: 15.12.03 10:36
ich habe vom kollengen ein Modul bekommen mit dem es 100 % geht. Der Nachteil ist, das ich kein BrowserObjekt mehr habe. Das brauche ich jedoch garn nicht, denn ich will lediglich den Quelltext auswerten. hier ein kleiner Auszug der Funktion die ich nun verwende. Wenn jemand Intresse hat, kann ich das ganze Modul liefern. Public Function DownloadTMP(Quelle As String, Optional Ziel As String) As String Dim hInet As Long Dim hURL As Long Dim Buffer As String * 2048 Dim Bytes As Long Dim hOpen As Long Dim hOpenUrl As Long Dim sURL As String Dim bDoLoop As Boolean Dim bRet As Boolean Dim sReadBuffer As String * 2048 Dim lNumberOfBytesRead As Long Dim sBuffer As String Dim b() As Byte, LI As ListItem, Teil As String Dim Nr As Long, Wert As String, Ret As Long If Ziel = "" Then Wert = Space(256) Ret = GetTempFileName(TempPfad, "dwn", 0&, Wert) Ziel = Split(Wert, Chr(0))(0) End If hOpen = InternetOpen("VB OpenUrl", INTERNET_OPEN_TYPE_PRECONFIG, vbNullString, vbNullString, 0) sBuffer = "" sReadBuffer = Space(2048) Teil = Quelle If InStrRev(Teil, "/") <> 0 Then Teil = Mid(Teil, InStrRev(Teil, "/") + 1) Else Teil = Quelle End If hOpenUrl = InternetOpenUrl(hOpen, Quelle, vbNullString, 0, INTERNET_FLAG_RELOAD, 0) DoEvents bDoLoop = True While bDoLoop sReadBuffer = vbNullString bRet = InternetReadFile(hOpenUrl, sReadBuffer, Len(sReadBuffer), lNumberOfBytesRead) sBuffer = sBuffer & Left$(sReadBuffer, lNumberOfBytesRead) If Not CBool(lNumberOfBytesRead) Then bDoLoop = False DoEvents Wend Nr = FreeFile Open Ziel For Binary Access Write As #Nr Put #Nr, , sBuffer Close #Nr DoEvents If hOpenUrl <> 0 Then InternetCloseHandle hOpenUrl If hOpen <> 0 Then InternetCloseHandle hOpen DownloadTMP = Ziel If optSeitenCachen Then On Error Resume Next cSeiten.Remove Quelle cSeiten.Add sBuffer, Quelle On Error GoTo 0 End If End Function

WebBrowser ActiveX	644	Tschoege	15.12.03 09:32
Re: WebBrowser ActiveX	380	Dieter	15.12.03 09:41
Re: WebBrowser ActiveX	358	Tschoege	15.12.03 09:50
Re: WebBrowser ActiveX	384	Dieter	15.12.03 09:59
Re: WebBrowser ActiveX	380	Tschoege	15.12.03 10:10
Re: WebBrowser ActiveX	389	devnull	15.12.03 10:26
Die Lösung	458	Tschoege	15.12.03 10:36
Hmm... schade eigentlich	356	devnull	15.12.03 10:39

Sie sind nicht angemeldet! Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden. Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  Gesamtübersicht

Suchen