bonjour à tous,
j'utilise un TIdIMAP4, mais le problème, est que la connection est hyper longue.
Je ne comprends pas pourquoi. Quelqu'un peux-t-il m'aider??
voicile code de mon bouton:
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
var
    i: Integer;
    Repertoire: TStringList;
    Liste: TListItem;
 
begin
  if IdIMAP4.Connected then
   begin
    IdIMAP4.Disconnect;
    Exit;
   end;
Screen.Cursor:= crHourGlass;
Connection.Cursor:= crHourGlass;
Label4.Visible:= True;
Label4.Caption:= 'Connection en cours...';
Label4.UpDate;
Repertoire := TStringList.Create;
Application.ProcessMessages;
IdIMAP4.ConnectTimeout:=2500;
IdIMAP4.Connect; 
Application.ProcessMessages;
if IdIMAP4.ListMailBoxes(Repertoire) Then
  for i := 0 to (Repertoire.Count) -1 do
    begin
      IdMailBox1 := IdIMAP4.MailBox;
      Liste:= ListViewRepertoire.Items.Add;
      Liste.Caption := (Repertoire[i]);
      liste.ImageIndex := 0;
      Application.ProcessMessages;
  end;
    begin
      Connection.Caption:= 'Connecté';
      Screen.Cursor := crDefault;
      Connection.Cursor:= crHandPoint;
      Label4.Caption:= '';
      Label4.Visible:= False;
      Connection.Enabled:= False;
      Application.ProcessMessages;
    end;
En vous remercient de l'aide apportée,
Sincères salutations à tous et bon codding
Gwenn ha du