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
-
kuetedonald
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.

4 réponses

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);
Messages postés
3809
Date d'inscription
vendredi 23 juillet 2004
Statut
Modérateur
Dernière intervention
25 janvier 2020
35
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
kuetedonald
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
Messages postés
3809
Date d'inscription
vendredi 23 juillet 2004
Statut
Modérateur
Dernière intervention
25 janvier 2020
35
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.
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.