Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2006.03.26;
Скачать: CL | DM;

Вниз

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;
Скачать: CL | DM;

Наверх




Память: 0.49 MB
Время: 0.043 c
15-1141491463
Yegorchic
2006-03-04 19:57
2006.03.26
PHP и .gif


2-1141751190
Эля
2006-03-07 20:06
2006.03.26
минимизация многооконного приложения


15-1141160136
TStas
2006-02-28 23:55
2006.03.26
Кстати, была интересная ветка про возведение в встепень


2-1141754192
sicilla
2006-03-07 20:56
2006.03.26
PopupMenu


15-1141196909
Ega23
2006-03-01 10:08
2006.03.26
Только что