Verknüpfung downloaden

Übersicht

BlitzBasic

Beginners-Corner

	PinguinMrZ Betreff: Verknüpfung downloaden	So, Sep 07, 2008 18:28 Antworten mit Zitat
HI, bin vor ein paar Tagen auf dieser Seite hier gelandet, bis jetzt konnte ich alle meine Fragen mit der SuFu und der Hilfe beantworten doch nun hab ich ein Problem. Ich habe verschiedene Dateien hochgeladen und dann versucht diese herunterzuladen. Dies klappt auch bei allen Dateien. Nur bei den .lnk Dateien gibt es ein Problem. Wenn diese herunter geladen wurden sind sie quasi leer. In ihnen ist weder die Zieladdresse noch das Icon gespeichert. Lad ich die Datei aber normal mit Firefox herunter sind diese Daten noch enthalten, am Upload liegt es also nicht. Und meine Frage ist nun halt wie das mit BB geht das eben diese Informationen gespeichert bleiben in der Verknüpfung? Ich benutze diese Funktion, die ich ebenfalls hier im Forum gefunden habe, zum downloaden der Datei: Code: [AUSKLAPPEN] [EINKLAPPEN] Function download(url$,host$,name$) fileout = WriteFile(name$) tcp = OpenTCPStream(host$,80) WriteLine tcp, "GET "+url$+" HTTP/1.0" WriteLine tcp, Chr$(10) Repeat Until ReadLine(tcp) = "" Repeat WriteByte fileout, ReadByte(tcp) Until Eof(tcp) CloseTCPStream tcp CloseFile fileout End Function

PinguinMrZ

Betreff: Verknüpfung downloaden

So, Sep 07, 2008 18:28
Antworten mit Zitat

HI,
bin vor ein paar Tagen auf dieser Seite hier gelandet, bis jetzt konnte ich alle meine Fragen mit der SuFu und der Hilfe beantworten doch nun hab ich ein Problem.

Ich habe verschiedene Dateien hochgeladen und dann versucht diese herunterzuladen.
Dies klappt auch bei allen Dateien. Nur bei den .lnk Dateien gibt es ein Problem.
Wenn diese herunter geladen wurden sind sie quasi leer. In ihnen ist weder die Zieladdresse noch das Icon gespeichert.
Lad ich die Datei aber normal mit Firefox herunter sind diese Daten noch enthalten, am Upload liegt es also nicht. Und meine Frage ist nun halt wie das mit BB geht das eben diese Informationen gespeichert bleiben in der Verknüpfung?

Ich benutze diese Funktion, die ich ebenfalls hier im Forum gefunden habe, zum downloaden der Datei:

Code: [AUSKLAPPEN]

Function download(url$,host$,name$)
fileout = WriteFile(name$)
tcp = OpenTCPStream(host$,80)
WriteLine tcp, "GET "+url$+" HTTP/1.0"
WriteLine tcp, Chr$(10)
Repeat
Until ReadLine(tcp) = ""
Repeat
WriteByte fileout, ReadByte(tcp)
Until Eof(tcp)
CloseTCPStream tcp
CloseFile fileout
End Function

	Smily	So, Sep 07, 2008 20:07 Antworten mit Zitat
