2009-12-31 13:17:49 -05:00
|
|
|
unit internets;
|
|
|
|
|
|
|
|
|
|
{$mode objfpc}{$H+}
|
|
|
|
|
|
|
|
|
|
interface
|
|
|
|
|
|
|
|
|
|
uses
|
|
|
|
|
Classes, SysUtils;
|
|
|
|
|
|
|
|
|
|
function GetPage(URL: String): String;
|
|
|
|
|
|
|
|
|
|
implementation
|
|
|
|
|
uses
|
|
|
|
|
httpsend;
|
|
|
|
|
|
More GUI changes
I started to work on a Bug Report form, but came to the conclusion, have no way of posting the information.
Wizzup, could you please post on the new thread about how to post to Mantis if you know?
I wrote up some new code for a new internets.pas currently in (newinternets.pas, whooda thunk?)
Its good, just needs some crucial things like physically openning the connections and closing them.
I added PostHTTP stuff, and need more ideas, I worked through Indy and found the right things so.. yeah!
Oh, and I added some more icons to the MainMenu from famfam.
Just to reiterate, the new AboutForm is a template, and the Image is copyrighted and will have to change.
git-svn-id: http://www.villavu.com/repositories/merlijn/mufasa@406 3f818213-9676-44b0-a9b4-5e4c4e03d09d
2010-01-13 00:11:11 -05:00
|
|
|
{ OTHER }
|
2009-12-31 13:17:49 -05:00
|
|
|
function GetPage(URL: String): String;
|
|
|
|
|
var
|
|
|
|
|
s: TStringList;
|
|
|
|
|
begin
|
|
|
|
|
s:=TStringList.Create;
|
|
|
|
|
HttpGetText(URL, s);
|
|
|
|
|
result := String(s.GetText);
|
|
|
|
|
s.Free;
|
|
|
|
|
end;
|
|
|
|
|
|
|
|
|
|
end.
|
|
|
|
|
|
