http request en Delphi

Version imprimable

Bonjour,
J'ai un script vbs qui fait cela:

Code:

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:

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

22/03/2023, 09h33
pprem

pourquoi vouloir passer par OLE pour faire des trucs qui sont disponibles sous forme de composants (TNetHTTPClient) ou de classes (THTTPClient) ?
22/03/2023, 09h47
popo

En complément de l'excellente réponse de pprem.
https://docwiki.embarcadero.com/RADS...an_HTTP_Client
22/03/2023, 09h50
Paul TOTH

outre l'usage d'un des nombres composants HTTP, il manque sans doute un CoInitialize()
22/03/2023, 19h09
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
22/03/2023, 20h39
michastro
Je viens d'essayer un truc du genre:
Code:

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!!
22/03/2023, 21h14
pprem
Citation:
Envoyé par michastro

Je viens d'essayer un truc du genre:

Code:

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.
22/03/2023, 21h50
Paul TOTH

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

Citation:

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.
23/03/2023, 13h09
michastro
Bonjour,
J'ai essayé:
Code:

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
23/03/2023, 13h30
pprem
Citation:
Envoyé par michastro

Bonjour,
J'ai essayé:

Code:

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)
23/03/2023, 14h10
Paul TOTH
Citation:
Envoyé par michastro

Bonjour,
J'ai essayé:

Code:

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.