1. Accueil
  2. Forum Codes-Sources
  3. Delphi / Pascal
Sujet Précédent Sujet Suivant

Chargement des images en ligne

Résolu
kuetedonald
Messages postés
49
Date d'inscription
vendredi 30 mai 2014
Statut
Membre
Dernière intervention
4 octobre 2016
 - 30 mai 2014 à 12:20
kuetedonald
Messages postés
49
Date d'inscription
vendredi 30 mai 2014
Statut
Membre
Dernière intervention
4 octobre 2016
 - 30 mai 2014 à 16:22
depuis une semaine que j'essaie de charger une image dans un formulaire.
j'explique: j'ai un composant Timage , une URL: www.monsite.com ; je voudrais qu'en cliquant sur un bouton l'application telecharge tout les images de cette page et affiche une dans le TImage. sans utiliser un webBrowser car fireMonkey n'utilise pas de webBrowser. svp aider moi.

4 réponses

Réponse 1 / 4
kuetedonald
Messages postés
49
Date d'inscription
vendredi 30 mai 2014
Statut
Membre
Dernière intervention
4 octobre 2016
 3
30 mai 2014 à 12:43
je pensait qu'il faut utiliser le Timage.bitmap.loadfromStream(stream);
0
Réponse 2 / 4
Cirec
Messages postés
3832
Date d'inscription
vendredi 23 juillet 2004
Statut
Modérateur
Dernière intervention
17 février 2022
 48
Modifié par Cirec le 30/05/2014 à 13:14
Salut,

regarde ce snippet:


ps: contrairement à ce que l'on pourrait croire ce snippet est bien de moi et non de Nix comme indiqué sur la page !!!

    
@+ Cirec
0
kuetedonald
Messages postés
49
Date d'inscription
vendredi 30 mai 2014
Statut
Membre
Dernière intervention
4 octobre 2016
 3
30 mai 2014 à 14:36
merci beaucoup ce code marche sur les application vcl mais pas sur fireMonkey et moi je travaille sur fireMonkey
0
Réponse 3 / 4
Cirec
Messages postés
3832
Date d'inscription
vendredi 23 juillet 2004
Statut
Modérateur
Dernière intervention
17 février 2022
 48
30 mai 2014 à 16:01
ah désolé ... je n'ai pas de FireMonkey ... je ne peux donc pas t'aider plus que ça . Mais le code doit être adaptable.
0
Réponse 4 / 4
kuetedonald
Messages postés
49
Date d'inscription
vendredi 30 mai 2014
Statut
Membre
Dernière intervention
4 octobre 2016
 3
Modifié par kuetedonald le 30/05/2014 à 16:24
mais j'ai modifier cette reponse pour telecharger en ligne les images 


Function LoadImageFromUrl(Const aUrl: String; Const  aImage: TImage): boolean;
Var
  aStream : TMemoryStream;
Begin
  Result := assigned(aImage);
  If  Result Then
  Begin

    aStream := TMemoryStream.Create;
    With TIdHTTP.Create(nil) Do
    Try
      Try
        Get(aUrl, aStream);
        aStream.Seek(0, soFromBeginning);
      aImage.Bitmap.LoadFromStream(aStream);
      Except
        Result := False;
      End;
    Finally
      aStream.Free;
      Free;
    End;
  End;
End;

je teste comme ceci: 


procedure TForm3.Button2Click(Sender: TObject);
begin
  if LoadImageFromUrl('http://images.playfrance.com/news/64941/zoom/0297.jpg',Image1) then
    begin
      showMessage('good uploaded');
    end
    else
       begin
           showMessage('failed uploaded');
    end;

end;

et ca marche a merveille . merci beaucoup.
0