[NekitoSSSS]

реально ли подружить idHTTP с ссылками типа:
"javascript:..." ??? если нет то что можно юзать в качестве альтернативы??!!!
если предложите WebBrowser то тогда как получить исходный текст его страницы??))

[march]

а почему бы и нет?

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68

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.

Это показывает исходный код, а дальше парси (нормально видит русский и английский, остальные языки не пробовал).

[NekitoSSSS]

ты меня не понял!! ты вообще не о том пишешь!!! ты вообще не о том пишешь!! прочитай внимательней мой вопрос!

[march]

ты меня не понял!

каков вопрос - таков и ответ.
По сабжу: что понимаешь под словом "подружить"?
Если возможность пройти по ссылке типа:

<a href="javascript:function();">AnkorЪ</a>

то надо: искать в исходном HTML-коде саму "function()" и обрабатывать в соответствии с задачей.

[NekitoSSSS]

в общем нужно чтоб работало что-то этакое:
idhttp1.Get('javascript:function()');

[march]

такое даже в адресной строке браузеров не работает; нужно анализировать, что из себя представляет 'function', слишком много вариантов (даже возможно, что цепочка из скриптов)

[NekitoSSSS]

разницы нет, все работает в строке браузера!!! ориентируйся например на этом:

Код:

1 2 3 4 5 6

javascript<b></b>: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++;}

вот это как раз срабатывает в браузере, а в idhttp нет.

[xlin]

Сообщение от march

Код:

в этом месте выскакивает ошибка,в чем может быть проблема?