Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Сети";
Текущий архив: 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.045 c
1-1140096851
Дмитрий_177
2006-02-16 16:34
2006.03.26
Как увеличить изображение в Image?


15-1141191738
Ega23
2006-03-01 08:42
2006.03.26
С Днём рождения! 1 марта


2-1142244119
Fenix
2006-03-13 13:01
2006.03.26
Проблема со String


3-1138718238
Mac_
2006-01-31 17:37
2006.03.26
Как сохранить результат запроса в dbf формате ?


2-1142083990
Horadric
2006-03-11 16:33
2006.03.26
как из текстового поля Edit достать выражение





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский