Cirec
Messages postés3833Date d'inscriptionvendredi 23 juillet 2004StatutModérateurDernière intervention18 septembre 202250 13 oct. 2009 à 17:59
effectivement le "Get" ne fonctionne pas avec ce genre d'URL ... néanmoins une solution existe
mais il faut passer par le HD ...
Edit1.Text: contient l'URL donnée plus haut.
[hr]uses Urlmon;
procedure TForm1.Button1Click(Sender: TObject);
[b]begin
if /bUrlDownloadToFile(nil, PChar(Edit1.Text), PChar('Test.jpg'), 0, nil) = 0 [b]then
/bImage1.Picture.LoadFromFile('Test.jpg');
end;
[hr]