1 pièce(s) jointe(s)
Socket Error Connection timed out
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:
Pièce jointe 145046
Bon, voici mon code:
Code:
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?
