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.
