Bonjour,
J'ai un script vbs qui fait cela:
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
 
  Set HttpReq = CreateObject("MSXML2.XMLHTTP")
  HttpReq.Open "POST", "http://Admin:ObsChili2017@192.168.52.150/ons.cgi?led=0001100000000000", False
  HttpReq.send
Je souhaiterais faire la même chose en Delphi, j'ai essayé cela, mais cela ne marche pas:
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
 
var
  oXMLHTTP: OleVariant;
 
....
 
    oXMLHTTP := CreateOleObject('MSXML2.XMLHTTP');
    oXMLHTTP.open('POST', 'http://Admin:ObsChili2017@192.168.52.150/ons.cgi?led=0001100000000000', False);
    oXMLHTTP.send;
    oXMLHTTP.free;
Des idées?
Merci