Download urlmon.dll

Übersicht

BlitzBasic

Codearchiv

	Florian Betreff: Download urlmon.dll	Do, Apr 05, 2007 17:55 Antworten mit Zitat
Download.decls Code: [AUSKLAPPEN] [EINKLAPPEN] .lib "urlmon.dll" URLDownloadFile%(pCaller%,szURL$, szFileName$,dwReserved%, lpfnCB%):"URLDownloadToFileA" Code: [AUSKLAPPEN] [EINKLAPPEN] PBMAIN% Function DownloadFile%(URL$, LocalFilename$) Local lngRetVal% lngRetVal = URLDownloadFile(0, URL, LocalFilename, 0, 0) If lngRetVal = 0 Then Return 1 End Function Function PBMAIN%() Graphics 640,480,0,2 HidePointer MoveMouse 640/2,480/2 MouseImage=CreateImage(25,25) MidHandle MouseImage Color 255,255,255 SetBuffer ImageBuffer(MouseImage) Oval 0,0,25,25 SetBuffer BackBuffer() Timer=CreateTimer(32) If DownloadFile("http://www.powerbasic.com/images/powerbasic2.gif", "powerbasic2.gif") = 1 Then Print "Download successful!" movie=OpenMovie("powerbasic2.gif") MovieX=(640-MovieWidth(movie))/2 MovieY=(480-MovieHeight(movie))/2 MovieX2=MovieWidth(movie) MovieY2=MovieHeight(movie) While Not KeyHit(1) If MoviePlaying(movie)=0 Then CloseMovie movie movie=OpenMovie("powerbasic2.gif") End If Cls If ImageRectCollide(MouseImage,MouseX(),MouseY(),0,MovieX,MovieY,movieX2,movieY2) Then Color 255,255,255 Rect movieX-1,movieY-1,movieX2+2,movieY2+2,0 Rect movieX-2,movieY-2,movieX2+4,movieY2+4,0 If MouseHit(1) Then ExecFile ("http://www.powerbasic.com/support/forums/forumdisplay.cgi?action=topics&forum=Source+Code&number=7&DaysPrune=1000&SUBMIT=Go") EndIf EndIf DrawMovie movie,movieX,movieY DrawImage MouseImage,MouseX(),MouseY() WaitTimer Timer Flip Wend CloseMovie movie Else Print "Download failed!" End If End Function

Florian

Betreff: Download urlmon.dll

Do, Apr 05, 2007 17:55
Antworten mit Zitat

Download.decls
Code: [AUSKLAPPEN]

.lib "urlmon.dll"
URLDownloadFile%(pCaller%,szURL$, szFileName$,dwReserved%, lpfnCB%):"URLDownloadToFileA"

Code: [AUSKLAPPEN]

PBMAIN%

Function DownloadFile%(URL$, LocalFilename$)
Local lngRetVal%
lngRetVal = URLDownloadFile(0, URL, LocalFilename, 0, 0)
If lngRetVal = 0 Then Return 1
End Function

Function PBMAIN%()
Graphics 640,480,0,2
HidePointer
MoveMouse 640/2,480/2

MouseImage=CreateImage(25,25)
MidHandle MouseImage
Color 255,255,255
SetBuffer ImageBuffer(MouseImage)
Oval 0,0,25,25

SetBuffer BackBuffer()

Timer=CreateTimer(32)
If DownloadFile("http://www.powerbasic.com/images/powerbasic2.gif", "powerbasic2.gif") = 1 Then
Print "Download successful!"

movie=OpenMovie("powerbasic2.gif")
MovieX=(640-MovieWidth(movie))/2
MovieY=(480-MovieHeight(movie))/2
MovieX2=MovieWidth(movie)
MovieY2=MovieHeight(movie)

While Not KeyHit(1)
If MoviePlaying(movie)=0 Then
CloseMovie movie
movie=OpenMovie("powerbasic2.gif")
End If
Cls

If ImageRectCollide(MouseImage,MouseX(),MouseY(),0,MovieX,MovieY,movieX2,movieY2) Then
Color 255,255,255
Rect movieX-1,movieY-1,movieX2+2,movieY2+2,0
Rect movieX-2,movieY-2,movieX2+4,movieY2+4,0

If MouseHit(1) Then
ExecFile ("http://www.powerbasic.com/support/forums/forumdisplay.cgi?action=topics&forum=Source+Code&number=7&DaysPrune=1000&SUBMIT=Go")
EndIf

EndIf

DrawMovie movie,movieX,movieY
DrawImage MouseImage,MouseX(),MouseY()

WaitTimer Timer
Flip

Wend
CloseMovie movie

Else
Print "Download failed!"
End If

End Function

	StepTiger	Do, Apr 05, 2007 18:14 Antworten mit Zitat
