Discussion :

[Laskar]

Bonjour à tous.

Mon application doit relever une boîte mail sur un serveur IMAP. Avec les composants Indy (TidIMAP4 et TidSSLIOHandlerSocketOpenSSL), j'arrive parfaitement à faire fonctionner tout ça depuis ma machine perso (à la maison) mais impossible de me connecter depuis mon bureau car le réseau d'entreprise utilise un proxy SOCKS. Je ne trouve nulle part dans la doc la manière de renseigner le nom, le type et le port du proxy. Google m'envoie sur des usines à gaz à coup de composants externes, toujours payants ...

Z'avez une idée ?

Merci

[Laskar]

Bon, comme d'hab, je me suis précipité sur le forum sans avoir vraiment creusé.
Voila la solution :

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
 
... 
Var Socks : TIdSocksInfo;
begin
    Socks := TidSocksInfo.Create (nil);
    Socks.Host              := 'mon_serveur_proxy';
    Socks.Port              := 8080; // ou autre chose ! ...
    Socks.Authentication    := saNoAuthentication;
    Socks.Version           := svSocks5; // or svSocks4
 
   IMAPClient := TIdIMAP4.Create( nil );
  try
    OpenSSLHandler := TIdSSLIOHandlerSocketOpenSSL.Create( nil );
    try
      IMAPClient.Host := 'imap.googlemail.com';
      IMAPClient.Port := 993;
      IMAPClient.Username := 'toto@gmail.com';
      IMAPClient.Password := 'mot_de_passe';
      if Pos( 'googlemail.com', IMAPClient.Host ) > 0 then
      begin
        OpenSSLHandler.SSLOptions.Method := sslvSSLv3;
        OpenSSLHandler.TransparentProxy := Socks;
        IMAPClient.IOHandler := OpenSSLHandler;
        IMAPClient.UseTLS := utUseImplicitTLS;
      end;
 
      try
        res := IMAPClient.Connect;
...

Marche nickel.