[NekitoSSSS]

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

[march]

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

Код:

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]

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

Код:

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++;}

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

[xlin]

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

Код:

stringshtml:=RussianToUnicode(idhttp1.Get(edit1.text));

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