Discussion :

[Ema1714]

Salut, je suis -toujours- entrain de développer un aspirateur, j'ai essayé le téléchargement avec un serveur local et ça marchait normalement, mais quand j’essaie de télécharger un fichier hébergé sur un serveur distant le téléchargement commence et après quelques instants ça m'affiche cette erreur:

Bon, voici mon code:

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
 
procedure TForm1.getFile;
 var
 pathDest: String;
 fs:TFileStream;
 fileName:String;
 begin
 
 fileName:='file.exe';
 pathDest:='downloads\'+fileName;
 url:=edit1.text;
 fs:=TFileStream.Create(pathDest,fmCreate);
 //http:
 IdHTTP := TIdHTTP.Create(nil);
 IdHTTP.Request.BasicAuthentication := True;
 IdHTTP.Request.Username := 'safa';
 IdHTTP.Request.Password := 'blabla';
 IdHTTP.OnWorkBegin := IdHTTPWorkBegin;
 IdHTTP.OnWorkEnd := IdHTTPWorkEnd;
 IdHTTP.OnWork := IdHTTPWork;
 //SSL:
 IdSSLIOHandler := TIdSSLIOHandlerSocketOpenSSL.Create(nil);
 IdSSLIOHandler.OnVerifyPeer:=IdIOHandlerVerifyPeer;
 IdHTTP.IOHandler := IdSSLIOHandler;
 
 IDHttp.Get(url,TfileStream(fs));
 
 
 button2.Enabled:=false;
 end;

Pourquoi cette erreur, et comment je peux la corriger?