1. Accueil
  2. Forum Codes-Sources
  3. Delphi / Pascal

Chargement des images en ligne [Résolu]

Signaler
Messages postés
49
Date d'inscription
vendredi 30 mai 2014
Statut
Membre
Dernière intervention
4 octobre 2016
 -
Messages postés
49
Date d'inscription
vendredi 30 mai 2014
Statut
Membre
Dernière intervention
4 octobre 2016
 -
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.
Afficher la suite

4 réponses

Réponse 1 / 4
Messages postés
49
Date d'inscription
vendredi 30 mai 2014
Statut
Membre
Dernière intervention
4 octobre 2016
 3
je pensait qu'il faut utiliser le Timage.bitmap.loadfromStream(stream);
Réponse 2 / 4
Messages postés
3810
Date d'inscription
vendredi 23 juillet 2004
Statut
Modérateur
Dernière intervention
28 mai 2020
 29
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
Signaler
Messages postés
49
Date d'inscription
vendredi 30 mai 2014
Statut
Membre
Dernière intervention
4 octobre 2016
 3
merci beaucoup ce code marche sur les application vcl mais pas sur fireMonkey et moi je travaille sur fireMonkey
Réponse 3 / 4
Messages postés
3810
Date d'inscription
vendredi 23 juillet 2004
Statut
Modérateur
Dernière intervention
28 mai 2020
 29
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.
Réponse 4 / 4
Messages postés
49
Date d'inscription
vendredi 30 mai 2014
Statut
Membre
Dernière intervention
4 octobre 2016
 3
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.
Répondre Posez votre question