Mirage Source
News System (Pulled from URL) - Printable Version

+- Mirage Source (https://mirage-engine.uk/forums)
+-- Forum: Mirage Source (Nostalgia) (https://mirage-engine.uk/forums/forumdisplay.php?fid=61)
+--- Forum: Archive (2006-2011) (https://mirage-engine.uk/forums/forumdisplay.php?fid=18)
+---- Forum: Resources (https://mirage-engine.uk/forums/forumdisplay.php?fid=49)
+---- Thread: News System (Pulled from URL) (/showthread.php?tid=256)

News System (Pulled from URL) - Matt - 21-08-2006

Okay, this is a simple tut. Very simple actually. First off..

Open up your client source. Add the component..

Code:
Microsoft Internet Transfer Control 6.0

Now, place that component (INet) on frmMainMenu..

Name it..

Code:
InetNews

Now, if you wish to use colors, images, and such in your news box, add a rich text box (I won't go into explanation for adding images/color), otherwise, add a normal text box.

Name it..

Code:
txtNews

Add this sub, if you don't already have it, if you do, just add the code inside this sub..

Code:
Private Sub Form_Load()
Dim TmpStr As String

    TmpStr = InetNews.OpenURL("http://tpo.phpnet.us/News.txt")

    txtNews.Text = TmpStr
End Sub

I left my test url in there, just replace it with the url you will use.

And that's it. It will now pull the text from the text file in the url.

Enjoy!

Later, I will write one to pull the news from the game's server, which also, isn't hard.

Hope this helps someone.

- Leighland - 24-08-2006

Wow, this is so much easier than my system lol... at the current point in time , due to my newb programming skills and lack of ability to think, my game only displays the news once you log in to the game. This should come in handy.. thanks Smile.


EDIT: Works, thanks a lot.

- map210690 - 28-08-2006

just asking, but in a way couldnt you use that for accounts ect ? on a site ? all you would have to do is on server figure out away of sending via ftp. or if ur sever is the site host should be even simpler lol.

- Coke - 28-08-2006

Its called a mysql database, and theres a link to mse running from one somewhere on this site =P

Re: News System (Pulled from URL) - jsventor - 14-09-2007

how can I make the inetNews use a url from an ini file?

Re: News System (Pulled from URL) - Matt - 14-09-2007

Add the getvar and putvar subs to your source and use that.

url = getvar((app.path & "whatever.ini"), "NEWS", "URL")

Or something like that. Doesn't much make a difference.

Re: News System (Pulled from URL) - jsventor - 14-09-2007

I have
Code:
Dim TmpStr As String
Dim URLPath as string

    URLPath = GetVar(App.Path & "\Config\News.ini", "NEWS", "PATH")

    URLPath = InetNews.OpenURL

    txtNews.Text = URLPath

Doesent work though Sad

Re: News System (Pulled from URL) - Rian - 25-09-2007

Not tested, but I think it will work...

Code:
Private Sub Form_Load()
Dim TmpStr As String
Dim UrlPath As String
    
    UrlParth = GetVar(App.Path & "\Config\News.ini", "NEWS", "PATH")
    TmpStr = InetNews.OpenURL("UrlPath")

    txtNews.Text = TmpStr
End Sub