Discussion :

[Pasqualini]

Bonjour à tous,
J'ai écrit, il y a quelques années un programmes permettant de connaitre les prévisions
météorologiques sous forme codée dans les aé&aéroports du monde.
Ce programme a fonctionné quelques années sans problème.
Récemment j'ai un message par exemple :
"Le site de code LFLL est inaccessible.

Les aéroports sont repérés par un code à 4 lettres.
LFLL désigne l'aéroport de Lyon Saint Exupery.
Voilà dans le programme où se trouve l'appel au site :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
 
swprintf(szTemp,
	 L"http://tgftp.nws.noaa.gov/data/observations/metar/stations/%s.TXT",
																		 szCode);
	 ShowMessage(szTemp);
	try
	{
		uMetar = IdHTTP1->Get(szTemp);
		ShowMessage(uMetar);
	}
	catch(...)
	{
		uMetar = L"Erreur";
		ShowMessage(uMetar);
	}

uMetar est un fichier texte, par exemple :
"2019/06/27 15:30
LFLL 271530Z 01007KT CAVOK 36/20 Q1019 NOSIG

Quelqu'un aurait-il une dée expliquant ce disfonctionnement ?
J'ai pensé que l'antivirus, dans mon cas Kaspersky Total secyrity bloquait l'appel et la lecture d'un fichier Internet.
Je l'ai désactivé sans résulyat.

[DjmSoftware]

Salut
le site a vu son protocole évolué
il s'agit maintenant de HttPS
URL: https://tgftp.nws.noaa.gov/data/obse...etar/stations/
cdlt

[Pasqualini]

Merci.
J'ai chengé l'adresse.
J'ai encore le mesage d'erreur.
Je pense que l'utilisation du idHTTP n'est plus correcte.
Savez vous comment corriger l'utlisation de

Code :

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

1
2
 
uMetar = IdHTTP1->Get(szTemp);

?

[DjmSoftware]

Il faut ajouter le composant Indy de prise en charge de OpenSSL
tu trouvera sur ce site des exemples en Delphi d'utilisation
cordialement

[DjmSoftware]

Salut,
ci-joint un exemple pour illustrer mon précédent post

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
 
//le .dfm
object Form109: TForm109
  Left = 0
  Top = 0
  Caption = 'Form109'
  ClientHeight = 185
  ClientWidth = 635
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'Tahoma'
  Font.Style = []
  OldCreateOrder = False
  PixelsPerInch = 96
  TextHeight = 13
  object Button1: TButton
    Left = 160
    Top = 136
    Width = 305
    Height = 25
    Caption = 'Get'
    TabOrder = 0
    OnClick = Button1Click
  end
  object Memo1: TMemo
    Left = 0
    Top = 0
    Width = 635
    Height = 113
    Align = alTop
    TabOrder = 1
    ExplicitWidth = 627
  end
  object IdHTTP1: TIdHTTP
    IOHandler = IdSSLIOHandlerSocketOpenSSL1
    AllowCookies = True
    ProxyParams.BasicAuthentication = False
    ProxyParams.ProxyPort = 0
    Request.ContentLength = -1
    Request.ContentRangeEnd = -1
    Request.ContentRangeStart = -1
    Request.ContentRangeInstanceLength = -1
    Request.Accept = 'text/html,application/xhtml+xml,application/xml;q=0.9,*/*;q=0.8'
    Request.BasicAuthentication = False
    Request.UserAgent = 'Mozilla/3.0 (compatible; Indy Library)'
    Request.Ranges.Units = 'bytes'
    Request.Ranges = <>
    HTTPOptions = [hoForceEncodeParams]
    Left = 64
    Top = 216
  end
  object IdSSLIOHandlerSocketOpenSSL1: TIdSSLIOHandlerSocketOpenSSL
    MaxLineAction = maException
    Port = 0
    DefaultPort = 0
    SSLOptions.Mode = sslmUnassigned
    SSLOptions.VerifyMode = []
    SSLOptions.VerifyDepth = 0
    Left = 64
    Top = 144
  end
  object IdAntiFreeze1: TIdAntiFreeze
    Left = 64
    Top = 80
  end
end

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
 
// le .H
//---------------------------------------------------------------------------
 
#ifndef Unit109H
#define Unit109H
//---------------------------------------------------------------------------
#include <System.Classes.hpp>
#include <Vcl.Controls.hpp>
#include <Vcl.StdCtrls.hpp>
#include <Vcl.Forms.hpp>
#include <IdBaseComponent.hpp>
#include <IdComponent.hpp>
#include <IdHTTP.hpp>
#include <IdTCPClient.hpp>
#include <IdTCPConnection.hpp>
#include <IdIOHandler.hpp>
#include <IdIOHandlerSocket.hpp>
#include <IdIOHandlerStack.hpp>
#include <IdSSL.hpp>
#include <IdSSLOpenSSL.hpp>
#include <IdAntiFreeze.hpp>
#include <IdAntiFreezeBase.hpp>
//---------------------------------------------------------------------------
class TForm109 : public TForm
{
__published:	// Composants gérés par l'EDI
	TButton *Button1;
	TIdHTTP *IdHTTP1;
	TIdSSLIOHandlerSocketOpenSSL *IdSSLIOHandlerSocketOpenSSL1;
	TIdAntiFreeze *IdAntiFreeze1;
	TMemo *Memo1;
	void __fastcall Button1Click(TObject *Sender);
private:	// Déclarations utilisateur
public:		// Déclarations utilisateur
	__fastcall TForm109(TComponent* Owner);
};
//---------------------------------------------------------------------------
extern PACKAGE TForm109 *Form109;
//---------------------------------------------------------------------------
#endif

et le source

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
 
//---------------------------------------------------------------------------
 
#include <vcl.h>
#pragma hdrstop
 
#include "Unit109.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm109 *Form109;
//---------------------------------------------------------------------------
__fastcall TForm109::TForm109(TComponent* Owner)
	: TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TForm109::Button1Click(TObject *Sender)
{
 
String szTemp;
String uMetar;
wchar_t szCode[5]=L"LFLL";
szTemp.sprintf(L"https://tgftp.nws.noaa.gov/data/observations/metar/stations/%s.TXT",szCode);
 
 
	try
	{
		Memo1->Lines->Add(IdHTTP1->Get(szTemp));
    }
	catch(Exception&E)
	{
			ShowMessage(E.Message);
	}
}
//---------------------------------------------------------------------------

j'ai ajouté un composant Memo pour visualiser simplement les résultats

cdlt

[Pasqualini]

Merci.
Je vais essayer d'en tirer profit.