mirror of
https://github.com/moparisthebest/Simba
synced 2024-11-11 03:45:06 -05:00
568484d2e0
git-svn-id: http://www.villavu.com/repositories/merlijn/mufasa@353 3f818213-9676-44b0-a9b4-5e4c4e03d09d
28 lines
317 B
ObjectPascal
28 lines
317 B
ObjectPascal
unit internets;
|
|
|
|
{$mode objfpc}{$H+}
|
|
|
|
interface
|
|
|
|
uses
|
|
Classes, SysUtils;
|
|
|
|
function GetPage(URL: String): String;
|
|
|
|
implementation
|
|
uses
|
|
httpsend;
|
|
|
|
function GetPage(URL: String): String;
|
|
var
|
|
s: TStringList;
|
|
begin
|
|
s:=TStringList.Create;
|
|
HttpGetText(URL, s);
|
|
result := String(s.GetText);
|
|
s.Free;
|
|
end;
|
|
|
|
end.
|
|
|