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

Вниз

Обращение к сайту   Найти похожие ветки 

 
Ezorcist   (2006-05-08 19:17) [0]

Првиведите, пожалуйста пример кода, что бы программа обращалась к сайту (просто отметилась) - типа накрутчика. (консоль)


 
Джо ©   (2006-05-09 01:08) [1]

Ну вот, примерно так, если по-быстрому.
program Project1;

{$APPTYPE CONSOLE}

uses
 Windows,
 WinInet,
 SysUtils;

var
 InetHandle,
 UrlHandle: HINTERNET;

function Read(UrlHandle: HINTERNET): string;
const
 READ_BUF_SIZE = 4096;
var
 FBuffer: array [0..READ_BUF_SIZE] of Char;
 BytesRead: Cardinal;

 function ReadBuffer: BOOL;
 begin
   Result := InternetReadFile(UrlHandle,@FBuffer,Length(FBuffer),BytesRead);
 end;

 procedure AppendResult;
 var
   I: Integer;
 begin
   for I := 0 to BytesRead-1 do
     Result := Result + FBuffer[I]
 end;

begin
 while ReadBuffer and (BytesRead <> 0) do
   AppendResult
end;

begin
 InetHandle := InternetOpen(
   "Exorcist",
   INTERNET_OPEN_TYPE_PRECONFIG,
   nil,
   nil,
   0);
 if InetHandle = nil then
   RaiseLastOSError;

 try
   UrlHandle := InternetOpenUrl(
     InetHandle,
     "http://ya.ru",
     nil,
     0,
     INTERNET_FLAG_RELOAD,
     0);
     if UrlHandle = nil then
       RaiseLastOSError;
     try
       WriteLn (Read(UrlHandle));

     finally
       InternetCloseHandle(UrlHandle)
     end;
 finally
   InternetCloseHandle(InetHandle)
 end;

 ReadLn;

end.


Только не выйдет у тебя никакого "накрутчика" :)



Страницы: 1 вся ветка

Текущий архив: 2006.05.28;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.027 c
2-1146793670
eclipse
2006-05-05 05:47
2006.05.28
Строки в DBGrid и не только


2-1147593076
MasteR2
2006-05-14 11:51
2006.05.28
Многоугольник и окружность


2-1147089301
@gent
2006-05-08 15:55
2006.05.28
Image-постройка векторной диаграммы


15-1146549877
КаПиБаРа
2006-05-02 10:04
2006.05.28
Куда все спешат?


15-1146742658
Yeg
2006-05-04 15:37
2006.05.28
Общие сетевые ресурсы