| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Download файлов с использованием ТHTTPReqResp [D7, WinXP]

stone ©   (2005-12-13 10:28:00) 

Где почитать про сабж или посмотреть примеры?

---

Васяня   (2005-12-13 13:04:00) [1]

ДА тогда тут яндексом не обойдешь, тут надо что посерьезней? возможно google.ru и немножко желания помыслить помогут?

---

stone   (2005-12-13 12:56:00) [2]

> Васяня   (13.12.05 12:42) [7]
> и опять нас спасает яндекс:

Я рад за Вас вместе с Яндексом :)
Вобщем-то, мне известно несколько способов получения файла. В данном случае меня интересует возможность использования именно сабжа, если таковая имеется.

---

umbra   (2005-12-13 12:56:00) [3]

2 Васяня   (13.12.05 12:07) [5]

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

---

Васяня   (2005-12-13 12:42:00) [4]

и опять нас спасает яндекс:

Forces a download of the requested file, object, or directory
listing from the origin server, not from the cache}

function DownloadURL_NOCache(const aUrl: string; var s: String): Boolean;
var
  hSession: HINTERNET;
  hService: HINTERNET;
  lpBuffer: array[0..1024 + 1] of Char;
  dwBytesRead: DWORD;
begin
  Result := False;
  s := '';
  // hSession := InternetOpen( 'MyApp', INTERNET_OPEN_TYPE_DIRECT, nil, nil, 0);
 hSession := InternetOpen('MyApp', INTERNET_OPEN_TYPE_PRECONFIG, nil, nil, 0);
  try
    if Assigned(hSession) then
    begin
      hService := InternetOpenUrl(hSession, PChar(aUrl), nil, 0, INTERNET_FLAG_RELOAD, 0);
      if Assigned(hService) then
        try
          while True do
          begin
            dwBytesRead := 1024;
            InternetReadFile(hService, @lpBuffer, 1024, dwBytesRead);
            if dwBytesRead = 0 then break;
            lpBuffer[dwBytesRead] := #0;
            s := s + lpBuffer;
          end;
          Result := True;
        finally
          InternetCloseHandle(hService);
        end;
    end;
  finally
    InternetCloseHandle(hSession);
  end;
end;

//aufrufen
var
  s: String;
begin
 if DownloadURL(' http://www.swissdelphicenter.ch/', s) then
   ShowMessage(s);
end;

Надеюсь это требовалось... stone, госпадин извените что не через ТHTTPReqResp, просто не умею я так... тока не бейте... :)

---

Плохиш   (2005-12-13 12:23:00) [5]

> stone ©   (13.12.05 10:28)  
> Где почитать про сабж или посмотреть примеры?

В справке к делфи.

> Download файлов с использованием ТHTTPReqResp

Согласно справке этот компонент используется для других целей.

---

Васяня   (2005-12-13 12:07:00) [6]

> umbra ©

А в чем проблема?

---

stone   (2005-12-13 12:05:00) [7]

> umbra ©   (13.12.05 11:58) [3]
> Демки есть в Borland\Delphi7\Demos\WebServices\

Ну спасибо, что бы я без тебя делал :)) Ты сам эти примеры смотрел?

---

umbra   (2005-12-13 11:58:00) [8]

Демки есть в Borland\Delphi7\Demos\WebServices\

---

stone   (2005-12-13 11:39:00) [9]

> umbra ©   (13.12.05 10:38) [1]
> а что это за зверь?

WebServices

---

umbra   (2005-12-13 10:38:00) [10]

а что это за зверь?

---

Наверх