Automatisches download von Files

Übersicht

BlitzBasic

Allgemein

Gehe zu Seite 1, 2 Weiter

	WEBLink Betreff: Automatisches download von Files	Fr, Aug 27, 2004 14:24 Antworten mit Zitat
Servus, folgene Frage. Kann man mit BB ein Programm machen das sich automatisch mit einer bestimmten Seite verbindet und auf eine URL zugreift auf dieser dann eine Datei heruntergeladen wird. wie kann man das machen?

WEBLink

Betreff: Automatisches download von Files

Fr, Aug 27, 2004 14:24
Antworten mit Zitat

Servus,

folgene Frage.

Kann man mit BB ein Programm machen das sich automatisch mit einer bestimmten Seite verbindet und auf eine URL zugreift auf dieser dann eine Datei heruntergeladen wird.

wie kann man das machen?

	Chester	Fr, Aug 27, 2004 14:28 Antworten mit Zitat
Ja kannste. Lies das kapitel 14 (oder so ähnlich) Multiplayer und Netzwerk von Rob's BB Kurs. Auf : http://www.blitzbase.de bei 2D Tutorials

Chester

Fr, Aug 27, 2004 14:28
Antworten mit Zitat

Ja kannste.
Lies das kapitel 14 (oder so ähnlich) Multiplayer und Netzwerk von Rob's BB Kurs.
Auf : http://www.blitzbase.de bei 2D Tutorials

	WEBLink	Fr, Aug 27, 2004 15:52 Antworten mit Zitat
Ich kann zwar jetzt eine Verbindung erstellen, wie man dateien downloadet weiss ich immer noch nicht. Print ("Zum starten des downloads bitte ENTER drücken") WaitKey Print "Versuche Verbindung zu http://weblink.art-fx.org aufzubauen." tcp = OpenTCPStream("http://weblink.art-fx.org",21) If Not tcp Print "Fehlgeschlagen": WaitKey: End Print "Verbunden!" WaitKey If da <> 0 Then Print "Datei wurde gefunden" Else Print "Fehler!!!" WaitKey End EndIf CloseTCPStream tcp WaitKey() End

WEBLink

Fr, Aug 27, 2004 15:52
Antworten mit Zitat

Ich kann zwar jetzt eine Verbindung erstellen, wie man dateien downloadet weiss ich immer noch nicht.

Print ("Zum starten des downloads bitte ENTER drücken")
WaitKey

Print "Versuche Verbindung zu http://weblink.art-fx.org aufzubauen."

tcp = OpenTCPStream("http://weblink.art-fx.org",21)
If Not tcp Print "Fehlgeschlagen": WaitKey: End
Print "Verbunden!"

WaitKey
If da <> 0 Then
Print "Datei wurde gefunden"
Else
Print "Fehler!!!"
WaitKey
End
EndIf

CloseTCPStream tcp
WaitKey()
End

	Chester	Fr, Aug 27, 2004 16:28 Antworten mit Zitat
Code: [AUSKLAPPEN] [EINKLAPPEN] Print ("Zum starten des downloads bitte ENTER drücken") WaitKey() Print "Versuche Verbindung zu http://weblink.art-fx.org aufzubauen." tcp = OpenTCPStream("http://weblink.art-fx.org",21) If Not tcp Print "Fehlgeschlagen": WaitKey: End Print "Verbunden!" WaitKey() If da <> 0 Then Print "Datei wurde gefunden" CopyFile quellpfad, zielpfad ;;;dem entspechend anpassen Ich hätte es ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;aber von eiomen ftp server kopiert Else Print "Fehler!!!" WaitKey End EndIf CloseTCPStream tcp WaitKey() End So Glaub ich jedenfalls Ich habs noch nicht ausprobert.

Chester

Fr, Aug 27, 2004 16:28
Antworten mit Zitat

Code: [AUSKLAPPEN]

Print ("Zum starten des downloads bitte ENTER drücken")
WaitKey()

Print "Versuche Verbindung zu http://weblink.art-fx.org aufzubauen."

tcp = OpenTCPStream("http://weblink.art-fx.org",21)
If Not tcp Print "Fehlgeschlagen": WaitKey: End
Print "Verbunden!"

WaitKey()
If da <> 0 Then
Print "Datei wurde gefunden"
CopyFile quellpfad, zielpfad ;;;dem entspechend anpassen Ich hätte es ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;aber von eiomen ftp server kopiert

Else
Print "Fehler!!!"
WaitKey
End
EndIf

CloseTCPStream tcp
WaitKey()
End

