Перейти к содержанию
  • 0
RADStudioDeveloper

NetHTTPClient1.Get(URL, FS) - получить имя загружаемого файла

Вопросы

Привет всем!

Загрузка с WEB сервера файла с помощью

NetHTTPClient

NetHTTPClient1.Get(URL, FS) - загрузка проходит хорошо.

Вопрос как получить имя загружаемого файла?

Есть реально работающее решение?

 

 

Поделиться сообщением


Ссылка на сообщение

Рекомендуемые сообщения

  • 0
53 минут назад, OnePeople сказал:

Либо выдергивают из url или уже из самого файла( у мультимедиа например из тэгов)

Имени файла в URL нет! Пример https://telegram.org/dl/desktop/win

Поделиться сообщением


Ссылка на сообщение
  • 0
11 часов назад, OnePeople сказал:

В данном случае имя файла в responseHeader     

Location:https://updates.tdesktop.com/tsetup/tsetup.2.4.2.exe

Благодарю за отклик!

Абсолютно верно!

Как получить в Delphi коде  responseHeader (https://updates.tdesktop.com/tsetup/tsetup.2.4.2.exe) используя NetHTTPClient?

Поделиться сообщением


Ссылка на сообщение
  • 0

как обычно делаю это я:

идем в доки и ищем там слово header

http://docwiki.embarcadero.com/RADStudio/Sydney/en/Using_an_HTTP_Client

и прямо по ссылкам смотрим, как работать с этими хедерами

что из вышперечисленного вы не смогли сделать???

Поделиться сообщением


Ссылка на сообщение
  • 0

Krapotkin, благодарю за отклик!

 

Пробовал многое, вот к примеру: 

работает, но редирект на загружаемый файл responseHeader (https://updates.tdesktop.com/tsetup/tsetup.2.4.2.exe)

в коде MemHeaders.Lines.Add(Header.Name+': '+Header.Value);  - не отображает.

 

// https://webdelphi.ru/2019/02/http-client-api-v-delphi/#klass_tnethttpresponse_-_otvet
Очень долгий ответ.

procedure TForm.Button1Click(Sender: TObject);

var MS: TMemoryStream;
    Resp: IHTTPResponse;
    Header: TNameValuePair;
    Cookie: TCookie;
begin
  memHeaders.Lines.Clear;
  memCookies.Lines.Clear;
  memContent.Lines.Clear;

  MS:=TMemoryStream.Create;

  NetHTTPRequest1.ContentStream:=MS;
  NetHTTPRequest1.MethodString:='get';
  NetHTTPRequest1.URL:=edURL.Text;
  Resp:=NetHTTPRequest1.Execute();
  try
   //загружаем контент
    memContent.Lines.LoadFromStream(NetHTTPRequest1.ContentStream);
   //выводим заголовки
    for Header in Resp.Headers do
      MemHeaders.Lines.Add(Header.Name+': '+Header.Value);
   //выводим куки
    for Cookie in Resp.Cookies do
      memCookies.Lines.Add(Cookie.ToString);
   //выводим версию HTTP
    case Resp.Version of
      THTTPProtocolVersion.UNKNOWN_HTTP: lbHttpVer.Caption:='n/a';
      THTTPProtocolVersion.HTTP_1_0: lbHttpVer.Caption:='1.0';
      THTTPProtocolVersion.HTTP_1_1: lbHttpVer.Caption:='1.1';
      THTTPProtocolVersion.HTTP_2_0: lbHttpVer.Caption:='2.0';
    end;
   //выводим код статуса
    lbStatusCode.Caption:=Resp.StatusCode.ToString;
  finally
    FreeAndNil(MS)
  end;
end;

end.

Отредактировал RADStudioDeveloper

Поделиться сообщением


Ссылка на сообщение
  • 0

Вы не видите Location потому что получаете заголовки уже после редиректа, т.е. заголовки уже для самого файла.

А Location появляется во время первого запроса по адресу https://telegram.org/dl/desktop/win, там то как раз сервер и сообщает (в заголовках), что ваш запрос будет перенаправлен по адресу https://updates.tdesktop.com/tsetup/tsetup.2.4.2.exe и выдаёт вам новую порцию заголовков без Location.

Чтобы убедиться в этом, достаточно установить HandleRedirects = False.

 

Снимок.PNG

Поделиться сообщением


Ссылка на сообщение
  • 0
type
  TOpenURLResponse=class(TURLResponse);
procedure TForm3.FormCreate(Sender: TObject);
var
  HTTPClient:THTTPClient;
  Response: IHTTPResponse;
begin
  HTTPClient:=THTTPClient.Create;
  try
    Response:=HTTPClient.Get('https://telegram.org/dl/desktop/win');
    if (Response is TURLResponse) then
      Caption:=TOpenURLResponse(Response as TURLResponse).FRequest.URL.ToString;
  finally
    HTTPClient.Free;
  end;
end;

 

Поделиться сообщением


Ссылка на сообщение

Присоединяйтесь к обсуждению

Вы можете написать сейчас и зарегистрироваться позже. Если у вас есть аккаунт, авторизуйтесь, чтобы опубликовать от имени своего аккаунта.

Гость
Ответить на вопрос...

×   Вставлено с форматированием.   Вставить как обычный текст

  Разрешено использовать не более 75 эмодзи.

×   Ваша ссылка была автоматически встроена.   Отображать как обычную ссылку

×   Ваш предыдущий контент был восстановлен.   Очистить редактор

×   Вы не можете вставлять изображения напрямую. Загружайте или вставляйте изображения по ссылке.


  • Похожий контент

    • От Mars M
      Есть такой вот код для работы с гугл переводчиком:
      procedure TfrmMain.GTranslate; var Data: TStringList; S: String; begin IdHTTP1.Request.UserAgent := 'Mozilla/5.0 (Windows; U; Windows NT 6.1; ru-RU) Gecko/20100625 Firefox/3.6.6'; Data := TStringList.Create; try Data.Text := ('client=x'#13#10 + 'text=' + Edit1.Text + #13#10 + 'hl=en'#13#10 + 'sl=en'#13#10 + 'tl=ru'); try S := (IdHTTP1.Post('http://translate.google.ru/translate_a/t', Data)); except on E: exception do ShowMessage(E.ClassName + ' error raised, with message : ' + E.Message); end; finally Data.Free; end; end; Работает без проблем.
      Переделал его для NetHttpClient, практически один в один и вместо перевода получаю html страницу с гугл капчей.
      Типа такой как получаю если заходить через браузер http://translate.google.ru/translate_a/t?client=x&text=Hello&hl=en&sl=en&tl=ru
      Так в чем между ними разница что получаю разный результат?
      PS: Просто я в проекте и так использую NetHttpClient, хотелось бы на нем и сделать а не плодить кучу однотипных компонентов.
    • От Anasazi
      Всем доброго времени суток. Возникла необходимость решить такую задачу: в таблице базы MySQL хранится список изображений и их URL. Необходимо получить этот список массивом. Затем загрузить изображения и поочередно с интервалом показать их в TImage.
      Понимаю, что получить список изображений правильнее при помощи PHP скрипта, но в каком виде скрип должен вернуть данные, чтобы в Delphi получить из них массив не знаю.
      Раньше для получения изображений использовал такую процедуру. Но вопрос, где хранить изображения перед демонстрацией их в TImage? Создавать несколько MemoryStream?
      procedure LoadWebImage(url: string; image: TBitmap);
      var
        idhttp : TNetHTTPClient;
        ms : TMemoryStream;
      begin
       IdHTTP := TNetHTTPClient.Create(nil);
        ms := TMemoryStream.Create;
        try
          idhttp.Get(url, ms);
          ms.Position := 0;
          image.LoadFromStream(ms);
        finally
          ms.Free;
          idhttp.Free;
        end;
      end;
    • От Rusland
      Как реализовать показ ProgressBar при загрузке фотографии на сервер? Интересует как именно определять сколько байт передано?
      Используется компонент NetHTTPClient.
    • От Rusland
      Вроде видел где-то пример передачи через NetHTTPClient файла (*.png или *.jpg) на сервер, но не могу вспомнить где.
      Помогите с кодом отправки файла.
       
      PS. Инди компоненты не интересуют, не хочется их инспользовать
    • От Rusland
      На NetHTTPClient пытаюсь назначить обработчик OnValidateServerCertificate:
       
      type TFrmMain = class(TForm) ... procedure OnAuthEvent(const Sender: TObject; AnAuthTarget: TAuthTargetType; const ARealm, AURL: string; var AUserName, APassword: string; var AbortAuth: Boolean; var Persistence: TAuthPersistenceType); procedure OnValidateServerCertificate(const Sender: TObject; const ARequest: TURLRequest; const [Ref] Certificate: TCertificate; var Accepted: Boolean); function TFrmMain.GetResponse2(aURL: string): TResponser; var Ss: TStringStream; NetHTTPClient2:TNetHTTPClient; Respon: IHTTPResponse; begin try NetHTTPClient2:=TNetHTTPClient.Create(nil); NetHTTPClient2.OnAuthEvent:=OnAuthEvent; NetHTTPClient2.OnValidateServerCertificate:=OnValidateServerCertificat; // ошибка компиляции ... with NetHTTPClient2 do begin Ss:=TStringStream.Create('', TEncoding.UTF8); Respon:=Get(aURL,ss); end; finally NetHTTPClient2.Free; end; end; procedure TFrmMain.OnValidateServerCertificate( const Sender: TObject; const ARequest: TURLRequest; const [Ref] Certificate: TCertificate; var Accepted: Boolean); begin Accepted:=true; end; Получаю ошибку: Incompatible types: 'Parameter lists differ'  
      Как правильно сделать?
    • От Rusland
      Так как не получается работать с IdHTTP в сервисе, решил попробовать компонент NetHTTPClient. Бросил NetHTTPClient1 на форму.
      Хочу открыть адрес https://ya.ru
      В папку \Win32\Debug положил libeay32.dll и ssleay32.dll (они рабочие, проверены с IdHTTP)
       
      Код (пока тестирую на обычном приложении, а не в сервисе):
      Получаю access violation в System.Net.HTTPClient в строке 1965 
      if (Result.Value.Chars[0] = '"') and (Result.Value[High(Result.Value)] = '"') then видимо из-за того что Result.Value пустой. 
      А если попробовать открыть https://mail.ru такого не происходит и страница нормально скачивается.
       
      В чем проблема?
  • Последние посетители   0 пользователей онлайн

    Ни одного зарегистрированного пользователя не просматривает данную страницу

×
×
  • Создать...