Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате
Форум программистов > Delphi: Общие вопросы > Delphi+JAVAScript


Автор: DelphiExpert1 10.5.2010, 07:21
Дана страница:
HTML
<html>
<body>
<script language=JavaScript>
<!--
function generate() /* Generation of "Compilation" */
{
code = document.pad.text.value;
if (code) {setTimeout("compile()",1000);}
}
function compile() /* The "Compilation" */
{
compilation=escape(code);
document.pad.text.value= "<script>\n<!--\ndocument. write(unescape(\""+compilation+"\")); \n//-->\n<\/script>";
}
// -->
</SCRIPT>

<FORM name=pad method=post align="center">
<TEXTAREA style="WIDTH: 95%; BACKGROUND-COLOR: #ebebeb" name=text rows=11 cols=58></TEXTAREA>
<INPUT onclick=generate() type=button value=Encrypt name=compileIt> 
</FORM>
</body>
</html>


Нужно программно в Delphi с помощью этого java скрипта зашифровать 20 строк.
И получившийся результат:
Код

<script>
<!--
document. write(unescape("%u041F%u043E%u043F%u044B%u0442%u043A%u0438%20%u043E%u0442%u043A%u0440%u044B%u0442%u0438%u044F%20%u043E%u0431%u0441%u0443%u0436%u0434%u0435%u043D%u0438%u0439%20%u0440%u0435%u0430%u043B%u0438%u0437%u0430%u0446%u0438%u0438%20%u0432%u0440%u0435%u0434%u043E%u043D%u043E%u0441%u043D%u043E%u0433%u043E%20%u041F%u041E%20%u043D%u0430%u043A%u0430%u0437%u044B%u0432%u0430%u0435%u0442%u0441%u044F%20%u043F%u0440%u0435%u0434%u0443%u043F%u0440%u0435%u0436%u0434%u0435%u043D%u0438%u0435%u043C%20%u043D%u0430%2030%20%u0434%u043D%u0435%u0439.%20%0A%u041F%u043E%u0432%u0442%u043E%u0440%u043D%u0430%u044F%20%u043F%u043E%u043F%u044B%u0442%u043A%u0430%20-%2060%20%u0434%u043D%u0435%u0439.%20%u041F%u043E%u0441%u043B%u0435%u0434%u0443%u044E%u0449%u0438%u0435%20%u043F%u043E%u043F%u044B%u0442%u043A%u0438%20%u0431%u0430%u043D.%0A%u041C%u0430%u0442%20%u0432%20%u0440%u0430%u0437%u0434%u0435%u043B%u0435%20-%20%u0431%u0430%u043D%20%u043D%u0430%20%u0442%u0440%u0438%20%u043C%u0435%u0441%u044F%u0446%u0430...")); 
//-->
</script>


Вывести в memo1 ОДНОЙ СТРОКОЙ. (иначе Java скрипт потом не работает...)
Помогите пожалуйста! smile:

Автор: kuzyara 11.5.2010, 16:15
Как получить код странички, загруженной в WebBrowser? 
Код

procedure TForm1.Button2Click(Sender: TObject);
var
 PSI: IPersistStreamInit;
 OleStream: IStream;
 MemStream: TMemoryStream;
 Adapter: TStreamAdapter;
begin
 WebBrowser1.Navigate('http://delphimaster.ru/cgi-bin/forum.pl?id=1167679059&n=8');
 while WebBrowser1.ReadyState <> READYSTATE_COMPLETE do Application.ProcessMessages;
 PSI:= WebBrowser1.Document as IPersistStreamInit;
 MemStream:= TMemoryStream.Create;
 try
   OleStream:= TStreamAdapter.Create(MemStream) as IStream;
   PSI.Save(OleStream, false);
   MemStream.Position:= 0;
   Memo1.Lines.LoadFromStream(MemStream);
 finally
   MemStream.Free;
 end;
end;


Как удалить переносы из строки 
Код

function DeleteLineBreaks(const S: string): string;
var
  Source, SourceEnd: PChar;
begin
  Source := Pointer(S);
  SourceEnd := Source + Length(S);
  while Source < SourceEnd do
  begin
    case Source^ of
      #10: Source^ := #32;
      #13: Source^ := #32;
    end;
    Inc(Source);
  end;
  Result := S;
end;


можешь посмотреть в другую сторону:
http://www.find-info.ru/doc/javascript/001/html-document.htm
Memo1.Text := WebBrowser1.OleObject.Document.pad.text.value; // как-то так...

вобщем гугл всемугущ!

Powered by Invision Power Board (http://www.invisionboard.com)
© Invision Power Services (http://www.invisionpower.com)