Delphi 7 + PHP

@koskjt · Регистрация: 06.03.2014

Author24 — интернет-сервис помощи студентам

Коллеги помогите, уже все изгуглиг никак не могу решить одну задачку.

Есть элемент image. В нем нужно отображать фото с линка.

Линк который отдает фото(рабочий): http://studio-spy.com/photo_test.php

Код который отдает картинку, $code_base64 подрезал, много места занимает:

PHP

$code_base64="data:image/jpeg;base64,/9j/4AAQSkZJ......";
 
$data = str_replace('data:image/jpeg;base64,','',$code_base64);
$data = base64_decode($data);
 
$im = imagecreatefromstring($data);
if ($im !== false) {
    header('Content-Type: image/jpeg');
    imagejpeg($im);
    imagedestroy($im);
}
else {
    echo 'Произошла ошибка.';
}

Раньше грузил из шары, было проще, теперь нужно с линка:

Delphi

if FileExists(ImageFolder+tmp+'.jpg') then
begin
image1.Picture.LoadFromFile(ImageFolder+tmp+'.jpg');
end
else
begin
image1.Picture.LoadFromFile('no.jpg');
end;

@droider · 21.03.2018, 09:20

Сообщение от koskjt

уже все изгуглиг никак не могу решить

плохо гуглили. Далеко ходить не надо было. См. Загрузка картинки из интернета в Timage

@koskjt · 21.03.2018, 09:50 **[ТС]**

Хе, вот же )) Благодарю)

@Puporev · 21.03.2018, 09:59

koskjt, В другой раз не обязательно

Сообщение от koskjt

все изгуглиг

Для начала проидитесь в Поиске по форуму.
Да и гугли Вы что-то не то, если вообще гуглили, ибо я по запросу "Загрузить изображение по ссылке" нашел кучу похожих тем.

@droider 4912 / 2781 / 853 Регистрация: 04.10.2012 Сообщений: 10,121
	21.03.2018, 09:20	2
	Сообщение было отмечено koskjt как решение Решение Сообщение от koskjt уже все изгуглиг никак не могу решить плохо гуглили. Далеко ходить не надо было. См. Загрузка картинки из интернета в Timage 1

@koskjt 0 / 0 / 0 Регистрация: 06.03.2014 Сообщений: 8
	21.03.2018, 09:50 [ТС]	3
	Хе, вот же )) Благодарю) 0

@Puporev Почетный модератор 64300 / 47595 / 32743 Регистрация: 18.05.2008 Сообщений: 115,181
	21.03.2018, 09:59	4
	koskjt, В другой раз не обязательно Сообщение от koskjt все изгуглиг Для начала проидитесь в Поиске по форуму. Да и гугли Вы что-то не то, если вообще гуглили, ибо я по запросу "Загрузить изображение по ссылке" нашел кучу похожих тем. 0

Delphi 7 + PHP

Решение