Topic: to capture image (jpg) of the Internet

How can I capture automatically an image (jpg) of the Internet straightly for a DBImage1?

Roberto Alencar

Re: to capture image (jpg) of the Internet

Example

   
if HTTPGetFile('https://domain.com/image.jpg', ExtractFilePath(Application.ExeName) + 'image.jpg', False) then
begin
    Form1.DBImage1.dbImageIsChanged := True;
    Form1.DBImage1.Picture.LoadFromFile(ExtractFilePath(Application.ExeName) + 'image.jpg');
    Form1.DBImage1.dbFileName := ExtractFilePath(Application.ExeName) + 'image.jpg';
end;
Dmitry.