VPF::Delphi и HTML - Форум программистов

DragonFire

Дата 4.10.2005, 13:50 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 725
Регистрация: 14.8.2005
Где: Москва

Репутация: нет
Всего: 9

Нород, кто-нибудь может подсказать, как програмно загрузить клд HTML страницы из интернета в TMemo???

--------------------

http://dragonfire.cimanu.ru/

_hunter

Дата 4.10.2005, 14:13 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 8564
Регистрация: 24.6.2003
Где: Europe::Ukraine:: Kiev

Репутация: 15
Всего: 98

TIdHTTP и его метода Get()
подробности в справке / поиске

--------------------

Tempora mutantur, et nos mutamur in illis...

Pakshin A. S.

Дата 4.10.2005, 17:27 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 5056
Регистрация: 16.2.2003

Репутация: 21
Всего: 61

Альтернатива - WinInet (модуль): мы просто читаем файл, как это делаем всегда...

DragonFire

Дата 4.10.2005, 18:56 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 725
Регистрация: 14.8.2005
Где: Москва

Репутация: нет
Всего: 9

А поподробнее про WinInet? пожно, плиз.
З.Ы. Спасибо _hunter, я почитаю хелп про него ...

--------------------

http://dragonfire.cimanu.ru/

Pakshin A. S.

Дата 5.10.2005, 17:30 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 5056
Регистрация: 16.2.2003

Репутация: 21
Всего: 61

Цитата(DragonFire @ 4.10.2005, 19:56)

А поподробнее про WinInet? пожно, плиз.

Конечно можно...

Я когда-то давно делал обновлялку файла в программе через нет. Это организовал таким способом:

Код


const
 BufferSize = 32768;
var
 hSession, hURL: HInternet;
 Buffer: array[1..BufferSize] of Byte;
 BufferLen: DWORD;
 f: File; 
 sAppName: string;
 fileURL, FileName:string;
begin
...
     hSession:=InternetOpen(PChar(sAppName), INTERNET_OPEN_TYPE_PRECONFIG, nil, nil, 0);
     fileURL:='http://www.prgs.narod.ru/DBTeachers/Loads/Str/Beg.str';
     FileName:=ExtractFilePAth(application.ExeName) + 'Beg.str';
     hURL := InternetOpenURL( hSession, PChar(fileURL), nil, 0, 0, 0);
     if hurl = nil
      then 
       begin
        Application.MessageBox('Обновление отсутствует!', '', mb_ok + mb_iconinformation)
        Close;
       end;
     try
      AssignFile(f, FileName);
      rewrite(f, 1);
      repeat
       InternetReadFile( hURL, @Buffer,SizeOf(Buffer), BufferLen);
       BlockWrite(f, Buffer, BufferLen);
      until BufferLen = 0;
      CloseFile(f);
     finally
      InternetCloseHandle(hURL);
      d:=true;
     end;
...
end;

Что-то типа этого... Но форуме можно найти и более приятный вариантик...

в fileURL можно кидать все, что угодно...
Добавлено @ 17:31
Еще в конце

Код


  InternetCloseHandle(hSession);

DragonFire

Дата 5.10.2005, 17:47 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 725
Регистрация: 14.8.2005
Где: Москва

Репутация: нет
Всего: 9

Он мну выдает ошибку:
"e/o error 123" на строке rewrite(f, 1);
когда я пытаюсь вызвать ету процедуру.
Добавлено @ 17:50
Ой, извиняюсь, заработал. Но в файле, вместо кода html есть следующие символы:

