Модераторы: Poseidon, Snowy, bems, MetalFan
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Delphi+JAVAScript, Как Выполнить JAVA SCRIPT и вывести резу 
:(
    Опции темы
DelphiExpert1
  Дата 10.5.2010, 07:21 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 6
Регистрация: 7.5.2010

Репутация: нет
Всего: нет
Дана страница:
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:
PM MAIL   Вверх
kuzyara
Дата 11.5.2010, 16:15 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


Профиль
Группа: Участник
Сообщений: 215
Регистрация: 13.11.2006

Репутация: нет
Всего: 1
Как получить код странички, загруженной в 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;


можешь посмотреть в другую сторону:
Иерархия объектов в JavaScript
Memo1.Text := WebBrowser1.OleObject.Document.pad.text.value; // как-то так...

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

--------------------
подпись
PM MAIL   Вверх
  
 Ответ в темуСоздание новой темы Создание опроса
Правила форума "Delphi: Общие вопросы"
SnowyMetalFan
bemsPoseidon
Rrader

Запрещается!

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делиться вскрытыми компонентами

  • Литературу по Дельфи обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • 90% ответов на свои вопросы можно найти в DRKB (Delphi Russian Knowledge Base) - крупнейшем в рунете сборнике материалов по Дельфи

Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Snowy, MetalFan, bems, Poseidon, Rrader.
 
1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Delphi: Общие вопросы | Следующая тема »

Подписаться на тему | Подписка на этот форум | Скачать/Распечатать тему


 




[ Время генерации скрипта: 0.0752 ]   [ Использовано запросов: 21 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
 По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.