FAQ DelphiConsultez toutes les FAQ

InternetGetConnectedState (lpdwFlags : LPDWORD; dwReserved : DWORD) : BOOL; stdcall;

1
2
3
4
5
6
7
8
9
10
uses 
  WinInet; 
  
function DetectionConnexion: Boolean; 
var 
  dwFlags: DWord; 
begin 
  dwFlags := INTERNET_CONNECTION_MODEM or INTERNET_CONNECTION_LAN or INTERNET_CONNECTION_PROXY; 
  Result := InternetGetConnectedState(@dwFlags, 0); 
end;

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
begin 
  with TNMSMTP.Create(nil) do 
  try 
    Host := 'mail.developpez.com'; Connect; PostMessage.FromAddress :=  
'moi@monserveur.com'; 
    PostMessage.ToAddress.Text := 'toi@tonserveur.com'; 
    PostMessage.Subject :='Sujet de mon message'; 
    PostMessage.Body.Text := 'Corps du message'; 
    PostMessage.Attachments.Add(nomdufichier); {Attachments est un TStrings  
contenant les chemins des fichiers attachés. } 
    SendMail; 
    Disconnect; 
  finally 
    Free; 
  end; 
end;

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
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
var 
  IdMessage: TIdMessage; 
  IdSMTP: TIdSMTP; 
  Message: TStrings; 
  i: Integer; 
  Fichiers: Array Of String; 
begin 
  IdMessage := TIdMessage.Create(nil); //création dynamique du composant 
  
  IdMessage.From.Address := 'expediteur@domaine.com'; 
  
  //Ces deux lignes peuvent-être répétées autant de fois que vous désirez  
  //d'adresse de réponse et/ou de destinataire 
  IdMessage.ReplyTo.Add.Address := 'expediteur@domaine.com'; 
  IdMessage.Recipients.Add.Address := 'destinataire@domaine.com' ; 
  
  IdMessage.Subject := 'Sujet du message'; 
  
  IdMessage.ContentType := 'multipart/alternative'; //Message 'découpé' en plusieurs parties 
  
  Message := Memo1.Lines; //par exemple... il faut juste que ce soit un TStrings ! 
  
  //Ici on va créer les différentes parties du message 
  //Au cas où le client ne gère pas les messages HTML : 
  With TIdText.Create(IdMessage.MessageParts, Message) Do 
  Begin 
    ContentType := 'text/plain'; 
    Body.Insert(0, 'Ce message est un message HTML. Configurez votre client de courrier électronique' + 
  'pour le visionner de manière appropriée'); 
  end; 
  
  //Ajout du message au format HTML (en supposant que Message contient du HTML) : 
  with TIdText.Create(IdMessage.MessageParts, Message) do 
    ContentType := 'text/html'; 
  
  //Et maintenant, l'ajout des pièces jointes : 
  //Le tableau de strings Fichiers doit être remplis avec les chemins complets des fichiers à inclure 
  for i := Low(Fichiers) to High(Fichiers) do 
    TIdAttachment.Create(IdMessage.MessageParts, Fichiers[i]); 
  
  //On passe ensuite à l'envoi du message: 
  IdSMTP := TIdSMTP.Create(nil) ; //Création dynamique du composant 
  
  IdSMTP.Port := 25; //Le port SMTP standard... 
  IdSMTP.Host := 'smtp.serveur.com';  //Le serveur auquel se connecter 
  
  //Ensuite on se connecte et on envoit le message, en gérant les erreurs, tant qu'à faire ! 
  Try 
    Try 
      IdSMTP.Connect; 
      IdSMTP.Send(IdMessage); 
    except 
      on e: exception do MessageDlg(e.Message, mtError, [mbOK], 0); 
    end; 
  finally 
    IdSMTP.Disconnect; 
    IdSMTP.Free; 
    IdMessage.Free; 
  end; 
  
end;

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
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
var 
  IdMessage: TIdMessage; 
  IdSSLIOHandlerSocketOpenSSL1: TIdSSLIOHandlerSocketOpenSSL; 
  IdSMTP: TIdSMTP; 
  Message: TStrings; 
  i: Integer; 
  Fichiers: Array Of String; 
