Последние записи

Интенсив по Python: Работа с API и фреймворками 24-26 ИЮНЯ 2022. Знаете Python, но хотите расширить свои навыки?
Slurm подготовили для вас особенный продукт! Оставить заявку по ссылке - https://slurm.club/3MeqNEk

Online-курс Java с оплатой после трудоустройства. Каждый выпускник получает предложение о работе
И зарплату на 30% выше ожидаемой, подробнее на сайте академии, ссылка - ttps://clck.ru/fCrQw

10th
Окт

В TMemoryStream используя LoadFromStream загрузить картинку с сайта

Posted by Chas under Delphi

Вобщем нужно в TMemoryStream используя LoadFromStream загрузить картинку с сайта, при этом в ссылке используется переменная типа string, и оно мне пишет что не совместимые типы (даже если ссылку без переменной типа string пихаю, пишет это же)

kangreon
Пример загрузки изображения с сайта:

function DownloadPage(ImageLink: string; var Stream: TMemoryStream): Boolean;

var

  http: TIdHTTP;

begin

  Stream.Position := 0;

  Stream.Size := 0;
  http := TIdHTTP.Create;

  try

    try

      http.Get(ImageLink, Stream);

      Result := True;

    except

      Result := False;

    end;

  finally

    http.Free;

  end;
  Stream.Position := 0;

end;
procedure TForm1.Button1Click(Sender: TObject);

var

  Stream: TMemoryStream;

  PageLink: string;

begin

  PageLink := 'http://site.com/1.png';
  Stream := TMemoryStream.Create;

  try

    if DownloadPage(PageLink, Stream) then

    begin

      // Тут выполнять действия с загруженными данными

    end;

  finally

    Stream.Free;

  end;

end;

Человек_Борща
Ещё вариант, на упрощённом синапсе.

var

  http:THTTPSendEx;

  sURL,sSavePath:string;

begin

 http:=THTTPSendEx.Create;

 try

   sURL:='http://localhost/file.jpg';

   sSavePath:='c:\file.jpg';

   if http.DownloadFile(sURL,sSavePath) then

   begin

      if http.IsSuccessfull then

      ShowMessage('Скачался')

      else

      ShowMessage('Нету файла в сети.');

   end

    else ShowMessage('Обломчик, интернетов нет. ');
 finally

   freeAndNil(http);

 end;

end;