Dateien aus dem Internet Laden

BBZeitung
Verfügbare Informationen zu "Dateien aus dem Internet Laden"

  • Qualität des Beitrags: 0 Sterne
  • Beteiligte Poster: Mathias
  • Forum: BBZeitung
  • aus dem Unterforum: Bereich: Codes
  • Antworten: 1
  • Forum gestartet am: Montag 11.12.2006
  • Sprache: deutsch
  • Link zum Originaltopic: Dateien aus dem Internet Laden
  • Letzte Antwort: vor 17 Jahren, 4 Monaten, 21 Tagen, 11 Stunden, 35 Minuten
  • Alle Beiträge und Antworten zu "Dateien aus dem Internet Laden"

    Re: Dateien aus dem Internet Laden

    Mathias - 14.12.2006, 22:17

    Dateien aus dem Internet Laden
    hier ein kleines netzwerk beispiel einfach eine datei vom server laden!

    zuerst mal die funktion die in jedem bb prog mit download funktion sein soll vorhanden sein muss!


    Code:
    Function Download(Inputfile$,outputfile$, Port%=80)


    Print Inputfile$
    Print "Downloadvorgang startet."

     Local host$
     Local host_tmp
     Local stream
     Local file

    ;------------------------------- Den Host aus InputFile$ rausfiltern
     host$=Right(inputfile$,Len(inputfile$)-7) ; http:// rausschneiden
     host_tmp=Instr(host$,"/")-1               ; Das erste Slash im String suchen und 1 abziehen
     host$=Left(host$,host_tmp)                ; Den Text bis zu dem ersten Slash-1 k?rzen
     ;------------------------------ TCPStream zum Host ?ffnen
     stream = OpenTCPStream(host$,Port%)
    ;------------------------------- Datei Anfordern
     WriteLine stream, "GET "+Inputfile$+ " HTTP/1.1"
     WriteLine stream, "Host: "+host$
     WriteLine stream, ""
    ;------------------------------- Datei auf der Festplatte erstellen
     file = WriteFile(outputfile$)
    ;------------------------------- Das Ende des HTTP Headers suchen
     For a=0 To 100
      tmp$=ReadLine(stream)
     
      If Instr(Lower$(tmp), "content-type")>0 Then ReadLine(stream) : Exit
     Next
    ;------------------------------- Datei downloaden
     While Not Eof(stream)
        ettr=ReadByte(stream)
      WriteByte file,ettr
     
       
     Wend
    ;------------------------------- Alles wieder Schlie?en
     CloseFile file
     CloseTCPStream stream
        Print "Download dieser Datei abgeschlossen"
       Print ""
    End Function


    und so ruft man den kladaradatsch auf!

    Code:
    Download("http://deinlink.de/datei.exe", "C:\datei.exe")


    ich hoffe ihr könnt damit etwas anfangen es geht bei EXE BMP TXT und alles weitere !

    Viel Spass , Rückmeldung erwünscht



    Mit folgendem Code, können Sie den Beitrag ganz bequem auf ihrer Homepage verlinken



    Weitere Beiträge aus dem Forum BBZeitung

    Alle 3 Monate - gepostet von Lador am Montag 18.12.2006



    Ähnliche Beiträge wie "Dateien aus dem Internet Laden"

    Internet abbilden - 4dministr4t0r (Montag 25.12.2006)
    wo sitz an der Heckscheibe die Waschdüse - Mutzi (Freitag 03.12.2010)
    Bilder vom PC ins Internet hochladen - Skillox (Dienstag 06.03.2007)
    Mozilla Firefox vs. Internet exprorer - Naidsabes (Donnerstag 21.06.2007)
    Internet kaputt ??? - Larsen (Mittwoch 29.08.2007)
    Internet - Unterhaltung - maybeli (Montag 12.02.2007)
    Internet - Sucht - Floggi (Donnerstag 18.05.2006)
    @Internet/PC Spezialisten - colognefc (Sonntag 12.06.2005)
    Wofür das Internet wirklich ist /ok - Blessi (Mittwoch 05.09.2007)
    Msn runter Laden bzw. adden..... - Meister Yoda (Montag 26.12.2005)