Dateidownload ohne Abfrage

Übersicht

BlitzBasic

BlitzPlus

	hoohead Betreff: Dateidownload ohne Abfrage	Do, Nov 15, 2007 3:19 Antworten mit Zitat
Habe gerade ein wenig mit den Befehlen experimentiert (schade, dass es keine Bücher für Blitz zum kaufen gibt), da habe ich folgende Befehle erfolgreich miteinander kombiniert: CopyFile (ExecFile ("http://www.meinewebseite.de/file.zip")), "c:\file.zip" Jetzt würde mich interessieren, ob man das nicht so lösen kann, dass kein Bestätigungsfenster (OK) aufgeht.

hoohead

Betreff: Dateidownload ohne Abfrage

Do, Nov 15, 2007 3:19
Antworten mit Zitat

Habe gerade ein wenig mit den Befehlen experimentiert (schade, dass es keine Bücher für Blitz zum kaufen gibt), da habe ich folgende Befehle erfolgreich miteinander kombiniert:

CopyFile (ExecFile ("http://www.meinewebseite.de/file.zip")), "c:\file.zip"

Jetzt würde mich interessieren, ob man das nicht so lösen kann, dass kein Bestätigungsfenster (OK) aufgeht.

	Silver_Knee	Do, Nov 15, 2007 17:28 Antworten mit Zitat
lad es direkt über BB runter. soll heißen TCP verbindung öffnen, http ne GET abfrage schicken, daten empfangen, in ne datei reinschreiben. Gab mal was im Code archiv dazu ich kuk mal >Link folgt

Silver_Knee

Do, Nov 15, 2007 17:28
Antworten mit Zitat

lad es direkt über BB runter. soll heißen TCP verbindung öffnen, http ne GET abfrage schicken, daten empfangen, in ne datei reinschreiben.
Gab mal was im Code archiv dazu ich kuk mal
>Link folgt

	Smily	Do, Nov 15, 2007 17:36 Antworten mit Zitat
