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

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