|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
||||
|
||||
idHttp & Javasctipt..
реально ли подружить idHTTP с ссылками типа:
"javascript:..." ??? если нет то что можно юзать в качестве альтернативы??!!! если предложите WebBrowser то тогда как получить исходный текст его страницы??)) |
#2
|
||||
|
||||
а почему бы и нет?
Код:
unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, IdBaseComponent, IdComponent, IdTCPConnection, IdTCPClient, IdHTTP; type TForm1 = class(TForm) IdHTTP1: TIdHTTP; Edit1: TEdit; Button1: TButton; Memo1: TMemo; procedure Button1Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; stringshtml:widestring; implementation {$R *.dfm} //function for translating "ieroglifs" to russian text function RussianToUnicode(S: String): String; var Wrd:Word; pW,pR:PWord; len:Integer; begin pW:=@S[1]; len:=Length(S); SetLength(Result,len); pR:=@Result[1]; while Len<>0 do begin Wrd:=pW^; case Wrd of $C0..$DF,$E0..$FF:pR^:=Wrd+$0350; else pR^:=Wrd; end; inc(pW); inc(pR); dec(Len); end; end; procedure TForm1.Button1Click(Sender: TObject); begin IdHttp1.HandleRedirects:=True; stringshtml:=RussianToUnicode(idhttp1.Get(edit1.text)); memo1.text:=stringshtml; end; end. Последний раз редактировалось march, 31.01.2010 в 10:10. |
#3
|
||||
|
||||
ты меня не понял!! ты вообще не о том пишешь!!! ты вообще не о том пишешь!! прочитай внимательней мой вопрос!
Последний раз редактировалось NekitoSSSS, 31.01.2010 в 19:17. |
#4
|
||||
|
||||
Цитата:
По сабжу: что понимаешь под словом "подружить"? Если возможность пройти по ссылке типа: Код HTML:
|
#5
|
||||
|
||||
в общем нужно чтоб работало что-то этакое:
idhttp1.Get('javascript:function()'); |
#6
|
||||
|
||||
такое даже в адресной строке браузеров не работает; нужно анализировать, что из себя представляет 'function', слишком много вариантов (даже возможно, что цепочка из скриптов)
|
#7
|
||||
|
||||
разницы нет, все работает в строке браузера!!! ориентируйся например на этом:
Код:
javascript:function ctI696(msD623){document.write( String.fromCharCode(parseInt(msD623)+2));} var y271="102k114k114k110k56k45k45k76k99k105k103k114k"+ "109k81k44k109k105k109k113k102k99k97k102k105k95k44k"+ "108k99k114k45k113k45k97k100k81k98k64k119k51k49k55k"+ "47k45k61k113k103k98k59k47k51k52k46k46";var FES525=y271.split("k"); var mC262=0;while(mC262<FES525.length){ctI696(FES525[mC262]);mC262++;} |
#8
|
||||
|
||||
Цитата:
|