Download

Übersicht BlitzBasic Allgemein

Neue Antwort erstellen

 

Medabots1992

Betreff: Download

BeitragDi, Sep 06, 2005 13:56
Antworten mit Zitat
Benutzer-Profile anzeigen
Wie kann ich von nem Webspace daten downloaden.
Weil ich will in meine Games eine update funktion rein machen um damit nicht immer die ganzen daten hochladen sondern es soll nur neues hochgeladen werden.
 

Klaas

BeitragDi, Sep 06, 2005 14:00
Antworten mit Zitat
Benutzer-Profile anzeigen
Dieses Buch kaufen:
http://www.amazon.de/exec/obid...42-7392040

kurz durchlesen und alles ist sonnenklar

Wenn du gut Englischkannst steht auch alles dazu hier:
http://www.faqs.org/rfcs/rfc2616.html
 

Medabots1992

BeitragDi, Sep 06, 2005 14:08
Antworten mit Zitat
Benutzer-Profile anzeigen
geht auch schlecht Wink
ne ich darf und will und kann nicht bei amazon bestellen.
1. darf ich net 2. will ich net 3. hab nicht genug geld
Das reicht. Kann das nicht jemadn so sagen.
Weil writestring in ner datei da speichert er es zu falsch. Sad
 

Klaas

BeitragDi, Sep 06, 2005 14:14
Antworten mit Zitat
Benutzer-Profile anzeigen
das Buch gibt es auch einfach im Buchladen ... 5€ sollten irgendwie aufzutreiben sein!

Leider ist das was du vorhast eben nicht mit einem einzigen Befehl getan!
 

Florian

BeitragDi, Sep 06, 2005 14:16
Antworten mit Zitat
Benutzer-Profile anzeigen
BlitzBasic: [AUSKLAPPEN]

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

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( Buffer )

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

bytesReaded = 0

Repeat
bytesRemaind = dataSize - bytesReaded

If ( bytesRemaind < BUFFER_SIZE ) Then
Buffer = bytesRemaind
End If

s = ReadBytes( tmpBank, TCPStream, 0, Buffer )
WriteBytes( tmpBank, file, 0, s )

bytesReaded = bytesReaded + s
Until s <> BUFFER_SIZE

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

klin

BeitragMi, Feb 07, 2007 21:35
Antworten mit Zitat
Benutzer-Profile anzeigen
leider funktioniert das irgendwie nicht. er geht dann an und dann wieder aus Sad. kann mir da bitte jemand Helfen?
THX
MFG
Klin
 

Dreamora

BeitragMi, Feb 07, 2007 21:57
Antworten mit Zitat
Benutzer-Profile anzeigen
Hast du die daten entsprechend auf dem webserver und die file angepasst?
Sonst ist klar das da nix funktioniert.
Ihr findet die aktuellen Projekte unter Gayasoft und könnt mich unter @gayasoft auf Twitter erreichen.
 

X0r

BeitragDo, Feb 08, 2007 17:07
Antworten mit Zitat
Benutzer-Profile anzeigen
Kannst es auch ganz einfach über die WinAPI machen:
URLDownloadToFile.. www.msdn.com

Neue Antwort erstellen


Übersicht BlitzBasic Allgemein

Gehe zu:

Powered by phpBB © 2001 - 2006, phpBB Group