Skip to content

Instantly share code, notes, and snippets.

@vsmihaylovsky
Last active December 8, 2017 11:32
Show Gist options
  • Save vsmihaylovsky/ef6cc804627d28cc989fa3857ec12a31 to your computer and use it in GitHub Desktop.
Save vsmihaylovsky/ef6cc804627d28cc989fa3857ec12a31 to your computer and use it in GitHub Desktop.
uses
httpsend,
SysUtils,
Dialogs,
ssl_openssl;
{ TProgramNumbers }
class function TProgramNumbers.getProgramNumbers(resourcePath: string): TStringList;
var
HTTP: THTTPSend;
begin
Result := TStringList.Create;
HTTP:=THTTPSend.Create;
try
if HTTP.HTTPMethod('GET', resourcePath) then
begin
Result.LoadFromStream(HTTP.Document);
ShowMessage(Result.Text);
end;
finally
FreeAndNil(HTTP);
end;
end;
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment