The code depends on where you use.
Here you are.
-First code for getting the message from device use 'Microsoft.XMLHTTP'.
So you need permission or login.
please note:
My testing device is "FL BT EPA" and "FL BT EPA MP" (communicate using AT language)
uses
...
Variants, comobj, RegExpr;
Function getText(strURL: variant): String;
var
xstrResult:variant;
WinHttpReq:variant;
temp:variant;
begin
WinHttpReq:=CreateOleObject('Microsoft.XMLHTTP');
temp:=WinHttpReq.Open('GET',strURL,false);
try
WinHttpReq.Send();
xstrResult:= WinHttpReq.responseText;
except
showmessage('Transfer not work');
Exit;
end;
getText:=xstrResult;
end;
procedure TForm1.Button1Click(Sender: TObject);
var
re: TRegExpr;
strAns:String;
begin
re := TRegExpr.Create;
re.Expression := '.*OK.*';
strAns:=getText('
http://10.0.0.100/form?at=at*amli=admin');
if re.Exec(strAns) then showmessage('OK') else showmessage('not OK');
end;
-Second code for getting the message from normal HTTP URL by object 'WinHttpRequest.5.1.'
please note:
Direct to WinHttp.WinHttpRequest.5.1 internet URL
uses
...
Variants, comobj, RegExpr;
Function getText2(strURL: variant): String;
var
http :variant;
begin
http:=createoleobject('WinHttp.WinHttpRequest.5.1');
try
http.open('GET', strURL, false);
http.send;
except
showmessage('Transfer not work');
Exit;
end;
getText2:=http.responsetext;
end;
procedure TForm1.Button2Click(Sender: TObject);
var
strAns:String;
begin
strAns:=getText2('
http://lazarus.freepascal.org');
Showmessage(strAns);
end;
/:^)