So
Glaub ich jedenfalls
Ich habs noch nicht ausprobert.

	WEBLink	Fr, Aug 27, 2004 16:45 Antworten mit Zitat
Ich habs jetzt so probiert: Code: [AUSKLAPPEN] [EINKLAPPEN] Graphics 800,600,0,2 Print ("Zum starten des downloads bitte ENTER drücken") WaitKey Print "Versuche Verbindung zu http://weblink.art-fx.org aufzubauen." tcp = OpenTCPStream("http://weblink.art-fx.org",21) If Not tcp Print "Fehlgeschlagen": WaitKey: End Print "Verbunden!" one = LoadImage ("6.jpg") DrawImage one, 100,100 WaitKey Pfad1$ = "http://weblink.art-fx.org/6.jpg" Pfad2$ = "C:\" CopyFile Pfad1$,Pfad2$ If da <> 0 Then Print "Datei wurde gefunden" Else Print "Fehler!!!" WaitKey End EndIf CloseTCPStream tcp WaitKey() End Leider findet er das Bild nicht mal zum aufzeichnen. Und ´Zeigt mir an image dont ...

WEBLink

Fr, Aug 27, 2004 16:45
Antworten mit Zitat

Ich habs jetzt so probiert:

Code: [AUSKLAPPEN]

Graphics 800,600,0,2

Print ("Zum starten des downloads bitte ENTER drücken")
WaitKey

Print "Versuche Verbindung zu http://weblink.art-fx.org aufzubauen."

tcp = OpenTCPStream("http://weblink.art-fx.org",21)
If Not tcp Print "Fehlgeschlagen": WaitKey: End
Print "Verbunden!"
one = LoadImage ("6.jpg")

DrawImage one, 100,100

WaitKey
Pfad1$ = "http://weblink.art-fx.org/6.jpg"
Pfad2$ = "C:\"

CopyFile Pfad1$,Pfad2$

If da <> 0 Then
Print "Datei wurde gefunden"
Else
Print "Fehler!!!"
WaitKey
End
EndIf

CloseTCPStream tcp
WaitKey()
End

Leider findet er das Bild nicht mal zum aufzeichnen. Und ´Zeigt mir an image dont
...

	Chester	Fr, Aug 27, 2004 17:03 Antworten mit Zitat
kannst du mir sagen was die function da ist?

Chester

Fr, Aug 27, 2004 17:03
Antworten mit Zitat

kannst du mir sagen was die function da ist?

	WEBLink	Fr, Aug 27, 2004 17:09 Antworten mit Zitat
Wie welche fuction da ist? Ich möchte derzeit nur das Bild 6.jpg con http://weblink.art-fx.org runterladen. Bei dem Bildanzeigen fehlt nochwas.

WEBLink

Fr, Aug 27, 2004 17:09
Antworten mit Zitat

Wie welche fuction da ist?

Ich möchte derzeit nur das Bild 6.jpg con http://weblink.art-fx.org runterladen.

Bei dem Bildanzeigen fehlt nochwas.

	rambo256	Fr, Aug 27, 2004 17:11 Antworten mit Zitat
Der link,bzw. die Website geht nicht. Ist irgendwie down...
Asus F53z Das Leben ist eine reine Konkatenation...

rambo256

Fr, Aug 27, 2004 17:11
Antworten mit Zitat

Der link,bzw. die Website geht nicht.
Ist irgendwie down...

Asus F53z

Das Leben ist eine reine Konkatenation...

	Chester	Fr, Aug 27, 2004 17:15 Antworten mit Zitat
bei mir geht sie

Chester

Fr, Aug 27, 2004 17:15
Antworten mit Zitat

bei mir geht sie

	WEBLink	Fr, Aug 27, 2004 17:19 Antworten mit Zitat
Die zu downloadente Beispiel Datei http://weblink.art-fx.org/6.png gibt es aber. Irgendiwe muss das doch gehn.

WEBLink

Fr, Aug 27, 2004 17:19
Antworten mit Zitat

Die zu downloadente Beispiel Datei

http://weblink.art-fx.org/6.png

gibt es aber. Irgendiwe muss das doch gehn.

	Chester	Fr, Aug 27, 2004 17:28 Antworten mit Zitat
mom ich habs morgen, ich hab hjeute keine lust mehr schreib ich den code hierein

Chester

Fr, Aug 27, 2004 17:28
Antworten mit Zitat

mom ich habs
morgen, ich hab hjeute keine lust mehr schreib ich den code hierein

	Vertex	Fr, Aug 27, 2004 17:50 Antworten mit Zitat
