Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Начинающим";
Текущий архив: 2007.06.03;
Скачать: [xml.tar.bz2];

Вниз

Помогите с WinInet   Найти похожие ветки 

 
MASTAFA ©   (2007-05-10 17:43) [0]

Вот с горем пополам написал код открытия странички и считывания ее исходного кода(по-крайней мере я так получилось :D). Но вся беда в том, что я не знаю как сделать, чтобы прога брала не код странички, а определенную информацию с нее. То бишь у меня есть сайт http://www.informtest.narod.ru/, где каждую секунду появляется случайное число и мне его надо считать и показать в моей проге.

function DownloadURL(const aUrl: string): Boolean;
var
 hSession: HINTERNET;
 hService: HINTERNET;
 lpBuffer: array[0..1024 + 1] of Char;
 dwBytesRead: DWORD;
begin
 Result := False;
 // 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, 0, 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;
           Form1.Memo1.Lines.Add(lpBuffer);
         end;
         Result := True;
       finally
         InternetCloseHandle(hService);
       end;
   end;
 finally
   InternetCloseHandle(hSession);
 end;
end;


 
iXT ©   (2007-05-10 18:01) [1]

> где каждую секунду появляется случайное число и мне его
> надо считать и показать в моей проге

А зачем, если не секрет?


 
clickmaker ©   (2007-05-10 18:12) [2]


> чтобы прога брала не код странички, а определенную информацию
> с нее

и в чем сложности?


 
iXT ©   (2007-05-10 18:16) [3]

И потом, число появляется не на сайте, а у тебя на компе. С таким же успехом можешь юзать датчик сл. чисел!


 
MASTAFA ©   (2007-05-11 10:38) [4]


> И потом, число появляется не на сайте, а у тебя на компе.
>  С таким же успехом можешь юзать датчик сл. чисел!

Датчик сл. чисел не подходит, т.к. к примеру проги берущие инфу с сайта погоды не показывают же случайные другие числа.


> А зачем, если не секрет?

А случайные числа я сделал лишь потому, что мне нужна некая абстрактная модель странички с изменяющимися данными.


> и в чем сложности?


Попробуйте с помощью этого кода получить уже упоминавшееся случайное число с сайта  informtest.narod.ru


 
clickmaker ©   (2007-05-11 10:40) [5]


> Попробуйте с помощью этого кода получить уже упоминавшееся
> случайное число

а нафик оно мне сдалось?


 
MASTAFA ©   (2007-05-11 10:42) [6]

Чтобы получить ответ на свой вопрос

> и в чем сложности?


 
clickmaker ©   (2007-05-11 10:50) [7]

если мне вдруг понадобится случайное число, то попробую. Пока без надобности


 
umbra ©   (2007-05-11 10:52) [8]

ищите число в тексте Мемо


 
iXT ©   (2007-05-11 11:04) [9]

Не найдет он в тексте не какое число!

JavaScrypt работает на стороне клиента! (Сайт у тебя ничего не генерирует)

Читать [3] заново!


 
MASTAFA ©   (2007-05-11 13:55) [10]


> ищите число в тексте Мемо


Нет, так не получится. Невозможно же с помощью текста программы калькулятора производить математические операции.


 
MASTAFA ©   (2007-05-11 17:24) [11]

Актуально


 
Cobalt ©   (2007-05-12 03:41) [12]

2 MASTAFA ©
вместо скрипта (который работает не "на страничке", а в браузере) используй другой способ вывода в страничку конкретных данных:
cgi-bin, asp, isapi.
И будет тебе счастье!


 
palva ©   (2007-05-12 09:47) [13]

> как сделать, чтобы прога брала не код странички, а определенную информацию с нее

Если информация на страничке есть, то страничку надо разобрать и эту информацию извлечь. В вашем случае информации на страничке просто нет. Случайные числа генерируются клиентским скриптом. Для того чтобы скрипт выполнялся, проще всего использовать браузер, а не WinInet. Если вы не хотите использовать браузер, то попробуйте подключить какой-нибудь интерпретатор JavaScript


 
MASTAFA ©   (2007-05-12 12:28) [14]

Все понял. Спасибо большое за то, что помогли разобраться!



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

Форум: "Начинающим";
Текущий архив: 2007.06.03;
Скачать: [xml.tar.bz2];

Наверх




Память: 0.48 MB
Время: 0.049 c
2-1179215722
asd_
2007-05-15 11:55
2007.06.03
Русская кодировка в DBF


3-1173947861
Grant
2007-03-15 11:37
2007.06.03
BLOBы в Oracle


2-1178820436
Riply
2007-05-10 22:07
2007.06.03
Ожидание окончания "инициализации процесса".


1-1175838763
atruhin
2007-04-06 09:52
2007.06.03
Не приходит событие OnActivate


15-1178798660
ArtemESC
2007-05-10 16:04
2007.06.03
Удалите мою учётную запись





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
Английский Французский Немецкий Итальянский Португальский Русский Испанский