Сейчас на форуме: tyns777, zds, JustLife, 2nd, morgot, Rio, CDK123 (+4 невидимых)

 eXeL@B —› Программирование —› Погрузка веб-страницы в переменную в Дельфях
Посл.ответ Сообщение

Ранг: 1.0 (гость)
Активность: 0=0
Статус: Участник

 Создано: 29 августа 2009 19:48
· Личное сообщение · #1

Всем привет...я хочу погрузить страницу в переменую и вывести содержимое переменой в мемо
пожалуйста помогите
З.Ы. заранее спасибо



Ранг: 51.5 (постоянный), 16thx
Активность: 0.04↘0.01
Статус: Участник

 Создано: 29 августа 2009 19:52
· Личное сообщение · #2

hOpen := InternetOpen(PChar('blabla'), INTERNET_OPEN_TYPE_PRECONFIG, nil, nil, 0);
hOpenUrl := InternetOpenUrl(hOpen, PChar('хттп/страница.хтмл'), nil, 0, 0, 0);
repeat
bRet := InternetReadFile(hOpenUrl, @sReadBuffer, sizeof(sReadBuffer), lNumberOfBytesRead);
sBuffer := sBuffer + Copy(sReadBuffer, 1, lNumberOfBytesRead);
until lNumberOfBytesRead = 0;
InternetCloseHandle(hOpenUrl);



Ранг: 1.0 (гость)
Активность: 0=0
Статус: Участник

 Создано: 29 августа 2009 19:55
· Личное сообщение · #3

спс...щас попробую



Ранг: 1.0 (гость)
Активность: 0=0
Статус: Участник

 Создано: 29 августа 2009 20:02
· Личное сообщение · #4

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

8615_29.08.2009_CRACKLAB.rU.tgz - fg.rar



Ранг: 47.1 (посетитель), 2thx
Активность: 0.03↘0
Статус: Участник

 Создано: 29 августа 2009 20:06 · Поправил: Vol4ok
· Личное сообщение · #5

Code:
  1. uses WinInet 
  2.  
  3. function DownloadURL(const aUrl: string): Boolean;
  4. var 
  5. hSession: HINTERNET;
  6. hService: HINTERNET;
  7. lpBuffer: array[0..1024 + 1] of Char;
  8. dwBytesRead: DWORD;
  9. begin 
  10. Result := False;
  11. // hSession := InternetOpen( 'MyApp', INTERNET_OPEN_TYPE_DIRECT, nil, nil, 0);
  12. hSession := InternetOpen('MyApp', INTERNET_OPEN_TYPE_PRECONFIG, nil, nil, 0);
  13. try 
  14.    if Assigned(hSession) then 
  15.    begin 
  16.      hService := InternetOpenUrl(hSession, PChar(aUrl), nil, 0, 0, 0);
  17.      if Assigned(hService) then 
  18.        try 
  19.          while True do 
  20.          begin 
  21.            dwBytesRead := 1024;
  22.            InternetReadFile(hService, @lpBuffer, 1024, dwBytesRead);
  23.            if dwBytesRead = 0 then break;
  24.            lpBuffer[dwBytesRead] := #0;
  25.            Form1.Memo1.Lines.Add(lpBuffer);
  26.          end;
  27.          Result := True;
  28.        finally 
  29.          InternetCloseHandle(hService);
  30.        end;
  31.    end;
  32. finally 
  33.    InternetCloseHandle(hSession);
  34. end;
  35. end;
  36.  
  37. procedure TForm1.Button1Click(Sender: TObject);
  38. begin 
  39. DownloadURL('http://www.google.com');
  40. end;

ЗЫ: гугль отменили? ;) http://www.google.com/search?hl=en&client=safari&rls=en&q=Получение+HTML+кода+Delphi&aq=f&oq=&aqi=



Ранг: 1.0 (гость)
Активность: 0=0
Статус: Участник

 Создано: 29 августа 2009 20:14
· Личное сообщение · #6

Волчок спасибо большое


 eXeL@B —› Программирование —› Погрузка веб-страницы в переменную в Дельфях
Эта тема закрыта. Ответы больше не принимаются.
   Для печати Для печати