Schreib mal den Link der Datei, die du herunterladen möchtest, sonst lässt sich dein Problem unmöglich nachvollziehen. ciao, Smily0412 (btw: Die download-Funktion, die du verwendest ist schon etwas älter. Die folgende ist etwas praktischer und meistens auch schneller.) Code: [AUSKLAPPEN] [EINKLAPPEN] Function downloadfile(url$, host$, ziel$) tcp = OpenTCPStream(host$,80) If Not tcp Return 0 WriteLine tcp, "GET " + url$ + " HTTP/1.0" WriteLine tcp, "host: " + host WriteLine tcp, "" Repeat z$ = ReadLine(tcp) If Left(z$,16) = "Content-Length: " size = Mid$(z$,17) Until ReadLine(tcp) = "" Or Eof(tcp) If Eof(tcp) Return 0 Fileout = WriteFile(ziel$) If Not size Repeat WriteByte fileout, ReadByte(tcp) Until Eof(tcp) Else bank = CreateBank(size) ReadBytes bank, tcp, 0, size WriteBytes bank, fileout, 0, size FreeBank bank End if CloseFile fileout CloseTCPStream tcp Return 1 End function
Lesestoff: gegen Softwarepatente \| Netzzensur \| brain.exe \| Unabhängigkeitserklärung des Internets "Wir müssen die Rechte der Andersdenkenden selbst dann beachten, wenn sie Idioten oder schädlich sind. Wir müssen aufpassen. Wachsamkeit ist der Preis der Freiheit --- Keine Zensur!" stummi.org

Smily

So, Sep 07, 2008 20:07
Antworten mit Zitat

Schreib mal den Link der Datei, die du herunterladen möchtest, sonst lässt sich dein Problem unmöglich nachvollziehen.

ciao,
Smily0412

(btw: Die download-Funktion, die du verwendest ist schon etwas älter. Die folgende ist etwas praktischer und meistens auch schneller.)
Code: [AUSKLAPPEN]

Function downloadfile(url$, host$, ziel$)
tcp = OpenTCPStream(host$,80)
If Not tcp Return 0
WriteLine tcp, "GET " + url$ + " HTTP/1.0"
WriteLine tcp, "host: " + host
WriteLine tcp, ""
Repeat
z$ = ReadLine(tcp)
If Left(z$,16) = "Content-Length: " size = Mid$(z$,17)
Until ReadLine(tcp) = "" Or Eof(tcp)
If Eof(tcp) Return 0
Fileout = WriteFile(ziel$)
If Not size
Repeat
WriteByte fileout, ReadByte(tcp)
Until Eof(tcp)
Else
bank = CreateBank(size)
ReadBytes bank, tcp, 0, size
WriteBytes bank, fileout, 0, size
FreeBank bank
End if
CloseFile fileout
CloseTCPStream tcp
Return 1
End function

Lesestoff:
gegen Softwarepatente | Netzzensur | brain.exe | Unabhängigkeitserklärung des Internets

"Wir müssen die Rechte der Andersdenkenden selbst dann beachten, wenn sie Idioten oder schädlich sind. Wir müssen aufpassen. Wachsamkeit ist der Preis der Freiheit --- Keine Zensur!"
stummi.org

	PinguinMrZ	So, Sep 07, 2008 20:27 Antworten mit Zitat
ersteinmal danke für den neuen code , der ist echt viel schneller xD hier eine beispiel datei "http://pinguinmrz.pi.funpic.de/ICQ6.lnk" EDIT: So sieht die verknüpfung normal aus. So nach dem download druch bb. EDit2: habe das Problem zwar nicht lösen können, habe aber einen umweg gefunden. ich erstelle die Verknüpfungen einfach neu..... Naja danke für die sehr umfangreichen Antworten xD

PinguinMrZ

So, Sep 07, 2008 20:27
Antworten mit Zitat

ersteinmal danke für den neuen code , der ist echt viel schneller xD

hier eine beispiel datei "http://pinguinmrz.pi.funpic.de/ICQ6.lnk"

EDIT:

So sieht die verknüpfung normal aus.

user posted image

So nach dem download druch bb.

user posted image

EDit2:

habe das Problem zwar nicht lösen können, habe aber einen umweg gefunden.
ich erstelle die Verknüpfungen einfach neu.....
Naja danke für die sehr umfangreichen Antworten xD

Übersicht

BlitzBasic

Beginners-Corner

Nach Oben

BlitzBasic Portal

Verknüpfung downloaden

PinguinMrZ

Betreff: Verknüpfung downloaden

Smily

PinguinMrZ