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

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

IP-адрес: 18.212.90.230
Браузер: Неизвестен
Основные разделы
Мини-чат
Loading Загрузка сообщений...
Наш опрос
На данный момент в разработке несколько проектов. Какие бы вы хотели увидеть в первую очередь?
Всего ответов: 404
[ Новые сообщения · Участники · Правила форума · Поиск · RSS ]
  • Страница 1 из 1
  • 1
Модератор форума: 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
Группа: Администраторы
Сообщений: 90
Награды: 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 из 1
  • 1
Поиск:

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

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

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

Пользователи онлайн:
Статистика

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