begin 
  IdMessage := TIdMessage.Create(nil); //création dynamique du composant 
  
  IdMessage.From.Address := 'expediteur@domaine.com'; 
  
  //Ces deux lignes peuvent-être répétées autant de fois que vous désirez  
  //d'adresse de réponse et/ou de destinataire 
  IdMessage.ReplyTo.Add.Address := 'expediteur@domaine.com'; 
  IdMessage.Recipients.Add.Address := 'destinataire@domaine.com' ; 
  
  IdMessage.Subject := 'Sujet du message'; 
  
  IdMessage.ContentType := 'multipart/alternative'; //Message 'découpé' en plusieurs parties 
  
  Message := Memo1.Lines; //par exemple... il faut juste que ce soit un TStrings ! 
  
  //Ici on va créer les différentes parties du message 
  //Au cas où le client ne gère pas les messages HTML : 
  With TIdText.Create(IdMessage.MessageParts, Message) Do 
  Begin 
    ContentType := 'text/plain'; 
    Body.Insert(0, 'Ce message est un message HTML. Configurez votre client de courrier électronique' + 
   'pour le visionner de manière appropriée'); 
  end; 
  
  //Ajout du message au format HTML (en supposant que Message contient du HTML) : 
  with TIdText.Create(IdMessage.MessageParts, Message) do 
    ContentType := 'text/html'; 
  
  //Et maintenant, l'ajout des pièces jointes : 
  //Le tableau de strings Fichiers doit être remplis avec les chemins complets des fichiers à inclure 
  for i := Low(Fichiers) to High(Fichiers) do 
    TIdAttachment.Create(IdMessage.MessageParts, Fichiers[i]); 
  
  //On passe ensuite à l'envoi du message: 
  IdSMTP := TIdSMTP.Create(nil) ; //Création dynamique du composant 
  
  IdSMTP.Port := 25; //Le port SMTP standard...  
  IdSMTP.Host := 'smtp.serveur.com';  //Le serveur auquel se connecter 
  
// paramétrage de la connexion SSL. 
If SSLConnect Then 
 begin 
   IdSMTP1.IOHandler := IdSSLIOHandlerSocketOpenSSL1; 
   IdSSLIOHandlerSocketOpenSSL1.SSLOptions.RootCertFile :='RootCert.cer'; 
   IdSSLIOHandlerSocketOpenSSL1.SSLOptions.CertFile := 'Certificat.cer'; 
   IdSSLIOHandlerSocketOpenSSL1.SSLOptions.KeyFile := ''; 
   IdSSLIOHandlerSocketOpenSSL1.SSLOptions.Method := sslvSSLv3; 
 end; 
  
  //Ensuite on se connecte et on envoit le message, en gérant les erreurs, tant qu'à faire ! 
  Try 
    Try 
      IdSMTP.Connect; 
      IdSMTP.Send(IdMessage); 
    except 
      on e: exception do MessageDlg(e.Message, mtError, [mbOK], 0); 
    end; 
  finally 
    IdSMTP.Disconnect; 
    IdSMTP.Free; 
    IdMessage.Free; 
  end; 
  
end ;

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
procedure TMain.RetrieveIdMailFromOutlook; 
var 
  Registry: TRegistry; 
begin 
  Registry := TRegistry.Create; 
  try 
    Registry.RootKey := HKEY_CURRENT_USER; 
    if Registry.OpenKeyReadOnly('Software\microsoft\internet account manager\Accounts\00000001') then 
      begin 
