vb@rchiv
VB Classic
VB.NET
ADO.NET
VBA
C#
Top-Preis! AP-Access-Tools-CD Volume 1  
 vb@rchiv Quick-Search: Suche startenErweiterte Suche starten   Impressum  | Datenschutz  | vb@rchiv CD Vol.6  | Shop Copyright ©2000-2025
 
zurück

 Sie sind aktuell nicht angemeldet.Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Allgemeine Diskussionen
Dateien downloaden mit Winsock 
Autor: Cornelius Herzog
Datum: 14.02.02 19:17

hallo,

ich habe mir von dir das tutorial dateien mit winsock runterladen geholt und erweitert, so dass eine for-schleife ausgeführt wird, um mehrere dateien runterzuladen.
das seltsame ist jedoch, dass wenn ich das Programm im einzelschrittmodus ausführe, alles wunderbar funktioniert. Führe ich das Programm in einem rutsch aus, holts nur eine datei.
für euch dürfte das ja nicht alzu schwer sein, den fehler zu finden.

noch ne frage: wenn ich dann die exedatei kompiliert hab und des programm auf nem anderen pc laufen lassen möchte, wo muss dann die activex dll hin, dass das programm sie wieder findet? (also ich möchte nicht den vb-setup assistent benutzen

danke schon mal im voraus.

mfg

cornelius herzog

hier der quellcode:

Private Sub cmdStartIntelligent_Click()
Dim filenamelocal As String
Dim filenameinternet As String
Dim i%
Dim result
Dim startbei As String
Dim stopbei As String
Dim Nullbis As String
If chknullbis.Value = 1 Then
Nullbis = CStr(txtnullbis.Text)
Else
Nullbis = "0"
End If
startbei = CStr(txtStartbei.Text)
stopbei = CStr(txtStopbei.Text)
For i% = startbei To stopbei
If chknullbis.Value = 1 And Nullbis > i Then
filenamelocal = txtlocaldir.Text & "\" & txtfestedateinamenteil.Text _
& "0" & i% & txterweiterung.Text
filenameinternet = txtfesteURL.Text & "/" & txtfestedateinamenteil.Text _
& "0" & i% & txterweiterung.Text
Else
filenamelocal = txtlocaldir.Text & "\" & txtfestedateinamenteil.Text _
& i% & txterweiterung.Text
filenameinternet = txtfesteURL.Text & "/" & txtfestedateinamenteil.Text _
& i% & txterweiterung.Text
End If
Set FileDownload = New clsDownload
If FileDownload.DoDownload(filenameinternet, filenamelocal) Then
cmdStartIntelligent.Enabled = False
cmdabortintelligent.Enabled = True
Else
Set FileDownload = Nothing
End If
lblbinbei.Caption = "Datei " & i% & " von " & stopbei & " fertig."
Next i%
End Sub
alle Nachrichten anzeigenGesamtübersicht  |  Zum Thema  |  Suchen

 ThemaViews  AutorDatum
Dateien downloaden mit Winsock166Cornelius Herzog14.02.02 19:17
Re: Dateien downloaden mit Winsock437ModeratorDieter15.02.02 02:07

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übersichtSuchen 

nach obenzurück
 
   

Copyright ©2000-2025 vb@rchiv Dieter Otter
Alle Rechte vorbehalten.
Microsoft, Windows und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein.

Diese Seiten wurden optimiert für eine Bildschirmauflösung von mind. 1280x1024 Pixel