‹ н;YoЫHљП6?яPНF")ЉДC‡mITЖqЬнмд0/v A‹e‹6EjHКЋУИЩџС?3=?™F&3™lїм>, +fўH-ЙЫq/lц+)Q—нXЭ2YЗw_U,жVЦоЬО_љН,/Ю$Я–b©8я}лњцaхMэ=rРпЋњfУiеXЪѓTEЫFVEУЪS±YДШBЦ^‹Њ…ZlБ4T4р†И-«њaYҐґ/иҐuЙ2гF…UШ’¤hq2ЋЂ+aKB]і°fy ЉVIНўBQ2Ll‰»Љ&л»fЊR<@?1ьЫЉІ#.СI1‚јGШ?хМКШT6µ„K?ЛУз„f… ѕіј¶?VвeЉX*qЊ 7t-щґkz¬@z®Ў’ф0&mb‘ѓЛЉiЕј#©Љ,YРЈLK7pџщ K«чїјіШЗЭ{±ҐЕҐ•еqD,?,+6{и92И,Jy@[ТЋD[¤JЪf…РЕ[MЈ †& nJє¦hс-3”П±tR Хx?г Ђi;’?–,C]ТM$ў
I5qцТмFE+XЉ®!@Ґ‡U}SС"—fїѕ4‹аЗЅ…БоwЬАeU*аpиrи
]RЎ ?Щ-**FtjL?ј·EC‘јИE&??R7\Хx(џџеs
%q!ЧOqЭ‘ш‚‚P6Pё'ҐъQ?лe¬…Cм#iOЪЩ–вeх:Ђ1Eю
1-сК†ўZШCQ8 ьjФі
0СcЂЉAФ#°?j)E›4юdЅP)?™Еu¤WL7б+Ё=r‚ѓ*црб2Ѕ їЖ{ 10л.Ю]6ЭX3¤2™
NiU
YF»фFbГ°ЬA®mМkє§КЅЙ}lє†IЈ«??DзK; lX]№‚љг–^ЋЛX•ц` М›й eЧP,PbоЦ?/СѓыKв$oRхВv"ѕ яеЦНµQаРКт/WЦD>…oЇ‰МіvЅVн¶ugянVЭf?®TҐ°-2Јд,Ктљѕj(;` бЯ„јhэ°&"јx7 m"SЁ¦ndЉ’&3yjd?=Ц{\ЂоСg"Т*Є°9‚и–?ь{?uww7ИC
lDТAЭd];
иrC2-іЁпў°оЁT‰N±
“{tmbkYЕдтЖЮ-9М”H7— 2Z62?hЮ_Ѕ†ПДP?Ё«qW.сЕTЦU±цзЊ{«b(?!ЉЊ? рC9і$©j>х@ECiSц±GИГkWшъWн3г_xЖ!4кЄzoXБQлєј7Ш•р№Э?дЯОFІ¦—'аЂћh*л†O0*Б*GQД”2}`ъц}DЖз*qљqГЈ<Л4•ў9Ы5
дLУ‡"Pd¬…|C¤ЙИРdи»#YЕёОЎ—ВД®X6CПнVэXп9хVЧ©С n Ђ)ь|vfўД“кЛѓ·6ЬvмFЧмfэ„ё-ZYE0?їмбБ24??‹'Y2ЂїыЙF о2jґ«?ЦЫЧиMНоТС{XUх]oB:?н?OГш—vіл
ї†кк‰?^ЩM@РЩkJ чH|Ћс..EFЭклC»]Ґ¬н•U·JYYНТіЊ±,тзЭ—‚
M@A¶І†j¦BЛЁgр®;–j†@Эо,…/В§o!]nьT,¤IЇX~дпJТЭ B с±P.
$$©®®“зu№фґ„¦јKAлRHYGѕгB„¤ W4Щ‰2,х%4„$‡b?Ц‰oh›V¬_?\?уЭТ|ДчмИ…†Ў1>ВRДW] эБ)0 „yЩб@Q%М¬¬2‘б<іІКЗwЩ*ЉЮґ`—РлЬ.џuJКQ$"ЂwjщWRМ»ѕэ•ЄlаЇ`>Й]!*7Їњ WЈЁ|ы?Dи0ёi`¬б№®:‚Щ¦'ь~ь”ф?ѓљc??=ЧЂ?nw4мv±а_‘«®a“K®Wь‘1№ћЙъ.ЦныK(hй?нЭЁt•ЂЁх†њ ю‚%<лЇыH*р+…’d@ ?б№тCвВд&?“‚{otU7D,`»KYЩ?ш"ъЎЧі.¶7]yДЬ™ПїЂџҐҐ,ке?ИY3?
РvЖЛYTЦM…xtFZ7uµbAУєnИШрЎҐЭџ^«‹5C№ЧжєCс„‘І$ЛЉ¶™A№ѓЭВ1іҐwd»¤<a`uјёЛ` h@Ф›?йeЖ)2ѓ
`?8иҐч”{/?EB9Л@dЙ· %?6’fy0%l ТKчo®е{•m6ЗzM~—lмnЂЙyµs?зжУу\zЋгЇ1sМµД5ж¦dlЇ0‘юLЦ’ы(уWґuіњн5В…q•yOClчШѓ7—О7w\“І‚Д9NЪзЖKоUЙ4EЖ5f /щ!ћKщ$яѓЅГ”цйҐFбуФ|1Sy„]· љ? Нµz?dU·ѕ”!№Kjж\AIХu“ ДЂ?,‘щЎнФ СЈ—хW:ѓ4©„ 03_@*beіcз??ю/ѓV8аВ“х7ЧЭиX_ZT>g“XДЖ#JTПъhЖ’4хЂЩ1Љхv,тdACЛ?D"}?ьуGЬ®!ХњbѕЕ~Ђ‘Ћд™Я8я7PћЦO&ВћмA/BиґЩ2Кз¤Б·‚TV,I-@?*kҐ Іъъ.X pµ„D"NvьdA¶Б bєщpЈ†0^2ы`‚¶“Ш№v?з?›ц!zЪ®ћґњN·>ыы¶Уz?^8M§ц6ѓжc …зўІ?ЊМ~з4_ЂЎ№ЯAЪаЩd"?Ар¤сЖw^Б?5ТСК4’7w?“?Ґа}(gКэ©}‚ћ8µj»УUg8Ё¶!/' ь’#’Nі)оГ%нIуўКшXz?Њ’n,,L©К$=Мыz яь–‚vcv ”fP4™т<ўбґ?Ћ;UРQ:–џаSQ9‘qЉy?]H_XUџ–ўЦ±j Ь”zтЂLRSТWУ3з}эСоt?F NA+и$8?р©С0Е±ВВП®и&№зt8;G?«®‡*НФ»!=ъЄDCдuUL\Dно3,–c?ZЛ«гQш™У9tєm»ы9ынк«HїоV!Ь/аcзз/ЄРуТ ж"Ћ»Л'§фZ!иІЙ rz.{ЮъuљNЎЈvµцц5jTЫ‡ХЦ‡+пgа955П©іyюґ9U[УjmзcщL<wњэыЉЧі‚‚Є”з¦ukИ¤dЬітзvы?ауЭ‹ъpѕеЎX?ыXСщў%g©ўb+5uНйѓ9SЂOЋIєыбЁн?з™пGd?љ¦ая82Ф$ЈR(*7н
* иМЄ?мт=°0VС
I“Н‘т=‘m‚’џ¦hS©џGІ©ФЩ‚эіЭi?‹?іЫ'ХncДЙS,џъШШG+є.ЁE?ёiuиC jP?Ј=qљпЮ8#~БcBN’›Єzщ»KљMря?К°T°|[ш$кѕ_xЛ°Ё`Uжз¦Э3фБњ№iш_х.ъ#QЛ?’ТйЎЫ№?0‡ВйЁ,р‘б=¬щ?0O·u{}ЮNК?Y-зЕPырЛ›?яДRкє®[жФ'К™йфїЇњnэДо4к6ъ=\¶х xOЭАJІВЬЗШАљбФ№cfM?4т”g¤гц®DоТ‡kлє*3щ?(яtl~6KOёAaФqZХ—Ёcї>©vP«ъЈsPпvЮЈj4?чншР¶¬{(`иA7К™–Ўk›щ+їиVцOХ&Є9х–SЈч9ЦлцџВК”r:—gу°cФIЂ
,™45Ђfф0„R’6q¦bЁбIЮцH—©Ає‚HжцEД и6pKVFУЅ«Ю©‡!Єr¤Јя?Я+ѓµ$7PIr?„Е|nн¦П%`%g$¬.ЮEо;b(”^oB<Н}qпоўD>зё№Зеs7тВ\ЋЅ$Ѕ`о,Юѕ?уЉB!F-ё
р
aьэQрvj
†P$9Ej,Љ@‘>†п[Эгъ›ъыi?‰dzИ,АДьxЯѕ… Ц¬Ч<К{Tє?г(°›M»Сu‡r[ ЪУгѓvDsEcРц<Mp—ЙЩп”†зУ—ь¤
йЋzжмЫ }q0Га6$U6‡SШБ&ЦИЩqMф¶ґЇpсщt2‘д„Ф|:?sЈЩ&№ Ц°?чQ¶«/нVэ5 ьґн/х“wхЎмљ§чOљХ–KХКэе/О™ч¶лЉМy”?јЫCЁ@1”[‡?ПUтЯBzы=п¶«VЅ‘cЎ•…N¶’GЯўHSЁeЈѓjЪ}‡>лЛ~0!<%mPЫyy@¶:2Ѕ wGЧЅ8н‡№u#Я?–23уЁ‚ћ с'Ј#/м‚gqq.з’H2ЙTоy•>щ—223щЇwйщ
лЫOр—FJЕч-+=^ н5@љ–ыСј‘!сЋWНЊp=Дin%‘я]«awЙЄю ФщЦО±РFъѕ?<«Цм¦o‚НzzьІУp^У–?8mьа©УiФЄѕћїs«?µЮїGbх7ХQ“4i&љг†nTJДEYдЙыKВ¬+љhJ*9+7h–…Уч§пмZэPVРeњяXа4tшM»[9Фкп»P·м7hїЮUгсxЋu‡ТЩ?Фљц‰ky,ъСЩЯЇgH;ц,їе@е|РhюЯIЅ Йї?љNЈЪ|Ч"иv·™Ѕґ»hяшаё‹:NнЁz@њеЦj=k;?Ъ‡9u?<РGЄ‚0muЋЄ?ъѕѓю}ъ_тсьд›.J/p‰9ІЧT°Ьoвo.МД"Іў
¤y.Б“Ћїvн·]tФ®sиЦC$\^“?!Ш‰·tВe±< sЯйзШВфіXмѕdAJюХIQZєчПwЧ–пЗb“¦РcЂэwіюIЪ‘РУMЬҐYYф?іf%H>Y)*†ІдН!lBdЕa9) 6"—f·L(И‰ш|пЂбгегј‡ЪEµЁ4iGЩ”,Э?“WД–5%д°‡?џџаб3Eі@NюRM@lТѓТСРUrM—/]2t‡Нё›эoвІUјјЙ?сІт«о?GЁ05Ў ?P-1%4_ЅЅ7’†–‹дм[‰Z»U)•ЇozIL$y!ЅА„ў—fCЅ?Dкј‘ҐЎы2?bZd~ЉNЁмЭY$0Q(YKLqЩ-"з-3*EБ¬$??uа2З[-юН~
+Дѕq!щЗщkЛп%¶щyw=б+б-3Пу‘>і0ШGЎИ№¤xчЮйэ‹ єA©ЭєуҐіПАXfП8І))Zм‹Ъ]zы?}?ф„•'y`Твц,fП4©QqЗb пь9…
0Ш~Ш®‚59‹N§У—“я—ЮРҐ<

Че делать? Мне нормальный код html нужен !!

--------------------

http://dragonfire.cimanu.ru/

Pakshin A. S.

Дата 5.10.2005, 20:16 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 5056
Регистрация: 16.2.2003

Репутация: 21
Всего: 61

Гы... тупо получилось... простите...
Забыл упомянуть об этом:

Ведь мы получили массив из ASCII кодов символов... Это нам надо преобразовать в символы...

Сами справитесь?

Добавлено @ 20:20
Я так тестил:

Код


const
 BufferSize = 1;
var
 hSession, hURL: HInternet;
 Buffer: array[1..BufferSize] of Byte;
 BufferLen: DWORD;
 sAppName: string;
 fileURL, FileName:string;
begin
     hSession:=InternetOpen(PChar(sAppName), INTERNET_OPEN_TYPE_PRECONFIG, nil, nil, 0);
     fileURL:='http://www.prgs.narod.ru/index.html';
     FileName:=ExtractFilePAth(application.ExeName) + 'Beg.str';
     hURL := InternetOpenURL( hSession, PChar(fileURL), nil, 0, 0, 0);
     try
      repeat
       InternetReadFile( hURL, @Buffer,SizeOf(Buffer), BufferLen);
       Memo1.Lines.Text:=Memo1.Lines.Text + chr(buffer[1]);
      until BufferLen = 0;
     finally
      InternetCloseHandle(hURL);
     end;
           InternetCloseHandle(hSession);
end;

DragonFire

Дата 6.10.2005, 06:41 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 725
Регистрация: 14.8.2005
Где: Москва

Репутация: нет
Всего: 9

Прблема в том, что в Мемо1 такиеже каракули рисуются. smile

Но не всех сайтом, а вот етой, нужной мну ссылке: http://suncity.combats.ru/inf.pl?login=Kintaro%20Oe
Может попробовать через компонент WebBrouser (или как-то так). Тока я не могу найти у него команду просмотра HTML кода... Может кто подскажет... smile

--------------------

http://dragonfire.cimanu.ru/

_hunter

Дата 6.10.2005, 10:50 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 8564
Регистрация: 24.6.2003
Где: Europe::Ukraine:: Kiev

Репутация: 15
Всего: 98

в смысле "команду просмотра HTML кода"?
ті из него HTML вітянуть хочеш? -- тогда идем в FAQ и читаем соотв.статью...

--------------------

Tempora mutantur, et nos mutamur in illis...

DragonFire

Дата 6.10.2005, 12:12 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 725
Регистрация: 14.8.2005
Где: Москва

Репутация: нет
Всего: 9

А ты не мог бы дать ссылочку на ету статья, а то что-то я найти ето не могу...

--------------------

http://dragonfire.cimanu.ru/

_hunter

Дата 6.10.2005, 12:54 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 8564
Регистрация: 24.6.2003
Где: Europe::Ukraine:: Kiev

Репутация: 15
Всего: 98

http://forum.vingrad.ru/index.php?act=modu...el&article=2661
http://forum.vingrad.ru/index.php?act=modu...el&article=2645

--------------------

Tempora mutantur, et nos mutamur in illis...

DragonFire

Дата 6.10.2005, 13:53 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 725
Регистрация: 14.8.2005
Где: Москва

Репутация: нет
Всего: 9

Спасибки... smile

--------------------

http://dragonfire.cimanu.ru/

lSmokel

Дата 5.12.2005, 14:37 (ссылка)

(голосов: 0)

Загрузка ...

Unregistered

А если я хочу узнать код странички типа http://abc.ru/1.php
Как мне это сделать?

Демо

Дата 5.12.2005, 15:11 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1278
Регистрация: 3.11.2005

Репутация: 30
Всего: 50

Цитата(lSmokel @ 5.12.2005, 15:37)

Как мне это сделать?

Точно так же.

--------------------

F1reF0x

Дата 5.12.2005, 18:00 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 68
Регистрация: 10.10.2005

Репутация: нет
Всего: нет

Код


function GetStr(url: string): string;
const
BufferSize = 6536;
var
hInternet, hConnect: pointer;
Buffer: array[1..BufferSize] of char;
BufferLen: LongWord;
i: integer;
begin
result:='';
hInternet:=InternetOpen('Mozilla/4.0 (compatible; MSIE 6.0b; Windows NT 5.0)', INTERNET_OPEN_TYPE_PRECONFIG,0, nil, 0);
if Assigned(hinternet) then
  try
hConnect:=InternetOpenUrl(hInternet, pchar(url),  nil, 0, 0, 0);
repeat
if not InternetReadFile(hConnect, @Buffer, SizeOf(Buffer), BufferLen) then bufferlen:=0;
for i:=1 to bufferlen do result:=result+char(Buffer[i]);
until bufferlen=0;
finally
InternetCloseHandle(hinternet);
end;
end;

В response будет html

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »