chargement des images en ligne Résolu

Question

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.

kuetedonald · Answer

je pensait qu'il faut utiliser le  Timage.bitmap.loadfromStream(stream);

Cirec · Answer

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 !!!

&#8194;&#8194;&#8194;&#8194;@+ Cirec

Cirec · Answer

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.

kuetedonald · Answer

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.

Chargement des images en ligne

4 réponses

Votre réponse

Discussions similaires