function GetContent(URL: String): String; - Форум - Stas'M Corp.
Stas'M Corp.
Главная | function GetContent(URL: String): String; - Форум | Регистрация | Вход
 
Среда, 18.01.2017, 00:17
Приветствую Вас Гость | RSS
| ENG | RUS
Форма входа

Информация о тебе:

IP-адрес: 54.204.138.206
Браузер: Неизвестен
Основные разделы
Мини-чат
Loading Загрузка сообщений...
Наш опрос
Каким поисковиком пользуетесь?

Всего ответов: 396
[ Новые сообщения · Участники · Правила форума · Поиск · RSS ]
Страница 1 из 11
Модератор форума: Administrator, Phantom, b@bskEnízm 
Форум » Хакерский форум » Программирование: Delphi & Pascal » function GetContent(URL: String): String; (Получение текстового содержимого по ссылке)
function GetContent(URL: String): String;
AdministratorДата: Суббота, 04.06.2011, 18:32 | Сообщение # 1
Admin
Группа: Администраторы
Сообщений: 89
Награды: 39
Репутация: 50
Статус: Offline
Данная функция позволяет загрузить веб страницу в строку средствами WinInet.
 
uses
  WinInet;

function GetContent(URL: String): String;
const
  BufferSize = 1024;
  UserAgent = 'Mozilla/5.0 (Windows; U; Windows NT 5.1; ru) Gecko/20100722 Firefox/3.6.8';
var
  hSession, hURL: HInternet;
  Buffer: array[1..BufferSize] of Byte;
  BufferLen: DWORD;
  I: Integer;
  S: String;
begin
  S:='';
  hSession:=InternetOpen(PChar(UserAgent),INTERNET_OPEN_TYPE_PRECONFIG,nil,nil,0);
  try
    hURL:=InternetOpenURL(hSession,PChar(URL),nil,0,0,0);
    try
      repeat
        InternetReadFile(hURL,@Buffer,SizeOf(Buffer),BufferLen);
        for I:=1 to BufferLen do S:=S+chr(Buffer[I]);
      until BufferLen = 0;
    finally
      InternetCloseHandle(hURL)
    end
  finally
    InternetCloseHandle(hSession)
  end;
  Result:=S;
end;


Stas'M
 
Форум » Хакерский форум » Программирование: Delphi & Pascal » function GetContent(URL: String): String; (Получение текстового содержимого по ссылке)
Страница 1 из 11
Поиск:

Веб приложения
Пожертвование / Donate
WMWebMoney transferZ358077191062
WMWebMoney transferE208225402366
WMWebMoney transferR303537803958
WMWebMoney transferB345247247920
Reg.ruReg.ru transfer9900126333
WUWestern Union transferuse feedback form
BTCBitcoin transferuse feedback form
Друзья сайта

Просим вас посещать сайты наших друзей! Они достойны такого же внимания как и мы!

Пользователи

Пользователи онлайн:
Статистика
Рейтинг@Mail.ru
Проект ReactOS

Copyright © Stas'M Corp. 2017Хостинг от uCoz