och leute sucht doch erstmal im forum nach, bevor ihr soetwas hier postet. zumal es port 80 und nicht 21 ist.
vertex.dreamfall.at \| GitHub

Vertex

Fr, Aug 27, 2004 17:50
Antworten mit Zitat

och leute sucht doch erstmal im forum nach, bevor ihr soetwas hier postet. zumal es port 80 und nicht 21 ist.

vertex.dreamfall.at | GitHub

	David	Fr, Aug 27, 2004 17:59 Antworten mit Zitat
Hi! Und bitte ohne "http://" sonst läuft da nix. grüße
http://bl4ckd0g.funpic.de

David

Fr, Aug 27, 2004 17:59
Antworten mit Zitat

Hi!

Und bitte ohne "http://" sonst läuft da nix.

grüße

http://bl4ckd0g.funpic.de

	WEBLink	Fr, Aug 27, 2004 18:02 Antworten mit Zitat
Läuft auch so nicht^^ weisst du wies geht^?

WEBLink

Fr, Aug 27, 2004 18:02
Antworten mit Zitat

Läuft auch so nicht^^ weisst du wies geht^?

	David	Fr, Aug 27, 2004 18:05 Antworten mit Zitat
Hi! Da du die Datei von einem Http Server downloaden willst, wäre es sinnig, sich mit dem HTTP Protokoll auseinander zu setzen. Denn genau über dieses Protokoll musst du deine Datei anfordern und die Bytes, welche du daraufhin vom Server gesendet bekommst, in eine Datei bei dir auf der Platte schreiben. Fertig. Easy oder? grüße
http://bl4ckd0g.funpic.de

David

Fr, Aug 27, 2004 18:05
Antworten mit Zitat

Hi!

Da du die Datei von einem Http Server downloaden willst, wäre es sinnig, sich mit dem HTTP Protokoll auseinander zu setzen.

Denn genau über dieses Protokoll musst du deine Datei anfordern und die Bytes, welche du daraufhin vom Server gesendet bekommst, in eine Datei bei dir auf der Platte schreiben.

Fertig. Easy oder?

grüße

http://bl4ckd0g.funpic.de

	WEBLink	Fr, Aug 27, 2004 18:08 Antworten mit Zitat
Mhh, und welche Befehle muss ich dafür verwenden im Tut find ich nix.

WEBLink

Fr, Aug 27, 2004 18:08
Antworten mit Zitat

Mhh, und welche Befehle muss ich dafür verwenden im Tut find ich nix.

	David	Fr, Aug 27, 2004 18:10 Antworten mit Zitat
Hi! Such dich mal hier durch. grüße
http://bl4ckd0g.funpic.de

David

Fr, Aug 27, 2004 18:10
Antworten mit Zitat

Hi!

Such dich mal hier durch.

grüße

http://bl4ckd0g.funpic.de

	Ballermann99	Fr, Aug 27, 2004 18:23 Antworten mit Zitat
Man könnte natürlich auch bei Blitzbase.de gucken. http://blitzbase.de/befehle2d/opentcpstream.htm Guck dir einfach an, was der HTTP Server zurück schreibt und speicher die Daten in irgendner Datei. MfG Ballermann99

Ballermann99

Fr, Aug 27, 2004 18:23
Antworten mit Zitat

Man könnte natürlich auch bei Blitzbase.de gucken. Wink

http://blitzbase.de/befehle2d/opentcpstream.htm
Guck dir einfach an, was der HTTP Server zurück schreibt und speicher die Daten in irgendner Datei.

MfG Ballermann99

	David	Fr, Aug 27, 2004 19:07 Antworten mit Zitat
