Apple-2-Tools/microm8-gui
1
0
Fork 0
mirror of https://github.com/paleotronic/microm8-gui.git synced 2025-01-28 08:33:23 +00:00
Code Issues Projects Releases Wiki Activity

roll back net check

Browse Source
This commit is contained in:
April Ayres-Griffiths 2019-04-13 11:54:49 +10:00
parent 56fcb060fb
commit 63181240c5
5 changed files with 6 additions and 14 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
backup/main.pas
View File

@ -2078,6 +2078,10 @@ end;
procedure TGUIForm.SimpleGetStream(url:string; var S: TMemoryStream);
begin
if not MicroM8Process.Active then
exit;
try
self.httpc.Get(url, S)
except
@ -2090,6 +2094,8 @@ end;
procedure TGUIForm.SimpleFormPost( url: string; body: string; var resp: TStringStream );
begin
if not MicroM8Process.Active then
exit;
try
self.httpc.SimpleFormPost(url,body,resp)
except

BIN
lib/x86_64-win64/main.o
View File

Binary file not shown.

BIN
lib/x86_64-win64/main.ppu
View File

Binary file not shown.

BIN
lib/x86_64-win64/poc.obj
View File

Binary file not shown.

14
main.pas
View File

@ -2047,10 +2047,6 @@ end;
function TGUIForm.SimpleGet(url:string): string;
begin
result := '0';
if not MicroM8Process.Active then
exit;
try
result := self.httpc.Get(url)
except
@ -2063,10 +2059,6 @@ end;
function TGUIForm.SimpleGetInt(url:string): integer;
begin
result := 0;
if not MicroM8Process.Active then
exit;
try
result := StrToInt(self.httpc.Get(url))
except
@ -2078,10 +2070,6 @@ end;
procedure TGUIForm.SimpleGetStream(url:string; var S: TMemoryStream);
begin
if not MicroM8Process.Active then
exit;
try
self.httpc.Get(url, S)
except
@ -2094,8 +2082,6 @@ end;
procedure TGUIForm.SimpleFormPost( url: string; body: string; var resp: TStringStream );
begin
if not MicroM8Process.Active then
exit;
try
self.httpc.SimpleFormPost(url,body,resp)
except