1
0
mirror of https://github.com/moparisthebest/Simba synced 2024-11-26 03:02:15 -05:00
Simba/Units/MMLAddon/internets.pas
2009-12-31 18:17:49 +00:00

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.