program mX4_metadefender_API_2;

//http://synapse.ararat.cz/doc/help/httpsend.THTTPSend.html#@Description

Const aURL='https://api.metadefender.com/v4/file/bzIwMDYxNi1TSW42NDBPVlprTWw3YjRBMQ';
  
Begin  //@main

    srlist:= TStringlist.create;
    with THTTPSend.create() do begin
      Headers.Add('apikey: 6b337c92c792174a54acd715ab1aae64');      
      writeln(botostr(HTTPMethod('GET',aURl)));       
      with TJson.create() do begin
        Parse(StreamtoString3(Document));
        Split(Stringify,'{',srlist)
      end;  
      writeln(itoa(resultCode)+':'+resultString+CRLF+srlist.text);
      clear;free;
    end;  
    srlist.Free;
    
 End.
 
 Ref:  https://onlinehelp.opswat.com/mdcloud/2._API_Authentication_Mechanisms.html
 https://github.com/maxkleiner/maXbox4/blob/master/objectdetector3.ipynb
 http://www.softwareschule.ch/examples/detector2.htm
 
 Testcase: FindAllFiles('C:\maxbox\','maxbox*.exe',true)
           size: 156 GB (167,675,764,736 bytes)
           contains: 148,523 Files, 10,519 Folders

morse_codes = {
    'A': '.-', 'B': '-...', 'C': '-.-.', 'D': '-..', 'E': '.', 'F': '..-.',
    'G': '--.', 'H': '....', 'I': '..', 'J': '.---', 'K': '-.-', 'L': '.-..',
    'M': '--', 'N': '-.', 'O': '---', 'P': '.--.', 'Q': '--.-', 'R': '.-.',
    'S': '...', 'T': '-', 'U': '..-', 'V': '...-', 'W': '.--', 'X': '-..-',
    'Y': '-.--', 'Z': '--..', ' ': ' ', '0': '-----',
    '1': '.----', '2': '..---', '3': '...--', '4': '....-', '5': '.....',
    '6': '-....', '7': '--...', '8': '---..', '9': '----.',
    '&': '.-...', "'": '.----.', '@': '.--.-.', ')': '-.--.-', '(': '-.--.',
    ':': '---...', ',': '--..--', '=': '-...-', '!': '-.-.--', '.': '.-.-.-',
    '-': '-....-', '+': '.-.-.', '"': '.-..-.', '?': '..--..', '/': '-..-.'
    }
 

https://maxbox4.files.wordpress.com/2020/07/bastatv.png?w=576&h=&zoom=2


procedure WebPostData(const UserAgent: string; const Server: string; const Resource: string; const Data: AnsiString); overload;
var
  hInet: HINTERNET;
  hHTTP: HINTERNET;
  hReq: HINTERNET;
const
  accept: packed array[0..1] of LPWSTR = (PChar('*/*'), nil);
  header: string = 'Content-Type: application/x-www-form-urlencoded';
begin
  hInet := InternetOpen(PChar(UserAgent), INTERNET_OPEN_TYPE_PRECONFIG, nil, nil, 0);
  try
    hHTTP:= InternetConnect(hInet,PChar(Server),INTERNET_DEFAULT_HTTP_PORT, nil, nil, INTERNET_SERVICE_HTTP, 0, 1);
    try
      hReq := HttpOpenRequest(hHTTP, PChar('POST'), PChar(Resource), nil, nil, @accept, 0, 1);
      try
        if not HttpSendRequest(hReq, PChar(header), length(header), PChar(Data), length(Data)) then
          raise Exception.Create('HttpOpenRequest failed. ' + SysErrorMessage(GetLastError));
      finally
        InternetCloseHandle(hReq);
      end;
    finally
      InternetCloseHandle(hHTTP);
    end;
  finally
    InternetCloseHandle(hInet);
  end;
end;


WebPostData('My UserAgent', 'www.rejbrand.se', 'mydir/myscript.asp', 'value=5');

----app_template_loaded_code----
----File newtemplate.txt not exists - now saved!----