VPF::Проблема с delphi 7 - Форум программистов

fridrih777

Дата 11.3.2008, 14:45 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 54
Регистрация: 23.12.2007

Репутация: нет
Всего: нет

Здраствуйте такая проблемма. Нашёл в DRKB такой пример получения HTML кода.

Код


procedure TForm1.Button1Click(Sender: TObject); 

begin 

NMHTTP1.Get('www.swissdelphicenter.ch'); 

memo1.Text := NMHTTP1.Body 

end;

У меня на Пк установлен Delphi 7 я никак не могу найти компонент NMHTTP. Помогите пожалуйста. Возможно его можно заменить или как я не знаю. Заранее благодарю!

VICTAR

Дата 11.3.2008, 16:58 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Участник
Сообщений: 1108
Регистрация: 6.10.2006

Репутация: 3
Всего: 80

Возьми Indy

ama_kid

Дата 11.3.2008, 17:13 (ссылка)

(нет голосов)

Загрузка ...

АСУТП-кодер

Профиль
Группа: Комодератор
Сообщений: 1460
Регистрация: 5.3.2007
Где: Москва

Репутация: нет
Всего: 95

fridrih777 как вариант - можешь использовать функцию:

Код

function DownloadFile(const Url: string): string;
var
  NetHandle: HINTERNET;
  UrlHandle: HINTERNET;
  Buffer: array[0..1024] of char;
  BytesRead: cardinal;
begin
  Result := '';
  NetHandle := InternetOpen('Delphi 7.x', INTERNET_OPEN_TYPE_PRECONFIG, nil, nil, 0);

  if Assigned(NetHandle) then
  begin

    UrlHandle := InternetOpenUrl(NetHandle, PChar(Url), nil, 0, INTERNET_FLAG_RELOAD, 0);

    { UrlHandle правильный? Начинаем загрузку }
    if Assigned(UrlHandle) then
    begin
      FillChar(Buffer, SizeOf(Buffer), 0);
      repeat
        Result := Result + Buffer;
        FillChar(Buffer, SizeOf(Buffer), 0);
        InternetReadFile(UrlHandle, @Buffer, SizeOf(Buffer), BytesRead);
      until
        BytesRead = 0;
      InternetCloseHandle(UrlHandle);
    end
    else
    begin
      { UrlHandle неправильный. Генерируем исключительную ситуацию. }
      raise Exception.CreateFmt('Cannot open URL %s', [Url]);
    end;

    InternetCloseHandle(NetHandle);
  end
  else
    { NetHandle недопустимый. Генерируем исключительную ситуацию }
    raise Exception.Create('Unable to initialize Wininet');
end;

--------------------

самурай без меча подобен самураю с мечом, но только без меча

MetalFan

Дата 11.3.2008, 17:27 (ссылка)

(нет голосов)

Загрузка ...

Аццкий Сотона

Профиль
Группа: Комодератор
Сообщений: 3815
Регистрация: 2.10.2006
Где: Moscow

Репутация: 14
Всего: 128

Цитата(ama_kid @ 11.3.2008, 17:13

)

raise Exception.CreateFmt('Cannot open URL %s', [Url]);

не самый правильный ход,
в это случае не выполнится

Цитата(ama_kid @ 11.3.2008, 17:13

)

InternetCloseHandle(NetHandle);

и как следствие возможна утечка ресурсов

Это сообщение отредактировал(а) MetalFan - 11.3.2008, 17:27

--------------------

There are always someone smarter than you...

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Сети \| Следующая тема »