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!!

[pprem]

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!!

Oui, c'est un peu logique : c'est pas juste en changeant le nom de l'appel que tu vas te retrouver avec la même chose, il fait quoi le false dans l'appel initial ?

Regarde APICoursesUpload sur https://github.com/DeveloppeurPascal...steCourses.pas
Ca devrait être assez lisible pour que tu modifies ton appel avec la bonne façon de faire.

[Paul TOTH]

https://learn.microsoft.com/en-us/pr...57849(v=vs.85)

varAsync[optional]
A Boolean indicator of whether the call is asynchronous. The default is True (the call returns immediately). If set to True, attach an onreadystatechange property callback so that you can tell when the send call has completed.

[michastro]

Bonjour,
J'ai essayé:

Code :

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

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

Et ça marche, je peux commander mon IP Switch. Je ne sais même pas pourquoi ça marche. Post et Get??
Michel

[pprem]

Bonjour,
J'ai essayé:

Code :

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

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

Et ça marche, je peux commander mon IP Switch. Je ne sais même pas pourquoi ça marche. Post et Get??
Michel

ça fonctionne probablement parce que le serveur web à l'autre bout regarde les deux au lieu de choisir en GET ou POST (ce qui d'une manière générale est une mauvaise pratique de programmation web et la porte d'accès à des failles de sécurité, mais passons)

[Paul TOTH]

Bonjour,
J'ai essayé:

Code :

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

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

Et ça marche, je peux commander mon IP Switch. Je ne sais même pas pourquoi ça marche. Post et Get??
Michel

GET est généralement utilisé pour obtenir une ressource avec éventuellement des paramètres dans l'URL "?param1=value&parm2=valu2", dans ton cas led = 0001100000000000

POST est généralement utilisé pour envoyer des données plus volumineuses (un formulaire, un fichier)...

je dit "généralement" car dans REST, les méthodes reflètent surtout le mode d'accès. GET je lis, POST j'ajoute, PUT de mets à jour et DELETE je supprime.