mirror of
https://github.com/moparisthebest/Simba
synced 2024-11-13 12:55:05 -05:00
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.
|
||
|
|
|