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