Hi! So, ich hab jetzt auchmal was ausprobiert: Code: [AUSKLAPPEN] [EINKLAPPEN] Graphics 640, 480, 32 Const FILE_NAME$ = "http://weblink.art-fx.org/6.jpg" Const DST_FILE$ = "c:\testpic.jpg" LoadWebFile( FILE_NAME, DST_FILE ) WaitKey End Function LoadWebFile( srcFile$, dstFile$ ) Local TCPStream, tmpPos, dataSize, tmpBank Local Host$ = "", HTTPHeader$ = "" If ( Left( srcFile$, 7 ) = "http://" ) srcFile$ = Right( srcFile$, Len( srcFile$ ) - 7 ) tmpPos = Instr( srcFile$, "/" ) If ( tmpPos ) Then Host$ = Left( srcFile$, tmpPos - 1 ) srcFile = Right( srcFile$, Len( srcFile ) - tmpPos + 1 ) Else Host$ = srcFile$ srcFile$ = "/" End If TCPStream = OpenTCPStream( Host$, 80 ) If ( Not TCPStream ) Then RuntimeError( "Fehler beim verbinden zu: " + Host$ ) End If WriteLine( TCPStream, "GET " + srcFile$ + " HTTP/1.1" ) WriteLine( TCPStream, "Host: " + Host$ ) WriteLine( TCPStream, "Accept: /" ) WriteLine( TCPStream, Chr$( 10 ) ) Repeat HTTPHeader$ = ReadLine( TCPStream ) If ( Left( HTTPHeader$, 16 ) = "Content-Length: " ) Then dataSize = Right( HTTPHeader$, Len( HTTPHeader$ ) - 16 ) End If Until HTTPHeader$ = "" Or Eof( TCPStream ) If ( dataSize > 0 ) file = WriteFile( dstFile$ ) tmpBank = CreateBank( 65536 ) If ( Not file ) Then RuntimeError( "Fehler beim erstellen der Downloaddatei" ) End If Repeat s = ReadBytes( tmpBank, TCPStream, 0, 65536 ) WriteBytes( tmpBank, file, 0, s ) Until s <> 65536 CloseFile( file ) CloseTCPStream( TCPStream ) FreeBank( tmpBank ) End If End Function Vielleicht hilfts dir ja weiter... grüße
http://bl4ckd0g.funpic.de

David

Fr, Aug 27, 2004 19:07
Antworten mit Zitat

Hi!

So, ich hab jetzt auchmal was ausprobiert:

Code: [AUSKLAPPEN]

Graphics 640, 480, 32

Const FILE_NAME$ = "http://weblink.art-fx.org/6.jpg"
Const DST_FILE$ = "c:\testpic.jpg"

LoadWebFile( FILE_NAME, DST_FILE )

WaitKey
End

Function LoadWebFile( srcFile$, dstFile$ )
Local TCPStream, tmpPos, dataSize, tmpBank
Local Host$ = "", HTTPHeader$ = ""

If ( Left( srcFile$, 7 ) = "http://" ) srcFile$ = Right( srcFile$, Len( srcFile$ ) - 7 )

tmpPos = Instr( srcFile$, "/" )

If ( tmpPos ) Then
   Host$ = Left( srcFile$, tmpPos - 1 )
   srcFile = Right( srcFile$, Len( srcFile ) - tmpPos + 1 )
Else
   Host$ = srcFile$
   srcFile$ = "/"
End If

TCPStream = OpenTCPStream( Host$, 80 )

If ( Not TCPStream ) Then
   RuntimeError( "Fehler beim verbinden zu: " + Host$ )
End If

WriteLine( TCPStream, "GET " + srcFile$ + " HTTP/1.1" )
WriteLine( TCPStream, "Host: " + Host$ )
WriteLine( TCPStream, "Accept: */*" )
WriteLine( TCPStream, Chr$( 10 ) )

Repeat
   HTTPHeader$ = ReadLine( TCPStream )

   If ( Left( HTTPHeader$, 16 ) = "Content-Length: " ) Then
      dataSize = Right( HTTPHeader$, Len( HTTPHeader$ ) - 16 )
   End If
Until HTTPHeader$ = "" Or Eof( TCPStream )

If ( dataSize > 0 )
   file = WriteFile( dstFile$ )
   tmpBank = CreateBank( 65536 )

   If ( Not file ) Then
      RuntimeError( "Fehler beim erstellen der Downloaddatei" )
   End If

   Repeat
      s = ReadBytes( tmpBank, TCPStream, 0, 65536 )
      WriteBytes( tmpBank, file, 0, s )
   Until s <> 65536

   CloseFile( file )
   CloseTCPStream( TCPStream )
   FreeBank( tmpBank )
End If
End Function

Vielleicht hilfts dir ja weiter...

grüße

http://bl4ckd0g.funpic.de

Zuletzt bearbeitet von David am Fr, Aug 27, 2004 22:31, insgesamt einmal bearbeitet

	joachim_neu	Fr, Aug 27, 2004 21:23 Antworten mit Zitat
und welchen befehl braucht man zum uploaden?
http://www.joachim-neu.de \| http://www.orbitalpirates.de \| http://www.middleageworld.de

joachim_neu

Fr, Aug 27, 2004 21:23
Antworten mit Zitat

und welchen befehl braucht man zum uploaden?

http://www.joachim-neu.de | http://www.orbitalpirates.de | http://www.middleageworld.de

Gehe zu Seite 1, 2 Weiter

Übersicht

BlitzBasic

Allgemein

Nach Oben

BlitzBasic Portal

Automatisches download von Files

Betreff: Automatisches download von Files