Und warum gleich nochmal im Codearchiv?
Noch gestern standen wir am Abgrund, doch heute sind wir schon einen Schritt weiter. Computer: AMD Sempron 3000+; ATI Radeon 9800 Pro; 512 MB DDR RAM 400Mhz; Asus E7N8X-E Deluxe; Samsung 200GB HD 5.4ns acces t Gewinner: BP Code Compo #2 Π=3.141592653589793238...<--- und das aus dem kopf Seit der Earthlings-Diskussion überzeugter Fleisch(fr)esser.

StepTiger

Do, Apr 05, 2007 18:14
Antworten mit Zitat

Und warum gleich nochmal im Codearchiv?

Noch gestern standen wir am Abgrund, doch heute sind wir schon einen Schritt weiter.
Computer:
AMD Sempron 3000+; ATI Radeon 9800 Pro; 512 MB DDR RAM 400Mhz; Asus E7N8X-E Deluxe; Samsung 200GB HD 5.4ns acces t
Gewinner: BP Code Compo #2
Π=3.141592653589793238...<--- und das aus dem kopf Laughing

Seit der Earthlings-Diskussion überzeugter Fleisch(fr)esser.

	Eingeproggt	Do, Apr 05, 2007 19:32 Antworten mit Zitat
Die Decls schickt der Himmel. Danke!
Gewinner des BCC 18, 33 und 65 sowie MiniBCC 9

Eingeproggt

Do, Apr 05, 2007 19:32
Antworten mit Zitat

Die Decls schickt der Himmel.

Danke!

Gewinner des BCC 18, 33 und 65 sowie MiniBCC 9

	Smily	Fr, Apr 06, 2007 19:46 Antworten mit Zitat
Ist eigentlich unnötig. Man kann sich auch ohne hilfe von Userlibs eine Datei in BB herunterlanden. Mfg, Smily0412
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

Fr, Apr 06, 2007 19:46
Antworten mit Zitat

Ist eigentlich unnötig.
Man kann sich auch ohne hilfe von Userlibs eine Datei in BB herunterlanden.

Mfg, Smily0412

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

	Apprauuuu	Sa, Mai 19, 2007 13:26 Antworten mit Zitat
Smily0412 hat Folgendes geschrieben: Ist eigentlich unnötig. Man kann sich auch ohne hilfe von Userlibs eine Datei in BB herunterlanden. Mfg, Smily0412 Wie denn?? Kenne nur die Methode,dass ein Serverprogramm einem die Datei Byte für Byte schickt aber ich denke nicht,dass das der Sinn der Sache ist...
Arbeitsstand: Umprogrammierung von LOL³Warriors und LOL³Fighters in Bmax... LOL³Fighters wird spielerisch noch mal ordentlich aufpoliert, um es Ligatauglich zu machen (zumindest für private Funligen von mir ^^)

Apprauuuu

Sa, Mai 19, 2007 13:26
Antworten mit Zitat

Smily0412 hat Folgendes geschrieben:

Ist eigentlich unnötig.
Man kann sich auch ohne hilfe von Userlibs eine Datei in BB herunterlanden.

Mfg, Smily0412

Wie denn??
Kenne nur die Methode,dass ein Serverprogramm einem die Datei Byte für Byte schickt aber ich denke nicht,dass das der Sinn der Sache ist...

Arbeitsstand:
Umprogrammierung von LOL³Warriors und LOL³Fighters in Bmax...
LOL³Fighters wird spielerisch noch mal ordentlich aufpoliert, um es Ligatauglich zu machen (zumindest für private Funligen von mir ^^)

	lettorTrepuS	So, Mai 20, 2007 18:57 Antworten mit Zitat
-aus Sicherheitsgründen gelöscht- Diese Information ist mit Ihrer Sicherheitsfreigabe leider nicht erhältlich, Bürger.

lettorTrepuS

So, Mai 20, 2007 18:57
Antworten mit Zitat

-aus Sicherheitsgründen gelöscht- Diese Information ist mit Ihrer Sicherheitsfreigabe leider nicht erhältlich, Bürger.

	Florian	Mo, Mai 21, 2007 17:38 Antworten mit Zitat
ShadowTurtle hat Folgendes geschrieben: Entweder ist Florian einer dieser Entwickler oder er macht sich gerade etwas Strafbar (by the way: dieses Forum ebenfalls wegen dem Download). Für Private zwecke kann Florian seine DLL gerne verwenden, aber bei Weitergabe der DLL sollte er diese Funktion am besten durch seine eigene ersetzt haben. Die DLL "urlmon.dll" gehört zu Windows. Daher liegt das Urheberrecht bei Microsoft. Die illegal weiter gabe der DLL "urlmon.dll" ist verboten. Die Nutzung der DLL ist nicht verboten. ShadowTurtle hat Folgendes geschrieben: Warum leiht uns Florian diese DLL nur aus? Das tut er sicherlich nicht Bewusst, aber die Benutzer dieser DLL können diese eben nur für Private zwecken benutzen. Ich werde jetzt mal etwas direkter: Er hat eine PowerBasic Funktion in eine DLL verfrachtet und gibt diese als sein Werk aus. Ich habe keine PowerBasic Funktion in eine Dll verfrachtet. Die DLL kann Privat und Kommenziell genutzt werden.

