forum.boolean.name - Показать сообщение отдельно

Izunad · 27.01.2015, 06:41

Хороший пример на данную тему. Процедура загружает код страницы в память. Не учить нас делать переход 301 Moved Permanently, но помогает избежать большинство таких проблем.

Procedure.l DownloadToMem(URL.s, *Buff, ramsize.l) 
  Protected agent.s, hInet.l, hData.l, Bytes.l 
  
  agent = "IE 6.0" 
  hInet = InternetOpen_( @agent.s,0,0,0,0 ) 
  hData = InternetOpenUrl_( hInet, @URL.s, "", 0, $8000000, 0 ) 
  
  If hData > 0 
    InternetReadFile_ ( hData, *Buff, ramsize, @Bytes );Шапка страницы- бежим дальше
    InternetReadFile_ ( hData, *Buff, ramsize, @Bytes );Все еще шапка страницы- дальше
    InternetReadFile_ ( hData, *Buff, ramsize, @Bytes );Вот оно
 Else 
    Bytes = -1 
 EndIf 
  InternetCloseHandle_(hInet) 
  InternetCloseHandle_(hData) 
  
  ProcedureReturn Bytes
EndProcedure
 
*Buff = AllocateMemory(100000)
 
If *Buff
  Size=DownloadToMem("https://zkillboard.com/character/93989061/", *Buff, 100000)
  If Size>0
    SetClipboardText(PeekS(*Buff, Size,#PB_UTF8))
  EndIf
EndIf

Если у вас не получилось, то проблема может быть в кодировке текста
Не забываем смотреть формат загружаемого текста
Это может быть Unicode и прочее.

27.01.2015, 06:41	#5
Izunad ПроЭктировщик Регистрация: 02.06.2011 Адрес: Набережные Челны Сообщений: 103 Написано 27 полезных сообщений (для 91 пользователей)	Ответ: WebGadget: ошибка сценария Хороший пример на данную тему. Процедура загружает код страницы в память. Не учить нас делать переход 301 Moved Permanently, но помогает избежать большинство таких проблем. Procedure.l DownloadToMem(URL.s, Buff, ramsize.l) Protected agent.s, hInet.l, hData.l, Bytes.l agent = "IE 6.0" hInet = InternetOpen_( @agent.s,0,0,0,0 ) hData = InternetOpenUrl_( hInet, @URL.s, "", 0, $8000000, 0 ) If hData > 0 InternetReadFile_ ( hData, Buff, ramsize, @Bytes );Шапка страницы- бежим дальше InternetReadFile_ ( hData, Buff, ramsize, @Bytes );Все еще шапка страницы- дальше InternetReadFile_ ( hData, Buff, ramsize, @Bytes );Вот оно Else Bytes = -1 EndIf InternetCloseHandle_(hInet) InternetCloseHandle_(hData) ProcedureReturn Bytes EndProcedure Buff = AllocateMemory(100000) If Buff Size=DownloadToMem("https://zkillboard.com/character/93989061/", Buff, 100000) If Size>0 SetClipboardText(PeekS(Buff, Size,#PB_UTF8)) EndIf EndIf Если у вас не получилось, то проблема может быть в кодировке текста Не забываем смотреть формат загружаемого текста Это может быть Unicode и прочее.
(Offline)