Discussion :

[Pasqualini]

Bonjour,
j’avais écrit un logiciel permettant de lire la météorologie donnée dans les
différents aéroports du monde.

Quand j'ai voulu le compiler avec Rad Studio XE2, il ne fonctionne plus.
Cela se passe, très probablement dans

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
 
void __fastcall TfMeteo::bButton1Click(TObject *Sender)
{
  HINTERNET hNet, hUrl;
  wchar_t szTemp[1024], szMetar[1024];
  wchar_t* szCode = L"LFLL";
  DWORD dwDownloaded;
  wcsncpy(szCode, eCode->Text.w_str(), 4 );
 
  swprintf(szTemp,
	 L"http://weather.noaa.gov/pub/data/observations/metar/stations/%s.TXT", szCode);
 
 
  hNet = InternetOpen(NULL, INTERNET_OPEN_TYPE_DIRECT, NULL, NULL, 0);
  if(hNet)
  {
 
	AnsiString asTemp = AnsiString(szTemp);
 
	hUrl = InternetOpenUrl(hNet,asTemp.c_str(), NULL, 0, 0,0);
	if(hUrl)
	{
	  if(InternetReadFile(hUrl, (LPVOID)szMetar, 1024, &dwDownloaded))
	  {
		   if(dwDownloaded)
		   {
			 szMetar[dwDownloaded] = 0;
			 AnsiString asLigne = eVille->Text;
			 asLigne +="-" + eCode->Text;
			 Memo1->Clear();
			 Memo1->Lines->Add(asLigne);
			 asMetar = AnsiString(szMetar);
 
			 Timer1->Enabled = false;
		   }
		   while (dtConnecter < Now())
			   dtConnecter +=double(iIntervalle2)* minute;
	  }
	  InternetCloseHandle(hUrl);
	  DecodeAsMetar();
	  if(bAcces) DecodeMetar();
	  Caption = "Météo";
	}

Quelqu'un voit-il l'erreur à corriger ou est-ce qu'il y a une méthode plus simple
d'accéder au contenu de ce site (c'est un fichier texte).

Merci

[ShaiLeTroll]

Vérifie ton mappage Char si char ou wchar_t
Tu utlises un AnsiString et en même temps des wchar_t ? étrange !

teste en utilisant InternetOpenUrlA ou InternetOpenUrlW
si InternetReadFile autorise szMetar un wchar_t[], c'est donc une version W

Sinon, un simple TIdHttp Get doit pouvoir lire le fichier et le renvoyer dans un Stream

[Pasqualini]

Merci,
le TidHTTP résoud parfaitement et simplement la difficulté.