Discussion :

[michastro]

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

[pprem]

pourquoi vouloir passer par OLE pour faire des trucs qui sont disponibles sous forme de composants (TNetHTTPClient) ou de classes (THTTPClient) ?

[popo]

En complément de l'excellente réponse de pprem.
https://docwiki.embarcadero.com/RADS...an_HTTP_Client

[Paul TOTH]

outre l'usage d'un des nombres composants HTTP, il manque sans doute un CoInitialize()

[michastro]

Bonjour,
Pourquoi ne pas utiliser les composants HTTP, car je suis nul en programmation web, autant je suis à l'aise dans des composants COM, du multitache..etc Autant dès que je vois HTTP, je blêmis, si je trouve un exemple facile de ce que je veux faire, cad faire un POST à http://Admin:ObsChili2017@192.168.52...01100000000000, je prends tout de suite. Le code que j'ai écris au dessus n'est qu'un copié collé de ce que j'ai vu sur un site.
Michel

[michastro]

Je viens d'essayer un truc du genre:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
    HTTPClient := THTTPClient.Create;
    HTTPClient.Post('http://Admin:ObsChili2017@192.168.52.150/ons.cgi?led=0001100000000000', false);

Évidement cela ne marche pas car la méthode Post nécessite autre chose que mon false!!