edtHost.Text := Registry.ReadString('SMTP Server'); 
IdSMTP.Host := edtHost.Text; 
IdMessage.Sender.Address := Registry.ReadString('SMTP EMail Address'); 
IdMessage.Sender.Name := Registry.ReadString('SMTP Display Name'); 
{ Assignation des champs From afin de les faire correspondre avec l'envoyeur } 
IdMessage.From.Assign(IdMessage.Sender); 
      end else 
raise exception.Create('Don''t match outlook data !'); 
  finally 
    Registry.Free; 
  end; 
end;

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
procedure TMain.RetrieveIdMailFromEudora; 
var 
  IniPath: string; 
  Registry: TRegistry; 
  IniEudora: TIniFile; 
begin 
  Registry := TRegistry.Create; 
  try 
    Registry.RootKey := HKEY_CURRENT_USER; 
    if Registry.OpenKeyReadOnly('Software\Qualcomm\Eudora\CommandLine') then 
      begin 
IniPath := Registry.ReadString('Current'); 
{ Récupération du Chemin/Nom du fichier de configuration pour l'utilisateur } 
{ de l'ordinateur (loggé) qui est le dernier dans la chaîne } 
while pos(' ',IniPath) <> 0 do  
  delete(IniPath,1,pos(' ',IniPath)); 
IniEudora := TIniFile.Create(IniPath); 
edtHost.Text := IniEudora.ReadString('Settings','SMTPServer',''); 
IdSMTP.Host := edtHost.Text; 
IdMessage.Sender.Address := IniEudora.ReadString('Settings','ReturnAddress',''); 
IdMessage.Sender.Name := IniEudora.ReadString('Settings','RealName',''); 
{ Assignation des champs From afin de les faire correspondre avec l'envoyeur } 
IdMessage.From.Assign(IdMessage.Sender); 
      end; 
  finally 
    FreeAndNil(Registry); 
    FreeAndNil(IniEudora); 
  end; 
end;

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
var 
  IdHTTP1:Tidhttp; 
  MyStreamt:TMemoryStream; 
  jp:TJpegImage; 
begin 
  MyStreamt:=TMemoryStream.Create; { ou tout autre TStream } 
  Try 
    IdHTTP1:=Tidhttp.Create(nil); 
    Try 
      IdHTTP1.Get('http://www.developpez.biz/images/logo.jpg',Mystreamt); 
    except 
      ShowMessage('Fichier indisponible'); 
      Exit; 
    End; 
    Mystreamt.Seek(0, soFromBeginning);  { on rembobine le stream } 
    jp:=TJpegImage.Create; 
    Try 
      jp.LoadFromStream(MyStreamt); 
      Image1.Picture.Assign(jp); 
    Finally 
      jp.free; 
    End; 
  Finally 
    IdHTTP1.Free; 
    MyStreamt.Free; 
  End; 
end;

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
procedure ListerLiens(List: TStrings; IEApp: OLEVariant; aURL:string);  
var  
  IEApp: OLEVariant;  
  nbLinks,i:Integer;  
begin  
  //Si l'objet OLE n'est pas créé  
  if(VarIsEmpty(IEApp))then  
  begin  
    //Créer l'objet OLE  
    IEApp := CreateOleObject('InternetExplorer.Application');  
    //Le rendre visible  
    IEApp.Visible := true;  
    //Ouvrir la page spécifiée pas aURL dans l'objet OLE  
    IEApp.Navigate(aURL);  
  end;  
  
    //Attendre que la page soit complètement chargée avec  
    // READYSTATE_COMPLETE = 4  
    while Cardinal(IEApp.readyState) <> 4 do sleep(1000);  
  
    // Récupérer le nombre de liens  
    nblinks := Cardinal(IEApp.Document.links.length);  
    //Ajouter le nombre de liens dans le TStrings  
    List.Add(Format('Nombre de liens = %d',[nblinks]));  
  
    // Ajoute les liens à la suite du TStrings  
    for i := 0 to nblinks - 1 do  
      Self.MemoLog.Lines.Add(string(IEApp.Document.links.item(i).href));  
end;

1
2
3
4
procedure CliqueLien(LinkIndex:Integer);  
begin  
  IEApp.Document.links.item(LinkIndex).click;  
end;

use Classes, WinInet;

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
function TForm1.DownloadFileHttp(const fileURL,FileName: string):Boolean ; 
 const BufferSize = 1024; 
var hSession, hURL: HInternet; 
    Buffer: array[1..BufferSize] of Byte; 
    BufferLen: DWORD; 
    f: File; 
    sAppName: string; 
    FS:TFileStream; 
begin 
     Result   := False; 
     sAppName := ExtractFileName(Application.ExeName); 
  
     hSession := InternetOpen(PChar(sAppName), INTERNET_OPEN_TYPE_PRECONFIG, 
	   'xxx_Login_Proxy_Nom Utilisateur_xxx', 'xxx_Login_Proxy_Mot_de_Passe_xxx', 0); 
  
     if FileExists(FileName) then DeleteFile(FileName); 
     FS:=TFileStream.Create(FileName,fmCreate); 
     try 
        hURL := InternetOpenURL(hSession, PChar(fileURL), nil,0,0,0); 
        try 
           repeat 
             InternetReadFile(hURL, @Buffer, BufferSize, BufferLen); 
             FS.WriteBuffer(Buffer, BufferLen); 
             Label1.Caption:=IntToStr(fs.Size); 
           until BufferLen = 0; 
           Result:=True; 
        finally 
          InternetCloseHandle(hURL) 
        end 
     finally 
         InternetCloseHandle(hSession); 
         FS.Free; 
     end 
end;