1 = Download erfolgreich, 0 = Fehler: Man könnte es noch so machen, dass host und url vom Programm selbst zerlegt werden. dazu habe ich aber gerade keine lust ^^ Code: [AUSKLAPPEN] [EINKLAPPEN] Notify downloadfile("www.blitzforum.de", "/header/header.png", "C:\header.png") Function downloadfile(host$, url$, 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

Do, Nov 15, 2007 17:36
Antworten mit Zitat

1 = Download erfolgreich, 0 = Fehler:

Man könnte es noch so machen, dass host und url vom Programm selbst zerlegt werden. dazu habe ich aber gerade keine lust ^^
Code: [AUSKLAPPEN]

Notify downloadfile("www.blitzforum.de", "/header/header.png", "C:\header.png")

Function downloadfile(host$, url$, 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

	Silver_Knee	Do, Nov 15, 2007 17:41 Antworten mit Zitat
Genau das din hab ich gemeint^^

Silver_Knee

Do, Nov 15, 2007 17:41
Antworten mit Zitat

Genau das din hab ich gemeint^^

	hoohead	Do, Nov 15, 2007 23:25 Antworten mit Zitat
Genau so was habe ich gesucht Smily0412, Danke. Kann man noch die Meldung am Schluss unterdrücken, dass nicht jedesmal ein Fentser aufgeht?

hoohead

Do, Nov 15, 2007 23:25
Antworten mit Zitat

Genau so was habe ich gesucht Smily0412, Danke.
Kann man noch die Meldung am Schluss unterdrücken, dass nicht jedesmal ein Fentser aufgeht?

	Eingeproggt	Do, Nov 15, 2007 23:33 Antworten mit Zitat
Einfach "Notify" weg
Gewinner des BCC 18, 33 und 65 sowie MiniBCC 9

Eingeproggt

Do, Nov 15, 2007 23:33
Antworten mit Zitat

Einfach "Notify" weg Smile

Gewinner des BCC 18, 33 und 65 sowie MiniBCC 9

	hoohead	Fr, Nov 16, 2007 0:13 Antworten mit Zitat
Edit: Super geht, Vielen Dank

hoohead

Fr, Nov 16, 2007 0:13
Antworten mit Zitat

Edit: Super geht, Vielen Dank

Zuletzt bearbeitet von hoohead am Fr, Nov 16, 2007 0:16, insgesamt einmal bearbeitet

	Shogo	Fr, Nov 16, 2007 0:15 Antworten mit Zitat
Nur das ql:Notify weg lassen nicht das was dahinter steht.

Shogo

Fr, Nov 16, 2007 0:15
Antworten mit Zitat

Nur das ql:Notify weg lassen nicht das was dahinter steht.

	Samq	Sa, Dez 01, 2007 19:00 Antworten mit Zitat
bei mir Downloadet er zwar die angegebene Datei sobald ich jedoch eine andere Domain reinsetze läd er einen Text in die datei Befehl zurückgewiesen bzw unbekannt an was kann das liegen? Zitat: Bad Request Your browser sent a request that this server could not understand. Client sent malformed Host header

Samq

Sa, Dez 01, 2007 19:00
Antworten mit Zitat

bei mir Downloadet er zwar die angegebene Datei sobald ich jedoch eine andere Domain reinsetze
läd er einen Text in die datei Befehl zurückgewiesen bzw unbekannt

an was kann das liegen?

Zitat:

Bad Request
Your browser sent a request that this server could not understand.

Client sent malformed Host header

	Silver_Knee	So, Dez 02, 2007 0:06 Antworten mit Zitat
hast du ihm auch bei der zeile Code: [AUSKLAPPEN] [EINKLAPPEN] HOST: www.domain.de die andere domain reingesetzt?

Silver_Knee

So, Dez 02, 2007 0:06
Antworten mit Zitat

hast du ihm auch bei der zeile
Code: [AUSKLAPPEN]

HOST: www.domain.de

die andere domain reingesetzt?

	Samq	So, Dez 02, 2007 1:18 Antworten mit Zitat
<!DOCTYPE HTML PUBLIC "-//IETF//DTD HTML 2.0//EN"> <HTML><HEAD> <TITLE>400 Bad Request</TITLE> </HEAD><BODY> <H1>Bad Request</H1> Your browser sent a request that this server could not understand.<P> Client sent malformed Host header<P> <HR> <ADDRESS>Apache/1.3.37 Server at http://chatbp.phone.hl-users.com Port 80</ADDRESS> </BODY></HTML> Der Fehler kommt.. auch wenn ich Host ändere^^ Hiernochmal der Code Code: [AUSKLAPPEN] [EINKLAPPEN] Notify downloadfile("http://chatbp.phone.hl-users.com", "/logo_245x62.gif", "C:\header.gif") Function downloadfile(host$, url$, 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

Samq

So, Dez 02, 2007 1:18
Antworten mit Zitat

<!DOCTYPE HTML PUBLIC "-//IETF//DTD HTML 2.0//EN">
<HTML><HEAD>
<TITLE>400 Bad Request</TITLE>
</HEAD><BODY>
<H1>Bad Request</H1>
Your browser sent a request that this server could not understand.<P>
Client sent malformed Host header<P>
<HR>
<ADDRESS>Apache/1.3.37 Server at http://chatbp.phone.hl-users.com Port 80</ADDRESS>
</BODY></HTML>

Der Fehler kommt.. auch wenn ich Host ändere^^

Hiernochmal der Code

Code: [AUSKLAPPEN]

Notify downloadfile("http://chatbp.phone.hl-users.com", "/logo_245x62.gif", "C:\header.gif")

Function downloadfile(host$, url$, 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

	Samq	Di, Dez 11, 2007 13:47 Antworten mit Zitat
hihi hab Fehler gefunden^^ bei der adresse darf natürlich kein http davor sondern nur www.

Samq

Di, Dez 11, 2007 13:47
Antworten mit Zitat

*hihi* hab Fehler gefunden^^ bei der adresse darf natürlich kein http davor sondern nur www.

Übersicht

BlitzBasic

BlitzPlus

Nach Oben

BlitzBasic Portal

Dateidownload ohne Abfrage

Betreff: Dateidownload ohne Abfrage