Форум: "Сети";
Текущий архив: 2006.03.26;
Скачать: [xml.tar.bz2];

Вниз

Download файлов с использованием ТHTTPReqResp   Найти похожие ветки 

← →
stone ©   (2005-12-13 10:28) [0]

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

---

← →
umbra ©   (2005-12-13 10:38) [1]

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

---

← →
stone ©   (2005-12-13 11:39) [2]

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

WebServices

---

← →
umbra ©   (2005-12-13 11:58) [3]

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

---

← →
stone ©   (2005-12-13 12:05) [4]

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

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

---

← →
Васяня   (2005-12-13 12:07) [5]

> umbra ©

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

---

← →
Плохиш ©   (2005-12-13 12:23) [6]

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

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

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

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

---

← →
Васяня   (2005-12-13 12:42) [7]

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

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, просто не умею я так... тока не бейте... :)

---

← →
stone ©   (2005-12-13 12:56) [8]

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

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

---

← →
umbra ©   (2005-12-13 12:56) [9]

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

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

---

← →
Васяня   (2005-12-13 13:04) [10]

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

---

Страницы: 1 вся ветка

Форум: "Сети";
Текущий архив: 2006.03.26;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.47 MB
Время: 0.737 c