---

hey all! i've been working latly on 2 plugins:
Goga's URL Downloader:
- allows you to download files from any http via darkbasic pro WITHOUGHT FREEZING up the game-play!
- you also can see the file size, download speed, how much you downloade (in bytes) and download procentage.

the Goga's HTTP Server:
- this plugin will open an http server on your local pc! so people will be able to enter any of your home-made websites by inputing the ip of yours (E.g http://127.0.0.1)
- with this plugin you will be able to control any sending/resiving data from your pc to the user!

if you still didnt understood whats http server, here is a simple example:
do you know the website http://darkbasicpro.com ? imagine that people will enter to your own website hosted by your own computer!


both of the plugins you can find here:
http://goge.byethost13.com/viewtopic.php?f=5&t=2


by the way! the plugins are not free but once ill releace the next version, or ill release an update of any of my plugins, just email me that you want the update. attach the payment of the old plugin version info and the plugin will be sent you for free in 24 hours!

---

This seems pretty neat. I don't completely understand your command list though..it's a little bit too brief in some spots..

also, does this support MIME types? or http headers?(like you being able to send them yourself?)

---

Yea, the command list gives me a pretty good idea of how it works, but it would be nice if we could see some source code, even if only the code for that simple .exe demo or something.

---

here is the demo code of the http server plugin:

+ Code Snippet

Rem Project: Demo Source
Rem Created: 5/17/2007 10:18:13 PM

Rem ***** Main Source File *****

`Creates the server
sync rate 40
ok = GHS CreateServer()
if ok = 0
   print "was unable to create the http server."
   wait key
   end
endif
global LastPath as String

`Setting connectiosn to 10 MAXIMUM
GHS SetMaximumConnections 10
`Starting the server, setting local path and setting main page of the server.
GHS StartServer
GHS SetLocalPath "html"
`using that "GHS StartAutoServ" command, the user will use the html files that in your LOCAL path.
`using "GHS "StopAutoServ" command, u will be able to control all the data that sent to the user!
GHS StartAutoServ
set dir "html"
perform checklist for files
for a=1 to checklist quantity()
if left$(Checklist string$(a ),len("index")) = "index" then GHS SetMainPage Checklist String$(a)
next a

set dir "..\"
do
cls
print "FPS: "+str$(Screen fps())
print "Server is online."
print "enter to http://127.0.0.1/ to check-it-out!"
print "press SPACE to stop the server."

`Reading HTTP Msg

`Press SPACE to STOP the server.
if spacekey()=1 and a = 0
GHS StopServer
a = 1
endif
if a = 1 and spacekey()=0 then a = 0

loop
GHS StopServer

its really simple.
btw, maybe the http server wont be able to read php or asp. but with power of DBP over http server, you will be able to make it even metter than any php

---

Sergey,remember that some people are able to rip out plugins from .exe's,and there are allways a few unfair persons on the forums.So its not the best idea to post up a command list.

---

dont ennoy me with the securety of my plugins.. thanks.

---

Alright,was just telling you a little fact ,however...As a software/plugin creator you should know that already.

---

here is another http server feature:

lets say u typing at the addressbar something like this:
http://127.0.0.1/Hello World
then in dbp, u can do:
if AddressBar()="Hello World" then <Send Image/Text/IP/Get Time$()> or any other dbp commands!

---

Sounds great! I've bookmarked this thread for later, don't have time to check this out right now.

What will the price be?

---

the price is 5$ wich is really small price..

---

Yeah, thats not much. I can't see why you shouldn't charge at least $10 for both of them, that would still be a low price.

---

meh...there is a very big gap between free and low price..

most kids don't have a credit card to buy anything, so they wouldn't be able to buy it...

probably from $5-$20 (usd) wouldn't matter much for price, aside from that gap with free..

---

works good nice plugin

---

wich one you mean? the the downloader or the http server?
i mean, i know that both works good, but wich one you meant this time?

---

well there are no bugs so far at those plugins.. mods, could you please move it to "Program Announcements" thread?

[edit] nvm.

---

Ooooh.
How do you make the computer turn into a server? Just asking in a step-by-step, how does it work?
Thanks in advance,
Eevil Weevil

---

well, its kinda hard to learn all of those stuff if you dont know neither of those languages (CPP, Pascal, etc.)

---

Passing in the IP as a variable to GUD DownloadFile doesn't seem to work, but it works when entering the IP directly. Have you had any problems with this?

EDIT - I moved the GUD download out of the function was in and ran it as a subroutine instead and that fixed the problem. Not the slightest clue why.

---

no, i had no problems with the downloader till now..

could u give me the code that not works? ill try to fix that

---

This does not work

+ Code Snippet

REM Setup

server()

download("127.0.0.1")


REM Main

do

if last$ <> GHS NewMsgText()
last$ = GHS NewMsgText()
print GHS NewMsgText()
endif

loop


GHS StopServer
end

REM User functions

function download(IP$)

if file exist("temp.txt")=1 then delete file "temp.txt"
sent$ = "http://" + IP$
GUD DownloadFile sent$,"temp.txt"
IP$ = ""
Message$ = ""

endfunction

function server()

ok = GHS CreateServer()
global LastPath as String
GHS SetMaximumConnections 1000
GHS StartServer
GHS SetLocalPath "html"
GHS StartAutoServ
set dir "html"
perform checklist for files
for a=1 to checklist quantity()
if left$(Checklist string$(a ),len("index")) = "index" then GHS SetMainPage Checklist String$(a)
next a
set dir ".."

endfunction

This does

+ Code Snippet

REM Setup

server()

download("127.0.0.1")


REM Main

do

if last$ <> GHS NewMsgText()
last$ = GHS NewMsgText()
print GHS NewMsgText()
endif

loop


GHS StopServer
end

REM User functions

function download(IP$)

if file exist("temp.txt")=1 then delete file "temp.txt"
sent$ = "http://" + IP$
GUD DownloadFile "http://127.0.0.1","temp.txt"
IP$ = ""
Message$ = ""

endfunction

function server()

ok = GHS CreateServer()
global LastPath as String
GHS SetMaximumConnections 1000
GHS StartServer
GHS SetLocalPath "html"
GHS StartAutoServ
set dir "html"
perform checklist for files
for a=1 to checklist quantity()
if left$(Checklist string$(a ),len("index")) = "index" then GHS SetMainPage Checklist String$(a)
next a
set dir ".."

endfunction

When I pass the IP to GUD download as a variable inside a function, it doesn't work. Outside of a function, or when entering the IP directly, it does work. I worked around it by putting the download in a subroutine. Thanks for your time.

---

humm.. funny.. it cant be a problem with my plugin.. it could be problem only with dbpro engine.. you should report it or something >_<

cuz its only a function that you can insert into it a parameter.. so if it cant send that parameter into the plugin, that means there is a problem with dbpro..

---

Good point, I'll post it in the bug reports forum. Thank you for your time.

---

I hate to bug you again, but do you have an example for the servers set port command? Darkbasic keeps telling me it doesn't understand the command.


For example:
+ Code Snippet

server()
GHS setportnumber 4444

do
loop

GHS StopServer


function server()

ok = GHS CreateServer()
global LastPath as String
GHS SetMaximumConnections 1000
GHS StartServer
GHS SetLocalPath "html"
GHS StartAutoServ
set dir "html"
perform checklist for files
for a=1 to checklist quantity()
if left$(Checklist string$(a ),len("index")) = "index" then GHS SetMainPage Checklist String$(a)
next a
set dir "..\"

endfunction

---

looks like it works fine for me.. no problems at all..

are you sure u copied GHS.dll plugin to a current folder? (the plugins-user at DarkBasic\Compiler\ folder)

---

Yep, because everything else is working. Once port fowarded it relays files and what not perfectly, it just won't compile if I call the change port command, and tells me that it doesn't understand the command.

---

the links won't open for me. shame, i really wanted this plugin! lol

---

Dbpro is still telling me that the change port command is not recognized. Like i said in my last message, the dll is in the correct spot and everything else is working. Is there any way you could post an example of the port change commands usage so i can see if I'm doing something wrong?

---

hi , i test your url download plugin for a longtime now and here the bug i found :

on this command :

GUD SmartDownloadBytes()

when downloading a big files sometime ( not all the time ) it restart to count at the beginning , example :

I download 75% of the file ( 40 000 ko ) it says 30 000 of 40 000 ko downloaded , one second after it say 0 of 40 000 ko downloaded
and finish at 10 000ko.

so there is a little problem , but not very a constraint ( i just make myself a function to replace yours )

The only futur feature that can be usefull for your url plugin is a multiple download and a section download.

multiple download :

i launch 4 times your plugin and i can get 4 different id to manage all my download and the Fourth file can finish before the first and so on.

section download :

I want to download a file of 5 Mo , but i find it slow ( downloading at 50ko/sec )
So i parse the file and download 0 to 2.5 Mo and 2.5 Mo to 5 , and downloading now at ( 40 and 40 , so 80 ko ) method from all the download accelerator in order to get the maximum of bandwitch ( better chance to get in priority and kill web limitation by user )
So if you can divide the same file with 10 different download , it will be very fast.

---

send me to sergy100@netvision.net.il so i can send you the working links..

here is a 5-minuts work http server i made.
the port command works here 2..

+ Code Snippet

sync rate 40
ok = GHS CreateServer()
if ok = 0
   print "was unable to create the http server."
   wait key
   end
endif
global LastMsg as String
GHS SetPortNumber 80
GHS SetMaximumConnections 10
GHS StartServer
ns as integer
do
cls
ns = GHS NewMsgExist()
print "FPS: "+str$(Screen fps())
print "Server is online."
print "enter to http://127.0.0.1/ to check-it-out!"
print "Last Cmd: "+LastMsg
print "New Msg? :"+str$(ns)
`Reading HTTP Msg
if ns=1
   GHS ClearHtmlMsg
   GHS AddHtmlMsg "<html> Hello World!!</html>"
   LastMsg = GHS NewMsgText()
   GHS SendInfo
endif

loop
GHS StopServer

@Gask:
ill check out that bug you talking me about, and ill fix it eventually.
about multiply threading, i will do it maybe on my next URL downloader version, and about the sections, i still dont know how to do that, althought ill try to figure it out

---

I tryed your example and got the same error. I'm using upgrade 6.6 if that makes a difference. I'll try reinstalling dark basic when i get home and see if the problem persists. Thanks for your help.

---

@Luminence: if re-installing wont work, just send me your plugin purchace letter that shows you bought the plugin, and ill send you the plugin again (maybe u need to upgrade the plugin...)

---

good to know sergey
if i find anything else i will kept you in touch , but it works pretty well for now , i didn't regret buying your products

just a question , if you make a newer version with multiple download , we need to buy again your url plugin , or you give your upgraded version for free to all user who have bought your plugin before ?

( the price is low so the two can be possible ^^ )

---

Fully reinstalled, same problem. Where should I send my confirmation email?

---

@Gask: free for all ppl who bought the plugin
@Luminence: sergy100@netvision.net.il with Subject "<DLL Name> Product"

---

hey all! good news! i made a new website (forum) where you are able to buy the plugins and other stuff from there..
http://goge.byethost13.com

here is the thread:
http://goge.byethost13.com/viewtopic.php?f=5&t=2

---

cool, i just bought one just wondering - what happens now? do you send a email link or something?

---

@blobby 101: got the email?

---

yes, thanks. very fast. great plugin as well.

---

I sent the email with the plugin version on Jan 8. I still havn't gotten a reply, so I was just wondering if you got the email.

---

humm.. im checking the email everyday.. dont think i got anything >_<

you sending to sergy100@netvision.net.il ?