Florian

Mo, Mai 21, 2007 17:38
Antworten mit Zitat

ShadowTurtle hat Folgendes geschrieben:

Entweder ist Florian einer dieser Entwickler oder er macht sich gerade etwas Strafbar (by the way: dieses Forum ebenfalls wegen dem Download). Für Private zwecke kann Florian seine DLL gerne verwenden, aber bei Weitergabe der DLL sollte er diese Funktion am besten durch seine eigene ersetzt haben.

Die DLL "urlmon.dll" gehört zu Windows. Daher liegt das Urheberrecht bei Microsoft. Die illegal weiter gabe der DLL "urlmon.dll" ist verboten. Die Nutzung der DLL ist nicht verboten.

ShadowTurtle hat Folgendes geschrieben:

Warum leiht uns Florian diese DLL nur aus? Das tut er sicherlich nicht Bewusst, aber die Benutzer dieser DLL können diese eben nur für Private zwecken benutzen. Ich werde jetzt mal etwas direkter: Er hat eine PowerBasic Funktion in eine DLL verfrachtet und gibt diese als sein Werk aus.

Ich habe keine PowerBasic Funktion in eine Dll verfrachtet.
Die DLL kann Privat und Kommenziell genutzt werden.

	#Reaper Newsposter	Mo, Mai 21, 2007 17:58 Antworten mit Zitat
Also, entweder bin ich blind, oder es ist einfach so. Er hat uns doch garkeine DLL gegeben bzw. zum download freigestellt. Lediglich hat er eine .decls Datei gepostet? Ich sehe darin nun kein Problem... Ist nun aber auch OffTopic. Und das mit der Schleichwerbung ist nun wohl ne andere Sache.. Schäm dich Florian
AMD Athlon 64 3500+, ATI AX800 Pro/TD, 2048 MB DRR 400 von Infineon, ♥RIP♥ (2005 - Juli 2015 -> sic!) Blitz3D, BlitzMax, MaxGUI, Monkey X; Win7

#Reaper

Newsposter

Mo, Mai 21, 2007 17:58
Antworten mit Zitat

Also, entweder bin ich blind, oder es ist einfach so.
Er hat uns doch garkeine DLL gegeben bzw. zum download freigestellt. Lediglich hat er eine .decls Datei gepostet?
Ich sehe darin nun kein Problem...
Ist nun aber auch OffTopic.

Und das mit der Schleichwerbung ist nun wohl ne andere Sache.. Wink

Schäm dich Florian Razz

AMD Athlon 64 3500+, ATI AX800 Pro/TD, 2048 MB DRR 400 von Infineon, ♥RIP♥ (2005 - Juli 2015 -> sic!)
Blitz3D, BlitzMax, MaxGUI, Monkey X; Win7

	BladeRunner Moderator	Mo, Mai 21, 2007 19:02 Antworten mit Zitat
Tja, Sherlock, das ging wohl daneben.
Zu Diensten, Bürger. Intel T2300, 2.5GB DDR 533, Mobility Radeon X1600 Win XP Home SP3 Intel T8400, 4GB DDR3, Nvidia GF9700M GTS Win 7/64 B3D BMax MaxGUI Stolzer Gewinner des BAC#48, #52 & #92

BladeRunner

Moderator

Mo, Mai 21, 2007 19:02
Antworten mit Zitat

Tja, Sherlock, das ging wohl daneben.
Rolling Eyes

Zu Diensten, Bürger.
Intel T2300, 2.5GB DDR 533, Mobility Radeon X1600 Win XP Home SP3
Intel T8400, 4GB DDR3, Nvidia GF9700M GTS Win 7/64
B3D BMax MaxGUI
Stolzer Gewinner des BAC#48, #52 & #92

	Smily	Mo, Mai 21, 2007 21:26 Antworten mit Zitat
Apprauuuu hat Folgendes geschrieben: Wie denn?? Kenne nur die Methode,dass ein Serverprogramm einem die Datei Byte für Byte schickt aber ich denke nicht,dass das der Sinn der Sache ist... tadaaaa. Wenn möglich liest das prog den Stream als Bank. Wenn nicht byteweise: Code: [AUSKLAPPEN] [EINKLAPPEN] Notify downloadfile("/header/header.png", "www.blitzforum.de", "C:\header.png") 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

Mo, Mai 21, 2007 21:26
Antworten mit Zitat

Apprauuuu hat Folgendes geschrieben:

Wie denn??
Kenne nur die Methode,dass ein Serverprogramm einem die Datei Byte für Byte schickt aber ich denke nicht,dass das der Sinn der Sache ist...

tadaaaa.
Wenn möglich liest das prog den Stream als Bank. Wenn nicht byteweise:

Code: [AUSKLAPPEN]

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

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

Übersicht

BlitzBasic

Codearchiv

Nach Oben

BlitzBasic Portal

Download urlmon.dll

Betreff: Download urlmon.dll