Source du Project1 : Impossible d'utiliser IdHTTP

Signaler
Messages postés
186
Date d'inscription
lundi 3 mai 2010
Statut
Membre
Dernière intervention
28 avril 2011
-
Messages postés
302
Date d'inscription
jeudi 29 septembre 2005
Statut
Membre
Dernière intervention
17 septembre 2013
-
Bonjour,

Je suis en train d'élaborer un utilitaire de Mise à Jour. J'essaye de faire en sorte que le programme vérifie l'existence d'une mise à jour sur un serveur distant avant de lancer l'application en elle-même : Si il y a une mise à jour, on télécharge, sinon on lance le programme.
J'obtiens une erreur, plus précisément un EAccessViolation, accompagnée d'un message me disant que l'unité IdHTTP.pas n'existe pas alors qu'elle s'exécute très bien dans d'autres projets.
Voici mon code :
program Project1;

uses
  Forms,
  IdBaseComponent, IdComponent, IdTCPConnection, IdTCPClient,//Pour que l'IdHTTO //puisse fonctionner
  IdHTTP,
  SysUtils,
  Dialogs,
  Unit1 in 'Unit1.pas' {Form1};

{$R *.res}

var
IdHTTP1:TIdHTTP;
MON_FICHIER:String;
begin
MON_FICHIER := 'http://www.developpez.net/forums/avatars/64333-slimjoe.gif';
    begin
      try
          IdHTTP1.Head(MON_FICHIER);
       except
          ShowMessage(Format('Erreur %d', [IdHTTP1.ResponseCode]));
      end;

      if IdHTTP1.ResponseCode = 200 then
      ShowMessage(Format('Le fichier "%s" existe.', [MON_FICHIER]));
      end;

  Application.Initialize;
  Application.CreateForm(TForm1, Form1);
  Application.Run;
end.


Merci de bien vouloir m'aider (^_^)

1 réponse

Messages postés
302
Date d'inscription
jeudi 29 septembre 2005
Statut
Membre
Dernière intervention
17 septembre 2013
1
bonjour,

il faudrait peut-être commencer par créer ton instance d'objet, non ?
IdHTTP1 := TIdHTTP.Create(......), ça te dis quelque chose ?

bonne journée,
Luc.