[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', слишком много вариантов (даже возможно, что цепочка из скриптов)

[xlin]

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

Код:

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

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